VB程序设计(第2版)作业12

小组成员：（机制1101）孙兵兵-10，王光辉-01，靳雷恒-17，冯朋凯-28，刘苗-37 《Visual Basic 程序设计》综合作业

题目：随机产生10个1-100之间的整数，统计其中奇偶个数

一、分析

1.使用三个文本框，一个用来输出数据，两个用来输出奇偶数个数

属性设置为：

Text1：Text 空

Text2：Text 空

Text3：Text 空

2.使用三个标签，三个标签都用来显示题目信息

属性设置为：

Label1：Caption：产生的随机数为

Label2：Caption：产生的随机数中奇数的个数为

Label3：Caption：产生的随机数中偶数的个数为

3.使用两个命令按钮，第一个命令按钮用来控制十个随机数的输出，第二个命令按钮

用来控制奇数和偶数的个数的输出

属性设置：

Command1: Caption产生随机数

Command2: Caption 奇偶数个数

4.用Randomize随机产生1-100之间的数，存放在一维数组中，利用循环完成10个数

的输出！

5.用For……Next 语句求出奇偶数的个数

二、程序功能

1.用Randomize 随即产生1-100之间的数，存放在一维数组中

2.用For…… Next产生奇偶数的个数

三、程序代码

Dim a(10) As Integer

Private Sub Command1_Click()

Text1.Text = ""

Randomize

For i = 1 To 10

a(i) = Int(Rnd * 100 + 1)

Text1.Text = Text1.Text + Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim count%

Count=0

For i = 1 To 10

If a(i) Mod 2 = 1 Then

count = count + 1

End If

Next i

Text2.Text = count

Text3.Text = 10 - count

End Sub

四.运行界面

五、总结

VB程序设计非常好，随见及所得！在这个程序的设计中，我们运用了随机数的产生（用Randomize），运用了一维数组和For……Next语句。在以后的学习中，启发我们多多思考，在我们五人共同的努力下，终于完成了这个程序设计！

六、新任务

一副扑克牌，随机抽取二张，其中都是红桃的概率，一张红桃的概率，一张红桃都没有的概率!