[单选题]*
1
-1
TRUE
FALSE（正确答案）
29.Sqr（81）+Fix（3.6）的值是（）。
[单选题]*
12（正确答案）
7
8
9
30.把字符串“123”转换为数值123时应该使用的函数是（）。
[单选题]*
Str
Val（正确答案）
Len
Log
31.表达式Abs（-3）+int（3.14）的值为（）。
[单选题]*
5
6（正确答案）
0.14
6.14
32.Int（Rnd*100）表示的是（）范围内的一个整数。
[单选题]*
[0,100]
[1,99]
[0,99]（正确答案）
[1,100]
33.Len（“Friend”）的值是（）。
[单选题]*
6（正确答案）
7
8
9
34.Int（-3.14）的值是（）。
[单选题]*
-3
-3.14
-4（正确答案）
3.14
35.Right（“banana”,4）的值是（）。
[单选题]*
ba
banana
nana（正确答案）
ban
36.表达式Mid（“Hello”,2,3）的值是（）。
[单选题]*
“ll”
“llo”
“ell”（正确答案）
“ello”
37.语句if3*4>=10thena=1elsea=2执行后，a的值为（ ）。
[单选题]*
12
10
1（正确答案）
2
38.语句Ifx=1Theny=1,下列说法正确的是（ ）。
[单选题]*
x=1和y=1均为赋值语句
x=1和y=1均为关系表达式
x=1为关系表达式，y=1为赋值语句（正确答案）
x=1为赋值语句，y=1为关系表达
39.下面程序段中，（）不是把两个数中的大值赋给变量Ｍax。
[单选题]*
Max=IIf（x>y,x,y）
Ifx>yThenMax=xElseMax=y
Max=x：
Ify>=xThenMax=y
Ify>=xThenMax=yMax=x（正确答案）
40.在Select判断结构中，下面的表述中不正确的是（）。
[单选题]*
Case1
Casea>5（正确答案）
Case3To6
Caseis<10
41.由"Fori=1To16Step3"决定的循环结构被执行（ ）次。
[单选题]*
4
5
6（正确答案）
7
42.Dima（5,5）AsLong定义的数组元素的个数是（ ）。
[单选题]*
10
11
25
36（正确答案）
43.用于清空数组数据的关键字是（）。
[单选题]*
Erase（正确答案）
Lbound
Ubound
Redim
44.下列关于dowhile…loop和do…loopwhile循环执行循环体次数的描述正确的是（）。
[单选题]*
dowhile…loop循环和do…loopwhile循环至少都执行一次
dowhile…loop循环可能不执行，do…loopwhile循环至少执行一次（正确答案）
dowhile…loop循环至少执行一次，do…loopwhile循环可能不执行
dowhile…loop循环和do…loopwhile循环可能都不执行
45.For-Next语句属于程序基本结构中的（ ）。
[单选题]*
顺序结构
循环结构（正确答案）
分支结构
选择结构
46.下列关于ExitFor的说法，正确的是（）。
[单选题]*
它可以退出任何类型的循环
一个循环只能有一个ExitFor
每个循环必须有ExitFor
ExitFor本身是无条件退出循环（正确答案）
47.在VisualBasic代码窗口中,将某一条语句加以注释和说明时,应在语句前加（）[单选题]*
:
'（正确答案）
?
48.为了将一个语句写在多行上所使用的行续接符是：
（）。
[单选题]*
&
_（正确答案）
'
：
49.在一个语句内写多条语句时,每个语句之间分隔符号是（）。
[单选题]*
；
:
（正确答案）
'
50.Function过程的定义，不必须有的是（ ）。
[单选题]*
过程的名称
虚参（正确答案）
EndFunction
给过程赋值
51.下列过程调用语句中，被调用的过程一定是Sub子过程的语句是（ ）。
[单选题]*
Pro1（x）
PrintPro2（x）
x=Pro3（x）
CallPro4（x）（正确答案）
52.Sub过程与Function过程最根本的区别是（）。
[单选题]*
Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
Function过程可以有形参，Sub过程不可以
Sub过程不能返回值，而Function过程能返回值（正确答案）
两种过程参数的传递方式不同
53.当拖动滚动条中的滚动块时，将触发滚动条的事件是（）。
[单选题]*
Move
SetFocus
Scroll
Change（正确答案）
54.列表项选择后得到的选中索引是指（）。
[单选题]*
Value
ListValue
Index
ListIndex（正确答案）
55.定时器定时工作所触发的事件是（）。
[单选题]*
Click（）
Change（）
Timer（）（正确答案）
Load（）
56.在图片框中加载图形（c:
\666.jpg）的方法是（）。
[单选题]*
Loadpicture（"c:
\666.jpg"）（正确答案）
Loadpicture（）
print（"c:
\666.jpg"）
cls
57.以下关于VB列表框的叙述中（）是错误的。
[单选题]*
可通过属性“Item”，返回列表框中的项目（正确答案）
可通过属性“Text”，得到当前列表项中的内容
可通过属性“ListIndex”返回当前选中的列表项的索引
可通过属性“ListCount”返回列表框中项目的数目
58.为了隐藏一个窗体，所使用的方法为（）。
[单选题]*
Load
Show
Hide（正确答案）
UnLoad
59.为了把焦点移到某个指定控件，所使用的方法是（）。
[单选题]*
GetFocus
Visible
Refresh
SetFocus（正确答案）
60.如果窗体被遮挡，通过调用（）方法，可以将其显示。
[单选题]*
Hide
Show（正确答案）
Unload
load
61.VB窗体设计器的主要功能是（）。
[单选题]*
建立用户界面（正确答案）
画图
编辑文字
编写程序代码
62.VB窗体设计器的主要功能是（）。
[单选题]*
建立用户界面（正确答案）
画图
编辑文字
编写程序代码
63.当一个工程有多个窗体时，其中的启动窗体是（ ）。
[单选题]*
第一个添加的窗体
最后一个添加的窗体
启动VB时建立的窗体
在工程属性对话框中指定的窗体（正确答案）
64.窗体没有（）属性。
[单选题]*
Caption
Text（正确答案）
Picture
Top
65.以下哪种属性或者方法可以重新定义VB坐标系？
（）[单选题]*
ScaleMode属性
Scale方法（正确答案）
DrawWidth和DrawStyle属性
BorderWidth和BorderStyle属性
66.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。
[单选题]*
工程资源管理器窗口
工具箱窗口
代码窗口（正确答案）
属性窗口
67.使用Line方法时，参数B和F可以组合使用，下列组合中（）是不允许的。
[单选题]*
不使用B和F
B
B和F
F（正确答案）
68.指令Circle（2000，3000），2000，QBColor，－3.14/2，－3.14将绘制以下哪种图形？
（）[单选题]*
圆
椭圆
扇形（正确答案）
圆弧
69.在VisualBasic中,以下选项中表示单击事件的是（）。
[单选题]*
KeyUp
Click（正确答案）
Activate
Load
70.执行命令Line（200，200）－step（500，500）后，CurrentX＝（）。
[单选题]*
200
500
700（正确答案）
300
71.PrivateSubCommand1_Click（）
a=3
b=1
Fori=1To3
f=a+b
a=b
b=f
Nexti
Printf
EndSub
以上程序段运行后，f的结果为。
[填空题]*
_________________________________（答案：
9）
72.PublicSubfun（a（）AsInteger,xAsInteger）
Fori=1To5
x=x+a（i）
Next
EndSub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click（）
Dimarr（5）AsInteger,nAsInteger
Fori=1To5
arr（i）=2*i
Next
funarr,n
Text1.Text=Str（n）
EndSub
程序运行后,单击命令按钮,则在文本框中显示的内容是。
[填空题]*
_________________________________（答案：
30）
73.阅读下列程序段
OptionExplicit
PrivateSubCommand1_Click（）
Dimstr1AsString
Dimstr2AsString
str1="ABCDEFG"
MySubstr1,str2
Printstr2
EndSub
PrivateSubMySub（ByValaAsString,bAsString）
DimcAsString
DimiAsInteger
Fori=Len（a）To1Step-1
c=c+Mid（a,i,1）
Next
b=c
EndSub
程序运行后，“print”语句的输出结果是。
[填空题]*
_________________________________（答案：
GFEDCBA）
74.在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=Int（Rnd）+6
Ifx^2>25Theny=x^2+5
x=Int（Rnd）+4
Ifx^2<25Theny=x^2
x=Int（Rnd）+5
Ifx^2=25Theny=x^2-5
Printy
EndSub
程序运行后，单击命令按钮，其输出结果为。
[填空题]*
_________________________________（答案：
20）
75.阅读下列程序段
PrivateSubCommand1_Click（）
DimiAsInteger
DimkAsInteger
k=0
Fori=0To10
k=k+1
i=i+k
Next
Printk;i
EndSub
请问其循环体共执行了次 ，i的值是 。
[填空题]*
_________________________________（答案：
414）
76.阅读下列程序段
PrivateSubCommand2_Click（）
Fori=1To3
x=1
Forj=1To3
x=3+j
Fork=1To3
x=x+3
Nextk
Nextj
Nexti
Printx
EndSub
运行程序后，单击命令按钮，输出结果是。
[填空题]*
_________________________________（答案：
15）
77.阅读下列程序段
Dima（3,3）AsInteger
Form=1To3
Forn=1To3
a（m,n）=（m-1）*3+n
Nextn
Nextm
Form=2To3
Forn=1To2
Printa（m,n）;
Nextn
Nextm
程序运行后，显示结果为：
。
[填空题]*
_________________________________（答案：
4578）
78.PrivateSubCommand1_Click（）
DimiAsInteger
DimxAsInteger
i=1
x=2
Do
i=i+1
x=x+i
LoopUntili>=7
Printi,x
EndSub
单击命令按钮后，i和x的值分别是。
[填空题]*
_________________________________（答案：
729）
79.假定有如下的Sub过程：
SubS（xAsSingle,yAsSingle）
t=x
x=t+x
y=t-y
EndSub
PrivateSubCommand2_Click（）
DimaAsSingle,bAsSingle
a=6
b=4
CallS（a,b）
Printa,b
EndSub
程序运行后，单击命令按钮输出结果为。
[填空题]*
_________________________________（答案：
122）
80.阅读下列程序段
PrivateSubCommand3_Click（）
Printpl（3,6）
EndSub
PublicFunctionpl（xAsSingle,nAsInteger）AsSingle
Ifn=0Then
pl=1
Else
IfnMod2=1Then
pl=x*x+n
Else
pl=x*x-n
EndIf
EndIf
EndFunction
程序运行后，单击该命令按钮，屏幕上显示的结果是。
[填空题]*
_________________________________（答案：
3）
81.编制程序实现：
在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。
提示：
可用定时器控制时间，用系统函数Now显示时间（如Text1.Text=Now）。
[填空题]*
_________________________________
答案解析：
1.PrivateSubCommand1_Click（）
Timer1.Interval=5
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubCommand3_Click（）
Timer1.Enabled=False
Text1.Text=""
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Now
EndSub
82.编制程序：
求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
[填空题]*
_________________________________
答案解析：
2.PrivateSubCommand1_Click（）
Dimi,sAsInteger
Fori=100To200
IfiMod3=0Thens=s+i
Nexti
MsgBox（"100-200之间所有可以被3整除的数的总和为：
"&Str（s））
EndSub
83.编一程序用于判断一正整数是否为素数。
（提示：
只能被1和本身整除的正整数称为素数。
为了判断一个数n是不是素数，可以将n被2到sqr（n）之间的所有整数除，如果都除不尽，则n就是素数，
升级会员 