VB练习题【DOC精选】.docVIP

菜单设计（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 格式 MChar 无 H 无 对齐 MAlign 格式 A 无 居左 MLeft 对齐 L CtrL+L 居右 MRight 对齐 R CtrL+R 居中 MCenter 对齐 M CtrL+M 2.编写程序实现以下功能：，单击“计算”（如图1），弹出（如图2所示）输入框，在输入框中输入一半径数（如10），则圆的面积就会在标签（label1）中显示出来（如图3）。（10分） 图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 = 小红 And b = 2011VBKS Then 3分 Y=MsgBox (欢迎参加VB考试! ) 2分 Else 1分 Y=MsgBox (输入数据有误！请重新输入……, 1 + 48, 数据确认框：) 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(请输入一个整数！)) 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 Sub 5.编写程序实现以下功能：在文本框中输入一个整数，单击“确定”按钮（如图1），如果输入的数能被5整除，则弹出信息框“此数能被5整除”（如图2），否则弹出信息框“这是一个不能被5整除的整数……”如图3。 (10分) 图1 图2 图3 Private Sub Command1_Click() Dim x As Integer 1 分 x = Val(Tex