VisualBasic程序设计教学全套课件第2版 宋汉珍电子资源 VB 作业12.doc

《VisualBasic程序设计教学全套课件第2版 宋汉珍电子资源 VB 作业12.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、小组成员：（机制1101）孙兵兵-10，王光辉-01，靳雷恒-17，冯朋凯-28，刘苗-37《VisualBasic程序设计》综合作业题目：随机产生10个1-100之间的整数，统计其中奇偶个数一、分析1.使用三个文本框，一个用来输出数据，两个用来输出奇偶数个数属性设置为：Text1：Text空Text2：Text空Text3：Text空2.使用三个标签，三个标签都用来显示题目信息属性设置为：Label1：Caption：产生的随机数为Label2：Caption：产生的随机数中奇数的个数为Label3：Caption：产生的随机数中偶数的个数

2、为3.使用两个命令按钮，第一个命令按钮用来控制十个随机数的输出，第二个命令按钮用来控制奇数和偶数的个数的输出属性设置：Command1:Caption产生随机数Command2:Caption奇偶数个数4.用Randomize随机产生1-100之间的数，存放在一维数组中，利用循环完成10个数的输出！5.用For……Next语句求出奇偶数的个数二、程序功能1.用Randomize随即产生1-100之间的数，存放在一维数组中2.用For……Next产生奇偶数的个数三、程序代码Dima(10)AsIntegerPrivateSubCommand1_

3、Click()Text1.Text=""RandomizeFori=1To10a(i)=Int(Rnd*100+1)Text1.Text=Text1.Text+Str(a(i))NextiEndSubPrivateSubCommand2_Click()Dimcount%Count=0Fori=1To10Ifa(i)Mod2=1Thencount=count+1EndIfNextiText2.Text=countText3.Text=10-countEndSub四.运行界面五、总结VB程序设计非常好，随见及所得！在这个程序的设计中，我们运用了随

4、机数的产生（用Randomize），运用了一维数组和For……Next语句。在以后的学习中，启发我们多多思考，在我们五人共同的努力下，终于完成了这个程序设计！六、新任务一副扑克牌，随机抽取二张，其中都是红桃的概率，一张红桃的概率，一张红桃都没有的概率!