VB编程练习题.doc

《VB编程练习题.doc》由会员分享，可在线阅读，更多相关《VB编程练习题.doc（12页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1. 菜单设计（10分）请设计一个如图1与图2所示的下拉菜单，各菜单的名称属性如表2所示，要求使用菜单编辑器设置各级菜单及相应热键。图2 文件下拉菜单图3 格式下拉菜单 表 2 窗体及菜单属性值表控件名称（Name）属性标题（Caption）属性窗体form1编辑器标题名称上级菜单标题热键快捷键文件Mfile无F无新建MNew文件NCtrL+N打开MOpen文件OCtrL+O保存MSave文件SCtrL+S关闭MClose文件CCtrL+C分割线MSp1文件无无退出MExit文件ECtrL+E格式MChar无H无对齐MAlign格式A无居左MLeft对齐LCtrL+L居右MRight对齐RCt

2、rL+R居中MCenter对齐MCtrL+M2.编写程序实现以下功能：，单击“计算”（如图1），弹出（如图2所示）输入框，在输入框中输入一半径数（如10），则圆的面积就会在标签（label1）中显示出来（如图3）。（10分） 图1 图2 图3Private 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 Sub3.编写

3、程序实现以下功能：在文本框中输入用户名“小红”，密码框中输入“2011VBKS”，单击“确定”按钮（如图1），如果输入数据正确，则弹出信息框“欢迎参加VB考试!”（如图2），输入数据不正确，则弹出警告框“输入数据有误！请重新输入”如图3。 (10分) 图1 图2 图3Private Sub Command1_Click()a=Text1.Textb= Text2.TextIf a = 小红 And b = 2011VBKS Then 3分Y=MsgBox (欢迎参加VB考试! ) 2分Else 1分Y=MsgBox (输入数据有误！请重新输入, 1 + 48, 数据确认框：) 3分End If

4、 1分End Sub4.编写程序实现以下功能：程序运行时，单击窗体，弹出如图1所示对话框，在对话框中输入一个整数，系统判断是奇数或者偶数，若为奇数则显示如图3中所示结果，若为偶数如图2中显示结果。（10分）图1图2Private Sub Form_Click()Dim x As Integer 1分x = Val(InputBox(请输入一个整数！) 2分 if x mod 2=0 then 2分Print x= & Str(x); x是一个偶数！ 2 分Else 1 分Print x= & Str(x); x是一个奇数！ 1 分End If 1 分End Sub5.编写程序实现以下功能：在文

5、本框中输入一个整数，单击“确定”按钮（如图1），如果输入的数能被5整除，则弹出信息框“此数能被5整除”（如图2），否则弹出信息框“这是一个不能被5整除的整数”如图3。 (10分)图1图2图3Private 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整除的整数, 1 + 48, 数据确认框： 2分End If 1分End Sub1使用Rnd函数生成10个两位数的随机整数，并放于picture

6、1中，单击命令按钮，找出这10个数中的最大数与最小数，并降序重新排列这10个数。将运行结果分别置于text1、text2以及picture2中（如图1中）。（10分） 参考答案：Option Base 1Private 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.2

7、5分 *初始化随机数（* 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 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

8、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.25End Sub2、使用Rnd函数生成10个 0100之间的随机整数，并在窗体加载时在Label2中显示，当单击“升序排序”后以升序排列在Label4中显示。窗体格式如图（16分） 参考程序：Dim a(1 To 10) As Integer 1分Private Sub

9、 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 jNext i输出排序后的数据序列 2分For i = 1 To 10 Label4.Caption = Label4.Caption & a(i) & Next iEnd SubPrivate Sub Form_Load()Dim i, j As Integer For i = 1 To 10 a(i)

10、= Int(Rnd * 101) Next i 输出原始数据 2分For i = 1 To 10 Label2.Caption = Label2.Caption & a(i) & Next iEnd Sub3编程实现如图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

11、 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分

12、 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 Sub4、编写一个能计算全班成绩的总

13、分（置入Label5中）、平均分（置入Label6中）、最高分（置入Label7中）、最低分（置入Label8中）并能统计各分数段059（ 置入Text1中），6084（ 置入Text2中），85100（ 置入Text3中）人数的程序代码，人数由输入框输入，成绩由系统随机产生，下图为参考界面。（10分）参考程序：界面设计Private Sub Command1_Click()Dim a() As Integer（0.25分）Dim ave As String（0.25分）Dim i, sum, max, min, s1, s2, s3 As Integer（0.25分）sum = 0: max

14、 = 0: min = 110（0.25分）n = Val(InputBox(请输入班级人数：)（0.5分）ReDim a(n)（0.5分）For i = 1 To n（0.25分） a(i) = Int(100 * Rnd + 1)（0.5分）Next（0.25分For i = 1 To n（0.25分） sum = sum + a(i)（0.5分） If a(i) = 60 And a(i) = 85 Then s3 = s3 + 1（0. 5分） If max a(i) Then min = a(i)（0.5分）Next i（0.25分）ave = sum / n（0.5分）Label5

15、.Caption = sum（0.5分）Label6.Caption = ave（0.5分）Label7.Caption = max（0.5分）Label8.Caption = min（0.5分）Text1 = s1（0.25分）Text2 = s2（0.25分）Text3 = s3（0.25分）End Sub5 三个数中的最大数Private Sub Command1_Click()Dim max As IntegerIf max Val(Text2) Then max = Val(Text2)If max Val(Text3) Then max = Val(Text3)Label4 = 最大值是 & max End Sub