VB语言程序的设计001.doc

. . . 第一题 设计程序，从文本框中输入一个整数n（n500），单击“处理”按钮是产生3个1~n的随机整数，并分别显示在3个标签中。 程序如下： Private?Sub?Form_Load()???????????‘加载????Dim?n?As?Integer,?a?As?Integer? ‘定义随机变量????Dim?b?As?Integer,?c?As?Integer?? Randomize???????????‘使rnd函数产生不同序列的随机数????n?=?Val(InputBox(请输入一个正整数n（n500）))????inputbox函数产生对话框供用户输入数值????????a?=?Int(n?*?Rnd)???????‘在小于n的数内随机选取一树值“下同”????b?=?Int(n?*?Rnd)????c?=?Int(n?*?Rnd)????????Label1.Caption?=?a?????? ‘随机选取的数值n显示在标签上面“下同”????Label2.Caption?=?b????Label3.Caption?=?cEnd?Sub?????????????????‘结束运行 第二题 设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中?????[提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数. 程序如下： Private?Sub?Command1_Click()?????????? 执行???Dim?m?As?Single,?a?As?Single???????定义变量为单精度???Dim?b?As?Single,?c?As?Single???Dim?d?As?Single?????a?=?Val(Text1.Text)???? 为变量赋值?????b?=?Val(Text2.Text)?????c?=?Val(Text3.Text)?????d?=?Val(Text4.Text)???If?a??b?Then?? ? ‘利用if与else语句来判断大小a与b的大小?????????m?=?a??? ???????? 将较大值赋给m???Else:?m?=?b???End?If??????If?c??m?Then?????? 上步判断出的较大值与第三个值c进行比较?????????m?=?c???Else:?m?=?m???End?If??????If?d??m?Then?????????m?=?d???Else:?m?=?m???End?If?????????????结束if语句???Text5.Text?=?m?? ?????在文本框5中显示最大值mEnd?Sub??????????? ? 结束???Private?Sub?Form_Load()???????加载???Text1.Text?=?????????刚运行时文本内容为空“下同”???Text2.Text?=????Text3.Text?=????Text4.Text?=????Text5.Text?=????End?Sub??????????????? 结束 第三题 设计程序，在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。列表框中已有5个列表项，依次为“表项1”~“表项5”。程序运行后，可以通过多次单击来选中多个列表项。单击“显示”按钮，在窗体上输出所有选中的列表项，如图5.13所示 程序如下： Private?Sub?Form_Load()??????????????????????? Show????List1.AddItem?表项一????List1.AddItem?表项二????List1.AddItem?表项三????List1.AddItem?表项四????List1.AddItem?表项五End?SubPrivate?Sub?command1_click()???? “显示”??For?i?=?0?To?List1.ListCount?-?1???逐项判断??? If?List1.Selected(i)?Then 选中的的表项显示在窗体上???????Print?List1.List(i) ??????