没有合适的资源?快使用搜索试试~ 我知道了~
首页vba编程练习题+近年真题.doc
vba编程练习题+近年真题.doc
14 下载量 50 浏览量
更新于2023-03-16
评论
收藏 780KB DOC 举报
VBA编程练习题 1、假定有以下循环结构 Do Until 条件 循环体 Loop 则正确的叙述是 A)如果“条件”值为0,则一次循环体也不执行 B)如果“条件”值为0,则至少执行一次循环体 C)如果“条件”值不为0,则至少执行一次循环体 D)不论“条件”是否为“真”,至少要执行一次循环体
资源详情
资源评论
资源推荐
VBA编程练习题
1、假定有以下循环结构
Do Until 条件
循环体
Loop
则正确的叙述是
A)如果“条件”值为0,则一次循环体也不执行
B)如果“条件”值为0,则至少执行一次循环体
C)如果“条件”值不为0,则至少执行一次循环体
D)不论“条件”是否为“真”,至少要执行一次循环体
2.设有以下窗体单击事件过程:
Private Sub Form_Click( )
a = 1
For i = 1 To 3
Select Case i
Case 1, 3
a = a + 1
Case 2, 4
a = a + 2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后,单击窗体,则消息框的输出内容是 5 。
3. 在窗体中添加一个命令按钮(名为Command1)和一个文本
框(名为text1),然后编写如下事件过程:
Private Sub Command1_Click( )
Dim x As Integer, y As Integer, z As Integer
x = 5 : y = 7 : z = 0
Me!Text1= ""
Call p1(x, y, z)
Me!Text1 =z
End Sub
Sub p1(a As Integer, b As Integer, ByVal c As
Integer)
c = a + b
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的内容是 。
4. 以下程序段运行结束后,变量 x 的值为
x=2
y=4
Do
x=x*y
y=y+1
Loop While y<6
A)4 B)40 C)8 D)20
5. 在窗体上添加一个命令按钮(名为 Command1),然后编写
如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是
A)7 B)15 C)157 D)8
6. 设有如下代码:
x=1
do
x=x+3
loop until >=10 或 > 7
运行程序,要求循环体执行3次后结束循环,在空白处填入适当语
句。
7. 在Access中,DAO的含义是:
A. 开放数据库互连应用编程接口 B. 数据库访问对象
C. Active数据对象 D. 数据库动态链接库
8. 在Access中,ADO的含义是:
A. 开放数据库互连应用编程接口 B. 数据库访问对象
C. Active数据对象 D. 数据库动态链接库
9. 在窗体中有一个标签Lb1和一个命令按钮Command1,事件
代码如下:
Option Compare Database
Dim a As String*10
Private Sub Command1_Click()
a="1234"
b=Len(a)
Me.Lb1.Caption=b
End Sub
打开窗体后单击命令按钮,窗体中显示的内容是
A. 4 B. 5 C. 10 D. 40
10. 在窗体中使有一个文本框(名为n)接受输入的值,有一个命
令按钮run,事件 代码 如下:
Private Sub run_Click()
result=""
For i=1 To Me!n
For j=1 To(Me!n)+1-i
result=result+"*"
Next j
result=result+Chr(13)+Chr(10)
Next i
MsgBox result
End Sub
打开窗体后,如果通过文本框输入的值为4,单击命令按钮后输
出的图型是 D
11. 在VBA中双精度的类型标识是
A. Integer B. Single C. Double D. Variant
12. 运 行 下 列 过 程 , 当 输 入 一 组 数 据 :
10,20,50,80,40,30,90,100,60,70,输出的
结果应该是
剩余23页未读,继续阅读
qq_39401675
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- ExcelVBA中的Range和Cells用法说明.pdf
- 基于单片机的电梯控制模型设计.doc
- 主成分分析和因子分析.pptx
- 共享笔记服务系统论文.doc
- 基于数据治理体系的数据中台实践分享.pptx
- 变压器的铭牌和额定值.pptx
- 计算机网络课程设计报告--用winsock设计Ping应用程序.doc
- 高电压技术课件:第03章 液体和固体介质的电气特性.pdf
- Oracle商务智能精华介绍.pptx
- 基于单片机的输液滴速控制系统设计文档.doc
- dw考试题 5套.pdf
- 学生档案管理系统详细设计说明书.doc
- 操作系统PPT课件.pptx
- 智慧路边停车管理系统方案.pptx
- 【企业内控系列】企业内部控制之人力资源管理控制(17页).doc
- 温度传感器分类与特点.pptx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0