当前位置: > 用VB 求 1到100的奇数和 和 偶数和的函数怎么写...
题目
用VB 求 1到100的奇数和 和 偶数和的函数怎么写
用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的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
版权所有 CopyRight © 2012-2019 超级试练试题库 All Rights Reserved.