- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
vb习题vb习题
习题
1) 下列程序运行后,输出的结果为______。
B=1
Do while (b40)
b=b*(b+1)
Loop
Debug.write b
a) 42
b) 39
c) 6
d) 1 答案 Dim a(4) As Integer
Dim b(4) As Integer
For K =0 To 2
a(K+1) =Val(InputBox(“请输入数据:))
b(3-K) =a(K+1)
Next K
Debug.write b(K)
a) 1
b) 3
c) 5
d) 0 答案K=0 a(1)=1 b(3)=a(1)=1
K=1 a(2)=3 b(2)=a(2)=3
K=2 a(3)=5 b(1)=a(3)=5
K=3 循环结束
所以b(k)=b(3)=1
3) 下列程序执行后,变量s的值为______。
Dim s As long ,x As Integer
s=0:x=1
Do While (x10)
s=s+x
x=x+2
Loop
Debug.write s
a) 10
b) 25
c) 50
d) 100 答案Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single)
If Shift=6 And Button=2 Then
Debug.write Hello
End If
End Sub
程序运行后,为了在窗体上输出Hello,应在窗体上执行以下_______操作。
a) 同时按下 Shift 键和鼠标左键
b) 同时按下 Shift 键和鼠标右键
c) 同时按下Ctrl、Alt 键和鼠标左键
d) 同时按下 Ctrl、Alt 键和鼠标右键
答案:D
解析:鼠标的keydown事件中,按下左键button=1按下右键button=2。键盘上按下shift键时shift=1,按下ctrl键时shift=2,按下alt键时shift=4,若同时按下多键,shift值相加。
5) 当变量x=2,y=5时,以下程序的输出结果为____。
Do until y5
x=x*y
y=y+1
loop
debug.write x
a) 2
b) 5
c) 10
d) 20 答案 Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.text=Str(R)
End Sub
a) 字符串15
b) 整数15
c) 字符串5
d) 整数5 答案:A
解析:
I=1 r=1
I=2 r=3
I=3 r=6
I=4 r=10
I=5 r=15
本题关键在于标签框内将显示什么,标签框内显示的是转换为字符串后的“15”
7) 如下有一段不完整的程序段,如果要求该程序执行3次循环,则应在程序中的括号里输入______。
x=1
do
x=x+3
debug.write x
loop until(___)
a) x=8
b) x=8
c) x=7
d) x=7 答案x=1+3=4
x=4+3=7
x=7+3=10
也就是说x=7时还能执行循环,x=10时不能执行循环,所以结束条件可设为x7的某一个条件
8) 若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为______。
If a5 then
if b4 then
c=a-b
else
c=b-a
End if
elseif b3 then c=a*b
else
c=a mod b
End if
a) 2
b) -1
c) 1
d) 6 答案 b) “”
c) “练
您可能关注的文档
- SQL中GROUP_BY的用法SQL中GROUP_BY的用法.pdf
- Starter 2c 实验室PH计说明书Starter 2c 实验室PH计说明书.pdf
- Stata基础命令02_listStata基础命令02_list.pdf
- STM32-CAN总线通信文档STM32-CAN总线通信文档.pdf
- STM32-uCOS移植STM32-uCOS移植.pdf
- STM32系列 的IIC通信例程STM32系列 的IIC通信例程.pdf
- STM32自定义USB设备开发详细流程讲解及全套资料源码下载STM32自定义USB设备开发详细流程讲解及全套资料源码下载.pdf
- STR-30无线通信模块STR-30无线通信模块.pdf
- Struts2入门经典实例Struts2入门经典实例.pdf
- STRATIX_工业交换机介绍STRATIX_工业交换机介绍.pdf
文档评论(0)