第一题
设计程序,从文本框中输入一个整数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)")) '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)
第三题
设计程序,在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。列表框中已有5个列表项,依次为“表项1”~“表项5”。程序运行后,可以通过多次单击来选中多个列表项。单击“显示”按钮,在窗体上输出所有选中的列表项,如图5.13所示
程序如下:
Private Sub Form_Load()
Show
List1.AddItem "表项一"
List1.AddItem "表项二"
List1.AddItem "表项三"
List1.AddItem "表项四"
List1.AddItem "表项五"
End Sub
Private Sub command1_click() '“显示”
For i = 0 To List1.ListCount - 1 '逐项判断
If List1.Selected(i) Then '选中的的表项显示在窗体上
Print List1.List(i)
End If
End Sub
第四题
已知学号由8个数码组成,如11234301,其中从左算起前2位表示年级,第5个数码的表示学生类型,学生类型规定如下: 2——博士生,3——硕士生,4——本科生,5——专科生设计程序,从文本框中输入一个字号,单击命令?按钮时进行处理,然后在另外两个文本框中显示该生的年级及学生类型(中文表示)
程序如下:
第五题
编写程序,用数组建立一个8×8的矩阵,数组元素值是10~99围的随机整数,求解下列问题并输出结果: (1)求所有元素之和;(2)求各行元素之和;(3).求主对角线元素之和;(4)求所有靠边元素之和
程序如下:
Private Sub Form_Load()
Dim a(8, 8) As Integer, i As Integer
Dim j As Integer, s As Integer