用VB 求 1到100的奇数和 和 偶数和的函数怎么写
用VB 求 1到100的奇数和 和 偶数和的函数怎么写
用function去写
用function去写
其他人气:841 ℃时间:2019-08-20 06:44:41
优质解答
在窗口上建立一个按钮: Function Total(Num1, Num2) As String 'Num1 为奇数和 'Num2 为偶数和 For i = 1 To 100 If i Mod 20 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
我来回答
类似推荐
猜你喜欢
- 1长方体和正方体体积的通用公式用字母怎么表达
- 2从下面A组至少选2个词语,B组至少选1组关联词,以“幸福”为话题题写一段话.(80字内)
- 3高手这边请:正方形ABCD的边长为1,点F在线段CD上运动,AE平分角BAF交BC边于点F 求:AF=DF+BE
- 4I currently have more than one phone number on this account.
- 52010人教版,江苏人民出版社的,有同学做好的吗?
- 6What do you think makes a good friend?I
- 7求一篇英语作文 80词左右
- 8“不知道怎么说”用英语怎么说?
- 9四分之三加五分之三加五分之二简算
- 10一个圆柱形的沙堆,底面积是28.26平方米,高是2.5米,用这堆沙子在10米宽的路上铺2厘米厚的路面,能铺多少米?