VB的编程高手来!高分悬赏!

在一个工程中分别设计三个独立的窗体作为运行界面,完成以下处理的程序设计1.从键盘输入10个数存放在数组a中(1)分别统计奇、偶数的个数。(2)分别求奇数之和,偶数之乘积(... 在一个工程中分别设计三个独立的窗体作为运行界面,完成以下处理的程序设计
1.从键盘输入10个数存放在数组a中(1)分别统计奇、偶数的个数。(2)分别求奇数之和,偶数之乘积(3)按从大到小排序输出。
2.设计程序对任意自然数n求出S=
3.设计一程序,输出5—100之间所有被5整除的数,并求出这些数据的平方和
4.设计一个控制调用1—3题功能窗体的主控窗体,实现控制调用
希望VB高手们做出来,让我好好参考下!谢谢大家了,我知道这些对大家来说都不难,对我来说太难了!
高分悬赏,做出的100分,绝对不骗人!
展开
 我来答
司徒惊月
2009-04-17 · TA获得超过1726个赞
知道大有可为答主
回答量:4186
采纳率:0%
帮助的人:1585万
展开全部
你第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
龙志健
2009-04-17 · TA获得超过952个赞
知道小有建树答主
回答量:702
采纳率:0%
帮助的人:741万
展开全部
1~3题在百度知道已经有人问题,你在搜索里打上关键字就能找到。

第4个问题调用三个窗体,你自己也应该做得出吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式