1、.第一题设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生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（n<500）")) 'in
2、putbox函数产生对话框供用户输入数值 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
3、个文本框输入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
4、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
5、: 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 = "" T
6、ext4.Text = "" Text5.Text = "" End Sub '结束第三题设计程序，在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。列表框中已有5个列表项，依次为“表项1”~“表项5”。程序运行后，可以通过多次单击来选中多个列表项。单击“显示”按钮，在窗体上输出所有选中的列表项，如图5.13所示页脚.程序如下：Private Sub Form_Load() Show List1.AddItem "表项一"
7、 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) End IfEndSub页脚.第四题
