用VB 求 1到100的奇数和 和 偶数和的函数怎么写用function去写

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 06:57:16
用VB 求 1到100的奇数和 和 偶数和的函数怎么写用function去写

用VB 求 1到100的奇数和 和 偶数和的函数怎么写用function去写
用VB 求 1到100的奇数和 和 偶数和的函数怎么写
用function去写

用VB 求 1到100的奇数和 和 偶数和的函数怎么写用function去写
在窗口上建立一个按钮: 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