a = Array(2, 4, 3, 8, 5, 1) max = a(LBound(a)) Print \
For i = LBound(a) To UBound(a) Print a(i); If max < a(i) Then max = a(i) End If Next Print \
Print \数组元素最大值是：\End Sub
VB程序设计—《随机数组》出题人：胡智鹏
程序运行,单击窗体：
说明：编写程序，当单击窗体时，首先定义有10个元素组成的一维数组，数组元素值为1~9之间随机整数，最后将数组元素输出到窗体
26 / 44
上。 要求：
1.将产生的随机整数存入数组a( ) 中；
2.数据输出使用窗体的Print方法，内容如截图所示。
其中：随机函数 Rnd（）的初值范围是：[ 0 , 1 )
参考代码：
Private Sub Form_Click()
Dim a(1 To 10) As Integer, i As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 9 + 1) Print \Next End Sub
VB程序设计—《违章查询》
出题人：胡智鹏
程序运行,单击窗体：
27 / 44
说明：编写程序，当单击窗体时，根据输入框提示内容输入查询车牌号码，（如：吉BW6850），确定后显示相应查询车辆的违章记录。（违章1次罚款200元）
要求：
1.打开“试题程序”文件夹中的工程文件； 2.数据输入使用InputBox函数，样式如截图所示；
3.需要交纳罚款金额存入变量S中；
4.数据输出使用窗体的Print方法，内容如截图所示。
参考代码：
Private Sub Form_Click() Dim id$, c%, s%, a()
a = Array(\吉BL5898\\吉B99999\\吉BS7845\\吉BK7026\\吉BW6850\\吉BC1346\\吉
BW6850\\吉BS7845\\吉BK7026\\吉BS7845\\吉BK7026\\吉BW6850\\吉BS7845\\吉BW6850\吉BS7845\吉BS7845\吉BK7026\吉BS7845\吉BK7026\吉BL5898\吉BK7026\\吉BS7845\\吉BL5898\\吉BK7026\\吉BS7845\\吉BK7026\\吉BW6850\\吉BC1346\\吉BW6850\吉BS7845\吉BK7026\吉BS7845\吉BK7026\吉BW6850\吉BS7845\吉BS7845\\吉BK7026\吉BW6850\吉BC1346\
id = InputBox(\请输入要查询的车牌号码：\违章记录查询系统\吉BW6850\For i = LBound(a) To UBound(a) If id = a(i) Then c = c + 1 End If
28 / 44
Next s = c * 200
Print \尊敬的 < \车主您好！\Print \到目前为止，您共违章\次。\Print \需缴纳罚款\元人民币。\End Sub
VB程序设计—《登录框》
出题人：胡智鹏
程序运行：
说明：设计如图所示程序界面，当账号文本框失去焦点时判断，若账号不全为数字，则弹出如图所示错误提示，清空账号文本框并将焦点定位到账号文本框以便用户再次输入。
程序使用控件如下：
窗体（Form）1个，标签（Label）2个，文本框（TextBox）2个，按钮（CommandButton）2个。 控件属性设置： Form1 Caption BorderStyle Picture Icon MouseIcon
登录框 3 \\素材\\背景.jpg \\素材\\1.ico \\素材\\mouse01.ico 29 / 44
MousePointer Label1 Caption ForeColor BackStyle Font Text1 Text BackColor Font MaxLength Command1 Caption Default Style BackColor Font 99 账号 白色 0 华文楷体、二号 “空白” 灰色 小三 8 登录 True 1 浅蓝色 小三 Label2 Caption ForeColor BackStyle Font Text2 Text BackColor Font PasswordChar Command2 Caption Cancel Style BackColor Font 密码 白色 0 华文楷体、二号 “空白” 灰色 小三 * 退出 True 1 浅红色 小三 参考代码：
Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then
MsgBox \账号应该为纯数字！\提示框\ Text1 = \ Text1.SetFocus End If End Sub
VB程序设计—《模拟考试》
出题人：胡智鹏
程序运行：
30 / 44