VB练习题

1. 菜单设计（10分）

请设计一个如图1与图2所示的下拉菜单，各菜单的名称属性如表2所示，要求使用菜单编辑器设置各级菜单及相应热键。

图2 文件下拉菜单

图3 格式下拉菜单

表 2 窗体及菜单属性值表 控件 名称（Name）属性 标题（Caption）属性 窗体

标题 文件 新建 打开 保存 关闭 分割线 退出 格式 对齐 居左 居右 居中

2.编写程序实现以下功能：，单击“计算”（如图1），弹出（如图2所示）输入框，在输入框中输入一半径数（如10），则圆的面积就会在标签（label1）中显示出来（如图3）。（10分）

名称 Mfile MNew MOpen MSave MClose MSp1 MExit MChar MAlign MLeft MRight MCenter 上级菜单标题 热键 无 文件 文件 文件 文件 文件 文件 无 格式 对齐 对齐 对齐 F N O S C 无 E H A L R M 快捷键 无 CtrL+N CtrL+O CtrL+S CtrL+C 无 CtrL+E 无 无 CtrL+L CtrL+R CtrL+M form1 编辑器

图1 图2

图3

Private Sub Command1_Click() Const pi As Single = 3.14 2分 Dim r As Single 1分 Dim s As Double 1分

