Visual Basic语言程序设计笔试样卷Word文档格式.docx
《Visual Basic语言程序设计笔试样卷Word文档格式.docx》由会员分享，可在线阅读，更多相关《Visual Basic语言程序设计笔试样卷Word文档格式.docx（16页珍藏版）》请在冰豆网上搜索。
可以同时删除字符串前导和尾部空白的函数是
A）Ltrim
B）Rtrim
C）Trim
D）Mid
（5）
表达式4+5\6*7/8Mod
9的值是
A）4
B）5
C）6
D）7
（6）
如果在立即窗口中执行以下操作：
a=8
<
CR>
（<
是回车键，下同）
b=9
print
a>
b
则输出结果是
A）-1
B）0
C）False
D）True
（7）
以下语句的输出结果是
PrintFormat$（32548.5,“000,000.00”）
A）32548.5
B）32,548.5
C）032,548.50
D）32,548.50
（8）
执行以下程序段后，变量c$的值为
a$=“VisualBasicPrograming”
b$=“Quick”
c$=b$&
UCase（Mid$（a$,7,6））&
Right$（a$,11）
A）VisualBASIC
Programing
B）Quick
Basic
C）QUICK
D）Quick
BASIC
（9）
为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A）Value
B）Default
C）Cancel
D）Enabled
（10）为了把焦点移到某个指定的控件，所使用的方法是
A）SetFocus
B）Visible
C）Refresh
D）GetFocus
（11）设a=6，则执行x=IIf（a>
5,-1,0）后，x的值为
A）5
B）6
C）0
D）-1
（12）执行下面的程序段后，x的值为
x=5
For
i=1To20Step2
x=x+i\5
Nexti
A）21
B）22
C）23
D）24
（13）在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
i=1To4
x=4
j=1To3
x=3
k=1To2
x=x+6
Next
k
j
i
Print
x
EndSub
程序运行后，单击命令按钮，输出结果是
A）7
B）15
C）157
D）538
（14）在窗体上画一个命令按钮，然后编写如下事件过程：
PrevateSubCommand1_Click（）
x=0
DoUntilx=-1
a=InputBox（“请输入A的值”）
a=Val（a）
b=InputBox（“请输入B的值”）
b=Val（b）
x=InputBox（“请输入x的值”）
x=Val（x）
a=a+b+x
Loop
Printa
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为
A）2
B）3
C）14
D）15
（15）在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
a=Text1.Text+Text2.Text
PrivateSubFormm_Load（）
Text1Text="
"
Text2Text="
Endsub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为
A）444
B）321123
C）123321
D）132231
（16）阅读下面的程序段：
i=1To3
j=1Toi
Fork=jTo3
a=a+1
Nextk
Nextj
执行上面的三重循环后，a的值为
A）3
B）9
D）21
（17）在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
PrivateSubForm_Load（）
Ttext1.Text="
Text1.SetFocus
i=1To10
Sum=Sum+i
Text1.Text=Sum
上述程序的运行结果是
A）在文本框Text1中输出55
B）在文本框Text1中输出0
C）出错
D）在文本框Text1中输出不定值
（18）在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
DoWhilex<
50
x=（x+2）*（x+3）
n=n+1
Text1.Text=Str（n）
Text2.Text=Str（x）
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A）1和0
B）2和72
C）3和50
D）4和168
（19）用下面语句定义的数组的元素个数是
DimA（-3To5）AsInteger
A）6
B）7
C）8
D）9
（20）以下程序的输出结果是
Option
Base1
Dima（10）,p（3）AsInteger
k=5
Fori=1To10
a（i）=i
Fori=1To3
p（i）=a（i*i）
NextI
k=k+p（i）*2
Printk
A）33
B）28
C）35
D）37
（21）在窗体上面画一个命令按钮，然后编写如下事件过程：
OptionBase1
PrivateSubCommandl_Click（）
Dima
a=Array（1,2,3,4）
j=1
i=4ToStep-1
s=s+a（i）*j
j=j*10
Prints
End
Sub
运行上面的程序，单击命令按钮，其输出结果是
A）4321
B）12
C）34
D）1234
（22）在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
PrivateSubCommandl_Click（）
Dima（4,4）
Fori=1To4
Forj=1To4
a（i,j）=（i-1）*3+j
Fori=3To4
Forj=3To4
Printa（j,i）;
Print
程序运行后，单击命令按钮，其输出结果为
9
B）710
C）811
D）9
12
710
811
912
1013
（23）假定有如下的Sub过程：
SubS（xAsSingle,yAsSingle）
t=x
x=t/y
y=tMody
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommandl_Click（）
DimaAsSingle
DimbAsSingle
a=5
b=4
Sa,b
Printa,b
程序运行后，单击命令按钮，输出结果为
4
B）11
C）1.25
D）1.25
1
（24）阅读程序：
FunctionF（aAsInteger）
b=0
Staticc
b=b+1
c=c+1
f=a+b+c
EndFunction
PrivateSubCommandl_Click（）
DimaAsInteger
a=2
Fori=1To3
PrintF（a）
运行上面的程序，单击命令按钮，输出结果为
B）4
C）4
D）4
4
5
6
7
升级会员 