题目
用VB 求 1到100的奇数和 和 偶数和的函数怎么写
用function去写
用function去写
提问时间：2020-12-13
答案
在窗口上建立一个按钮： Function Total(Num1, Num2) As String 'Num1 为奇数和 'Num2 为偶数和 For i = 1 To 100 If i Mod 2 0 Then Num1 = Num1 + i Else Num2 = Num2 + i End If Next Total = "奇数和：" & Num1 & " 偶数和：" & Num2 End Function Private Sub Command1_Click() Me.Print Total(a, b) End Sub
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 12001+1995+2000+2003+1998+1997+1994+2002 简算
- 2三道有关二次根式的题～给100分～
- 3(it is ） four years since we last saw each other.这句话括号里为什么不是there were
- 4一个圆柱和一个圆锥的体积相等,圆柱底面周长与圆锥的面周长的比是5:3,圆锥的高是27CM,圆柱的高是多少厘
- 5汉译英：谢谢收看本期节目
- 6最后我们去了云南而不是桂林.___ ___ ____,we went to yunnan___ ___Guilin.怎么填?
- 7数学体积容积题
- 8在方框里填上合适的词``
- 9在日历上,用一个正方形任意全出3x3个数,和可能是?
- 10计算：1x1!+2x2!+3x3!+.+2009x2009!+2010x2010!