r = Val(InputBox(\请输入圆的半径：\输入圆的半径提示框\ 3分 s = pi * r ^ 2 2分 Label2.Caption = s 1分 End Sub

3.编写程序实现以下功能：在文本框中输入用户名“小红”，密码框中输入“2011VBKS”，单击“确定”按钮（如图1），如果输入数据正确，则弹出信息框“欢迎参加VB考试!”（如图2），输入数据不正确，则弹出警告框“输入数据有误！请重新输入??”如图3。 (10分)

图1

图2 图3

Private Sub Command1_Click() a=Text1.Text b= Text2.Text

If a = \小红\ 3分

Y=MsgBox (\欢迎参加VB考试!\ 2分 Else 1分

Y=MsgBox (\输入数据有误！请重新输入??\数据确认框：\3分 End If 1分 End Sub

4.编写程序实现以下功能：程序运行时，单击窗体，弹出如图1所示对话框，在对话框中输入一个整数，系统判断是奇数或者偶数，若为奇数则显示如图3中所示结果，若为偶数如图2中显示结果。（10分）

图1 图2

图3

Private Sub Form_Click()

Dim x As Integer 1分 x = Val(InputBox(\请输入一个整数！\分 if x mod 2=0 then 2分

Print \是一个偶数！\分 Else 1 分 Print \是一个奇数！\分 End If 1 分 End Sub

5.编写程序实现以下功能：在文本框中输入一个整数，单击“确定”按钮（如图1），如果输入的数能被5整除，则弹出信息框“此数能被5整除”（如图2），否则弹出信息框“这是一个不能被5整除的整数??”如图3。 (10分)

图1 图2 图3

Private Sub Command1_Click()

Dim x As Integer 1 分 x = Val(Text1.Text) 1分 If x Mod 5 = 0 Then 2分 MsgBox \此数能被5整除！\ 2分 Else 1分 MsgBox \这是一个不能被5整除的整数??\数据确认框：\ 2分 End If 1分 End Sub

1使用Rnd函数生成10个两位数的随机整数，并放于picture1中，单击命令按钮，找出这10个数中的最大数与最小数，并降序重新排列这10个数。将运行结果分别置于text1、text2以及picture2中（如图1中）。（10分）

参考答案： Option Base 1

Private Sub Command1_Click()

Dim max As Integer '存储最大数 0.25分 Dim min As Integer '存储最小数 0.25分 Dim i As Integer '循环变量 0.25分 Dim j As Integer '循环变量 0.25分 Dim t As Integer '交换变量 0.25分

Dim a(10) As Integer 0.25分 '*****初始化随机数（*******

For i = 1 To 10 0.5分

a(i) = Int(Rnd * 90 + 10) 1分 Picture1.Print a(i); 0.5分 Next I 0.25分 '*********求最大最小值**********

max = a(1) 0.25分 min = a(1) 0.25分

For i = 2 To 10 0.25分 If max < a(i) Then max = a(i) 1分 If min > a(i) Then min = a(i) 1分 Next I 0.25分

Text1.Text = max 0.25分 Text2.Text = min 0.25分 '********排序（4分）*********

For i = 1 To 9 0.25分 For j = i + 1 To 10 0.25分 If a(i) > a(j) Then 0. 5分 t = a(i): a(i) = a(j): a(j) = t 0.5分 End If 0.25分

Next j 0.25 Next I 0.25 For i = 1 To 10 0.25

Picture2.Print a(i); 0.25分 Next I 0.25 End Sub

2、使用Rnd函数生成10个 [0~100]之间的随机整数，并在窗体加载时在Label2中显示，当单击“升序排序”后以升序排列在Label4中显示。窗体格式如图（16分）

参考程序：Dim a(1 To 10) As Integer 1分

Private Sub Command1_Click() Dim i, j, t As Integer ' 选择法排序 7分 For i = 1 To 9 For j = i + 1 To 10 If a(i) > a(j) Then

t = a(j): a(j) = a(i): a(i) = t End If Next j Next i

‘输出排序后的数据序列 2分 For i = 1 To 10 Label4.Caption = Label4.Caption & a(i) & \Next i End Sub

Private Sub Form_Load()

Dim i, j As Integer For i = 1 To 10 a(i) = Int(Rnd * 101) Next i

‘ 输出原始数据 2分 For i = 1 To 10 Label2.Caption = Label2.Caption & a(i) & \ Next i End Sub

3．编程实现如图1所示的程序代码：随机生成10个100以内的整数置于picture1中，升序后的10个数放在picture2中，降序后的10个数放在picture3中。（10

分）

Option Base 1 0.5分 Private Sub Command1_Click()

Dim a(10) As Integer, i As Integer, j As Integer 0.25分 For i = 1 To 10 0.25分

a(i) = Int(Rnd * 100) 0.5分 Picture1.Print a(i); 0. 5分 Next I 0.25分 For i = 1 To 9 0.25分 For j = i + 1 To 10 0.5分 If a(i) > a(j) Then 0.5分 t = a(i): a(i) = a(j): a(j) = t 0.5分 End If 0.25分 Next j 0.25分 Next I 0.25分 For i = 1 To 10 0.25分 Picture2.Print a(i); 0. 5分 Next I 0.25分 For i = 1 To 9 0.25分 For j = i + 1 To 10 0. 5分 If a(i) < a(j) Then 0.5分 t = a(i): a(i) = a(j): a(j) = t 0.5分 End If 0.25分 Next j 0.25分 Next I 0.25分 For i = 1 To 10 0.25分 Picture3.Print a(i); 0.25分 Next i 0.25分 End Sub 0.25分 Private Sub Command2_Click()

Picture3.Cls 0.25分 Picture2.Cls 0.25分 Picture1.Cls 0.25分 End Sub

4、编写一个能计算全班成绩的总分（置入Label5中）、平均分（置入Label6中）、最高分

（置入Label7中）、最低分（置入Label8中）并能统计各分数段0—59（ 置入Text1中），60—84（ 置入Text2中），85—100（ 置入Text3中）人数的程序代码，人数由输入框输入，成绩由系统随机产生，下图为参考界面。（10分）

参考程序：界面设计： Private Sub Command1_Click() Dim a() As Integer Dim ave As String

Dim i, sum, max, min, s1, s2, s3 As Integer sum = 0: max = 0: min = 110

n = Val(InputBox(\请输入班级人数：\ReDim a(n) For i = 1 To n

a(i) = Int(100 * Rnd + 1) Next

For i = 1 To n

sum = sum + a(i)

If a(i) < 60 Then s1 = s1 + 1

If a(i) >= 60 And a(i) < 85 Then s2 = s2 + 1 If a(i) >= 85 Then s3 = s3 + 1 If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i

ave = sum / n

Label5.Caption = sum Label6.Caption = ave Label7.Caption = max Label8.Caption = min Text1 = s1 Text2 = s2 Text3 = s3 End Sub

（0.25分） （0.25分） （0.25分） （0.25分） （0.5分） （0.5分） （0.25分） （0.5分） （0.25分 （0.25分） （0.5分） （0.25分） （0. 5分） （0. 5分） （0.5分） （0.5分） （0.25分） （0.5分） （0.5分） （0.5分） （0.5分） （0.5分） （0.25分） （0.25分） （0.25分）

本文来源：https://www.bwwdw.com/article/md32.html