- 18
- 0
- 约2.43千字
- 约 4页
- 2020-10-06 发布于山东
- 举报
第 PAGE 2 页 共 NUMPAGES 4 页
第十章 VBA程序设计检测题
1、在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:
Private Sub Commandl_Click()
a = 75
If a 60 Then
k = 1
ElseIf a 70 Then
k = 2
ElseIf a 80 Then
k = 3
ElseIf a 90 Then
k = 4
End If
MsgBox k
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果是:
2、在窗体中添加一个名称为Command0的命令按钮,然后编写如下事件代码:
Private Sub Command0_Click()
a = 75
If a 60 Then
k = 1
MsgBox k
End If
If a 70 Then
k = 2
MsgBox k
End If
If a 80 Then
k = 3
MsgBox k
End If
If a 90 Then
k = 4
MsgBox k
End If
End Sub
窗体打开运行后,单击命令按钮,其程序运行结果是:
3、设有如下窗体单击事件过程:
Private Sub Fom_Click()
a = 1
For I = 1 To 3
Select Case I
Case 1,
您可能关注的文档
最近下载
- 油品储运技师资格考试题库(含答案).pdf VIP
- 人教版七年级上册英语Unit1- 9各单元重点语法知识点汇编(实用,必备!).docx VIP
- 油井施工防渗布施工方案(3篇).docx VIP
- 2026年59个重大事故隐患判定标准汇编.docx VIP
- 成人日间手术麻醉评估临床实践指南(2026版)解读.pptx VIP
- 2027年度国家知识产权局专利局专利审查协作河南中心招聘专利审查员50名考试备考题库及答案解析.docx VIP
- 奇妙的七巧板 第1课时 认识七巧板与拼图形(教学课件)数学苏教版二年级上册2026秋.pptx
- 2025国家知识产权局专利局专利审查协作河南中心招聘15人笔试备考题库及答案解析.docx VIP
- 改良昏迷恢复量表CRS-R.doc VIP
- 08FJ04 防空地下室固定柴油电站.pdf VIP
原创力文档

文档评论(0)