VB练习题(3)

2. 菜单设计（7分）

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

图2 文件下拉菜单

图3 格式下拉菜单

表 2 菜单属性值表 标题 文件 新建 打开 保存 关闭 分割线 退出 格式 居左 居右 居中 分割线 字体

评分标准： 标题 文件 新建 打开 保存 关闭 名称 Mfile MNew MOpen MSave MClose 上级菜单标题 无 文件 文件 文件 文件 热键 F N O S C 快捷键 无 CtrL+N CtrL+O CtrL+S CtrL+C 评分标准 0.5 0.5 0.5 0.5 0.5 第 11 页 共 14 页

名称 Mfile MNew MOpen MSave MClose MSp1 MExit MChar MLeft MRight MCenter MSp2 MFont 上级菜单标题 热键 快捷键 无 文件 文件 文件 文件 文件 文件 无 格式 格式 格式 格式 格式 F N O S C 无 E H L R M 无 T 无 CtrL+N CtrL+O CtrL+S CtrL+C 无 CtrL+E 无 CtrL+L CtrL+R CtrL+M 无 CtrL+T 分割线 退出 格式 居左 居右 居中 分割线 字体 MSp1 MExit MChar MLeft MRight MCenter MSp2 MFont 文件 文件 无 格式 格式 格式 格式 格式 无 E H L R M 无 T 无 CtrL+E 无 CtrL+L CtrL+R CtrL+M 无 CtrL+T 0.75 0.5 0.5 0.5 0.5 0.5 0.75 0.5 3、For循环语句编写以下程序：

求：S=1+(1*2)+(1*2*3)+(1*2*3*4)+……+(1*2*3*……*6)

参考程序：

Private Sub Commond1_Click()

Dim s As Integer

Dim j As Integer 0.5分 Dim i As Integer 0.5分 j = 1: s = 0 1分 For i = 1 To 6 1分 j = j * I 1.5分 s = s + j 1分 Next I 1分 Text1.text = s 1分

End Sub 或

Private Sub Commond1_Click()

Dim s As Integer 0.5分 Dim j As Integer 0.5分

第 12 页 共 14 页

Dim i As Integer 0.5分 j = 1: s = 0 1分 For i = 1 To 6 1分 For j = 1 To i 1.5分 s = s* j 1分 Next j 0.5分 Next i 0.5分 text1.text = s 1分

End Sub

4、

使用Rnd函数生成5个 [0~100]之间的随机整数，找出这5个数中的最大数与最小数，并以升序重新排列这5个数。窗体格式如图

参考答案：

‘*****界面设计（1分）************** Option Explicit Option Base 1

Dim a(5) As Integer

Private Sub Command1_Click()

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

Dim s As String ‘存储排序后的5个数

‘****求最大最小值（2分）********** max = 0 min = 100

For i = 1 To 5

If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i

第 13 页 共 14 页

Text1.Text = max

Text2.Text = min

‘************************ ‘*****排序（2分）********* For i = 1 To 5

For j = i + 1 To 5

If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i

For i = 1 To 5

s = s + Str(a(i)) Next i

Label4.Caption = s ‘**************** End Sub

Private Sub Form_Load() Dim i As Integer Dim s As String

Label3.FontSize = 18 Label4.FontSize = 18 Text1.FontSize = 18 Text2.FontSize = 18

‘*****初始化随机数（2分）*******

For i = 1 To 5

a(i) = Int(Rnd * 101) s = s + Str(a(i)) Next i

Label3.Caption = s

‘******************************** End Sub

第 14 页 共 14 页