没有合适的资源?快使用搜索试试~ 我知道了~
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币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功