VB上机操作题综合 - 图文(6)

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