VB上机操作题综合 - 图文 下载本文

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