VB程序设计上机练习题1
—、设计程序界面如图1所不。程序运行时，单击"生成矩阵按钮Command】，在图片櫃Picture1
中生成由3位正整数组成的5x5矩阵；随后单击??查找最大值?按钮Command?,在图片框
Picture?中显示矩阵中的最大值。（存盘工程文件名为Exllnnnn.\l>p,窗体文件名为
Exllnnnn.Fnn,其中nmm为编号的右4位〉
图1
二、绸写程序，从亩体工作区左上角开始，沿主对角线画出S个相切的红色矩形块，运行结 果如图J所示。（存盘工程文件名为Exl2nnnnA"bp>窗体文件名为Exl2nnnn.Fnn?其中IHHUI 为编号的右4位〉
图3
三、程序界面如图3所示，启动运行后，在文本框Textl中依次输入同学的姓名、身高和体重, 数擔项之间以空格分开，然后单击??查找^按钮，在标签Label：中显示最胖者的姓名〔体重身 高
的值最大者）。（己知程序代码有错，请根摇程序功能调试程序。将修改正确的程序存盘， 工程文件名为Ex 13111111115^,窗体文件名为ExlSnnnn.Fnn,其中nnnn为编号的右4位）
Prix-ate Sub Command 1 _Click()
Dim a As Integer serror a = Split(Textl)
Max = 0 : Order = 0
For i = LBound(a) To UBound(a) Step 2 'error x = a(i - 2), a(i + 1)
If x < Max Then *error x=Max 6error Order = i
End If
Next i
Label2 ='最胖的人是：'& Ordw serror
End Sub
VB程序设计上机练习题1参
一、参 Label2="最胖的人是：“&
Dinia(25) As Integer a(Order)
PrivateSub Commandl_ClickQ EndSub
Randomize PrivateSub Command2_Click() For i = 1 To 25 Max= a(l)
a(i)= hitiRnd * 900+ 100) Fori= 2 To 25
Picture!.Printa①； Ifa①> Max Then Max = a①
Ifi Mod 5=0 Tlien Picture LPrint Nexti
Nexti Picture2.Print"最大值Max
EndSub EndSub二、参
PrivateSub Fonn_Click()
x= 0
v= 0
J
Me.ForeColor= vbRed
Fori = 1 To S
Line(x, y)-(x 十400,y 一300)ss
BF | |
三、参
PrivateSub C omni an d 1 _Cli ck 0
Dima As \"ariant
a= Split(Textl)
Max= 0
Order= 0
Fori = L Bound (a) To UBound(a) Step 3
x= a(i - 2) ia(i 一1)
Ifx > Max Then
Max= x
Order= i
EndIf
Nexti