VB程序设计期中试题
一、单项选择题（每题1.5分，共45分）
1．执行以下程序段后，变量c$的值为_______
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,11)
A) Visual BASIC Programing B) Quick Basic Programing
C) QUICK Basic Programing D) Quick BASIC Programing
2．以下叙述中错误的是_________
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定
C）文本框获得焦点后将触发gotfocus事件
D）控件的名称可以由编程人员设定
3．设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是________
A）True B）False C）1 D）出错信息
4．设a=6，则执行x=iif(a>5,-1,0)后，x的值为______________
A) 5 B) 6 C) 0 D) -1
5． 在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：
Private Sub Command1_Click()
+
Print a
End Sub
Private Sub Form_Load()
=""
=""
End Sub
程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为________
A) 444 B) 321123 C) 123321 D) 132231
6．要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句
A) Option Base 0 B) Option Explicit
C) Option Base 1 D) Option Compare
7．\、and、Mod、^等4个运算符中，优先级最低的是_____________
A) \ B) and C) Mod D) ^
8．如果要改变窗体的标题，则需要设置的属性是_________
A）Caption B）Name C）BackColor D）BorderStyle
9．阅读下面程序段,并选择输出结果_____________
M=0
FOR J=1 TO 3
FOR K=1 TO J
FOR L=K TO 3
M=M+1
NEXT L
NEXT K
NEXT J
PRINT M
A)12 B)14 C)10 D)27
10．下面程序运行后,输出的值是________.
A$="4" : B$="5" :C$="6"
FOR J=1 TO 2
A$=B$ : B$=C$ : C$=A$
NEXT J
PRINT A$+B$+C$
A)15 B)645 C)545 D)656
11．下面程序运行后,输出的结果是________.
FOR J=1 TO 4
PRINT TAB(2*J); (J+5)*2
NEXT J
A)12 B)12 C)12141618 D)12 14 16 18
14 14
16 16
18 18
12．下面程序运行时输出的结果是________.
FOR J=4TO 1 STEP-1
PRINT TAB(8-J);
FOR K=4 TO 1 STEP -1
PRINT "*";
NEXT K
PRINT
NEXT J
A) **** B) **** C) * * * * D)* * * *
*** **** * * * * * * * *
** **** * * * * * * * *
* **** * * * * * * * *
13.下面程序运行时输出的结果是________.
A=INT(RND)
ON A+2 GOTO 30,40,50,60
30 PRINT 10;
40 PRINT 20;
50 PRINT 30;
60 PRINT 40;
A)10 20 30 40 B)20 30 40 C)30 40 D)40
14．Dim sum(1 to 3,20) as integer声明了含有_______个元素的数组
A. 20 B. 3×21 C. 3×20 D. 4×20
15．将相同类型的一组控件的_______属性设为相同，则产生控件数组。
A. text B. index C. caption D. name
16．关于Redim语句，说法正确的是________
A．Redim语句可以在过程外出现
B．Redim语句可以对已经定义的固定数组重声明
C．可以对同一个动态数组多次使用Redim重新定义其大小
D．一般情况下，Redim语句可以改变动态数组的数据类型
17．关于Load和Unload语句，说法不正确的是________printform
A．Unload可以将窗体从内存中卸载
B．Unload可以删除用Load添加的控件元素
C．Unload可以删除控件数组
D．Load可以在运行时添加控件元素
18．假如有以下语句：
Option Base 1
Dim a(0 to 5) as Integer,b(10) as integer
不会出现下标越界错误的是________
A. Print a(0) B. Print a(6) C. Print b(0) D. Print b(11)
19．在窗体上画一个命令按钮（其Name属性为Command1），编写代码如下：
Option Base 1
Private Sub Command1_Click( )
Dim A,I%,j%,s%
A=array(1,2,3,4)
J=1
For I=4 to 1 step –1
S=s+a(I)*j
J=j*10
Next I
Print s
End Sub
运行并单击按钮，输出结果是_______
A. 4321 B. 12 C. 34 D. 1234
20．以下函数值不返回-8的是_______
A. Cint(-7.4) B. Fix(-8.9) C. Int(-7.1) D. Round(-7.6)
21．下面程序运行后,输出的结果是:
1 4 7
2 5 8
3 6 9
请选择一正确的内容,将空格处补充完整.
FOR J=1 TO 3
FOR K=1 TO 3
A(J,K)=_____________
PRINT A(J,K);
NEXT K
PRINT
NEXT J
A)J+K B)(J-1)*3+K C)J+(K-1)*3 D)J*K
22．设有以下循环结构:
Do
循环体
Loop While <条件>
则以下叙述中错误的是__________
A）若"条件"是一个为0的常数，则一次也不执行循环体
B）"条件"可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用Exit Do语句
D）如果"条件"总是为True，则不停地执行循环体
23．在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______________
A）89 B）99 C）23 D）77
24．在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是____________
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论