第一题
设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n的随机整数，并分别显示在3个标签中。
程序如下：
Private Sub Form_Load()           ‘vb程序设计课本加载
    Dim n As Integer, a As Integer  ‘定义随机变量
    Dim b As Integer, c As Integer
        Randomize           ‘使rnd函数产生不同序列的随机数
    n = Val(InputBox("请输入一个正整数n（n<500）"))    'inputbox函数产生对话框供用户输入数值
   
    a = Int(n * Rnd)       ‘在小于n的数内随机选取一树值“下同”
    b = Int(n * Rnd)
    c = Int(n * Rnd)
   
    Label1.Caption = a        ‘随机选取的数值n显示在标签上面“下同”
    Label2.Caption = b
    Label3.Caption = c
End 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中显示最大值m
End 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()                       

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。