VB的编程高手来!高分悬赏!
在一个工程中分别设计三个独立的窗体作为运行界面,完成以下处理的程序设计1.从键盘输入10个数存放在数组a中(1)分别统计奇、偶数的个数。(2)分别求奇数之和,偶数之乘积(...
在一个工程中分别设计三个独立的窗体作为运行界面,完成以下处理的程序设计
1.从键盘输入10个数存放在数组a中(1)分别统计奇、偶数的个数。(2)分别求奇数之和,偶数之乘积(3)按从大到小排序输出。
2.设计程序对任意自然数n求出S=
3.设计一程序,输出5—100之间所有被5整除的数,并求出这些数据的平方和
4.设计一个控制调用1—3题功能窗体的主控窗体,实现控制调用
希望VB高手们做出来,让我好好参考下!谢谢大家了,我知道这些对大家来说都不难,对我来说太难了!
高分悬赏,做出的100分,绝对不骗人! 展开
1.从键盘输入10个数存放在数组a中(1)分别统计奇、偶数的个数。(2)分别求奇数之和,偶数之乘积(3)按从大到小排序输出。
2.设计程序对任意自然数n求出S=
3.设计一程序,输出5—100之间所有被5整除的数,并求出这些数据的平方和
4.设计一个控制调用1—3题功能窗体的主控窗体,实现控制调用
希望VB高手们做出来,让我好好参考下!谢谢大家了,我知道这些对大家来说都不难,对我来说太难了!
高分悬赏,做出的100分,绝对不骗人! 展开
展开全部
你第2题公式是什么??
1、Dim a(10)
b2 = 0: c2 = 1
For n = 1 To 10
a(n) = InputBox("第" & n & "个任意数字:", "请输入")
If a(n) Mod 2 > 0 Then
b1 = b1 & a(n) & " "
b2 = b2 + Val(a(n))
Else
c1 = c1 & a(n) & " "
c2 = c2 * a(n)
End If
Next
Print "其中奇数有:" & b1
Print "所有奇数之和为:" & b2
Print "其中偶数有:" & c1
Print "所有偶数之积为:" & c2
For n = 1 To 10
For m = 1 To 10
If Val(a(n)) < Val(a(m)) Then
xx = a(n)
a(n) = a(m)
a(m) = xx
End If
Next
Next
xx = "这组数从大到小依次是"
For n = 1 To 10
xx = xx & a(n) & " "
Next
Print xx
3、For n = 5 To 100
If n Mod 5 = 0 Then xx = xx + n ^ 2
Next
MsgBox xx
4、Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Command3_Click()
Form3.Show
End Sub
1、Dim a(10)
b2 = 0: c2 = 1
For n = 1 To 10
a(n) = InputBox("第" & n & "个任意数字:", "请输入")
If a(n) Mod 2 > 0 Then
b1 = b1 & a(n) & " "
b2 = b2 + Val(a(n))
Else
c1 = c1 & a(n) & " "
c2 = c2 * a(n)
End If
Next
Print "其中奇数有:" & b1
Print "所有奇数之和为:" & b2
Print "其中偶数有:" & c1
Print "所有偶数之积为:" & c2
For n = 1 To 10
For m = 1 To 10
If Val(a(n)) < Val(a(m)) Then
xx = a(n)
a(n) = a(m)
a(m) = xx
End If
Next
Next
xx = "这组数从大到小依次是"
For n = 1 To 10
xx = xx & a(n) & " "
Next
Print xx
3、For n = 5 To 100
If n Mod 5 = 0 Then xx = xx + n ^ 2
Next
MsgBox xx
4、Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Command3_Click()
Form3.Show
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询