- 1、本文档共8页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB操练测试题
一,选择题。
1.关于KeyPress事件的Keyascii参数,下列说法正确的是( A )。
A.Keyascii参数返回用户所按键的ASCII码
B.Keyascii参数为字符型
C.Keyascii参数与KeyCode参数返回值一样
D.Keyascii参数可以省略
2.以下程序段执行的结果是 ( B )
j=0
Do While j30
j=(j+1)*(j+2)
k=k+1
Loop
Print k;j
A.0 1 B.3 182
C.30 30 D.4 30
3.以下叙述中错误的是(A )
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B.以.BAS为扩展名的文件是标准模块文件
C.窗体文件包含该窗体及其控件的属性
D.一个工程中可以含有多个标准模块文件
4.Private Sub Form_Click()
score = 85
Select Case score
Case Is 60
a$ = F
Case 60 To 69
a$ = D
Case 70 To 79
a$ = C
Case 80 To 89
a$ = B
Case Else
a$ = A
End Select
Print a$
End Sub
程序运行后,单击窗体,则在窗体上显示的是(B )
A.A B.B C.C D.D
5.如果变量a、b、c均为整型,下列程序段的输出结果为(C )
a=2
b=3
c=a*b
Print a “*” b “=” c
A.c=6 B.a*b=c
C.2*3=6 D.a*b=6
6.以下程序段执行的结果是 ( C )。
Private sub command1_click()
Dim x%,y%
X=10 : y=5
Call f1(x,y)
Print x,y
End sub
----------
Sub f1(byval x1 as integer, y1 as integer)
X1=x1+2
Y1=y1+2
End sub
A. 10 5 B. 12 5
C. 10 7 D. 12 7
7.在标签控件上显示变量T的值,语句是( C )。
A.Text1.Value= T B. Text1.Caption =T
C.Label1.Caption= T D. Label1.Value= T
8.设a=3,b=5,则以下表达式值为真的是( B)
A. a=b And b10
B. (ab) Or (b0)
C. (a0) Eqv (b0)
D. (-3+5a) And (b0)
9.下列语句中循环体的执行次数是(A )
a=3 : b=1
For I=a to b step 1
Print I
Next I
A.0 B.1 C.2 D.3
10.以下叙述中错误的是(C )
A.Visual Basic 是事件驱动型可视化编程工具 B.Visual Basic应用程序不具有明显的开始和结束语句 C.Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性 D.Visual Basic中控件的某些属性只能在运行时设置
11. 关于文件的叙述,错误的是( A )。
A. VB提供访问文件的模式有:二进制访问、八进制访问和十六进制访问
B. 文件是相关记录的集合
C. 文件一般指存储在计算机外部介质上一组信息的集合
D. 字符是数据文件中最小的信息单位
12.MouseMove事件的发生是( A )。
A. 伴随鼠标指针移动而连续不断发生的
B. 当鼠标移动时将无限次的被激发
C.每秒激发一次
D.与鼠标灵敏度相关的
13.若要暂时关闭时钟,可通过设置属性( B )为False来实现。
A.Visible B. Enabled
C. Interval D. Timer
14.在窗体中添加一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:
Private Sub Command1_Click()
Dim x, y, z As Integer
x = 10
y = 5
z = 23
Te
文档评论(0)