1、1. 菜单设计（10 分）请设计一个如图 1 与图 2 所示的下拉菜单，各菜单的名称属性如表 2 所示，要求使用菜单编辑器设置各级菜单及相应热键。图 2 文件下拉菜单图 3 格式下拉菜单 表 2 窗体及菜单属性值表控件 名称（Name）属性 标题（Caption）属性窗体 form1 编辑器标题 名称 上级菜单标题 热键 快捷键文件 Mfile 无 F 无新建 MNew 文件 N CtrL+N打开 MOpen 文件 O CtrL+O保存 MSave 文件 S CtrL+S关闭 MClose 文件 C CtrL+C分割线 MSp1 文件 无 无退出 MExit 文件 E CtrL+E格式 MCh
2、ar 无 H 无对齐 MAlign 格式 A 无居左 MLeft 对齐 L CtrL+L居右 MRight 对齐 R CtrL+R居中 MCenter 对齐 M CtrL+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(
3、InputBox(“请输入圆的半径：“, “ 输入圆的半径提示框 “) 3 分s = pi * r 2 2 分Label2.Caption = s 1 分End Sub3.编写程序实现以下功能：在文本框中输入用户名“小红” ，密码框中输入“2011VBKS” ，单击“确定”按钮（如图 1） ，如果输入数据正确，则弹出信息框“欢迎参加 VB 考试!”（如图 2） ，输入数据不正确，则弹出警告框“输入数据有误！请重新输入”如图 3。 (10 分)图 1图 2 图 3Private Sub Command1_Click()a=Text1.Textb= Text2.TextIf a = “小红“ An
4、d b = “2011VBKS“ Then 3 分Y=MsgBox (“欢迎参加 VB 考试 !“ ) 2 分Else 1 分Y=MsgBox (“输入数据有误！请重新输入“, 1 + 48, “数据确认框：“) 3 分End If 1 分End Sub4.编写程序实现以下功能：程序运行时，单击窗体，弹出如图 1 所示对话框，在对话框中输入一个整数，系统判断是奇数或者偶数，若为奇数则显示如图 3 中所示结果，若为偶数如图 2 中显示结果。 （10 分）图 1 图 2图 3Private Sub Form_Click()Dim x As Integer 1 分x = Val(InputBox(“
5、请输入一个整数！“) 2 分 if x mod 2=0 then 2 分Print “x=“ “ x 是一个偶数！“ 2 分Else 1 分Print “x=“ “ x 是一个奇数！“ 1 分End If 1 分End Sub5.编写程序实现以下功能：在文本框中输入一个整数，单击“确定”按钮（如图 1） ，如果输入的数能被 5 整除，则弹出信息框“此数能被 5 整除” （如图 2） ，否则弹出信息框“这是一个不能被 5 整除的整数”如图 3。 (10 分)图 1 图 2 图 3Private Sub Command1_Click()Dim x As Integer 1 分 x = Val(Te
6、xt1.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 个两位数的随机整数，并放于 picture1 中，单击命令按钮，找出这 10 个数中的最大数与最小数，并降序重新排列这 10 个数。将运行结果分别置于text1、text2 以及 picture2 中（如图 1 中） 。 （10 分）参考答案：Option Base 1Private Sub Comman
7、d1_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)
8、 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 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.25For i =
9、1 To 10 0.25Picture2.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 Command1_Click() Dim i, j, t As Integer 选择法排序 7 分For i = 1 To 9 For j = i + 1 To 10If a(i) a(j) Thent =
10、a(j): a(j) = a(i): a(i) = tEnd IfNext jNext i输出排序后的数据序列 2 分For i = 1 To 10 Label4.Caption = Label4.Caption 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 分Picture
11、2.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) = 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.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 Sub
