A）True
B）False
C）出错信息
D）0
14.执行下列语句：
strInput＝InputBox（"请输入字符串"，"字符串对话框"，"字符串"）
将显示输入对话框。
此时如果直接单击"确定"按钮，则变量strInput的内容是（ C ）。
A）"请输入字符串"
B）"字符串对话框"
C）"字符串"
D）空字符串
15.以下变量名中合法的是（ C ）。
A）x2－1
B）print
C）str_n
D）2x
16.把数学表
达式表示为正确的VB表达式应该是（ D ）。
A）（5x＋3）/（2y－6）
B）
C）
D）（x*5＋3）/（y*2－6）
17.下面是求最大公约数的函数的首部：
Functiongcd（ByValxAsInteger，ByValyAsInteger）AsInteger
若要输出8、12、16这3个数的最大公约数，下面正确的语句是（ D ）。
A）Printgcd（8,12），gcd（12,16），gcd（16,8）
B）Printgcd（8,12,16）
C）Printgcd（8），gcd（12），gcd（16）
D）Printgcd（8，gcd（12,16））
18.若在窗体模块的声明部分声明了如下自定义类型和数组：
PrivateTyperec
CodeAsInteger
CaptionAsString
EndType
Dimarr（5）Asrec
则下面的输出语句中正确的是（ C ）。
A）Printarr.Code
（2），arr.Caption
（2）
B）Printarr.Code，arr.Caption
C）Printarr
（2）.Code，arr
（2）.Caption
D）PrintCode
（2），Caption
（2）
19.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为（ C ）。
A）DimpiAsInteger
B）Dimpi（7）AsInteger
C）DimpiAsSingle
D）DimpiAsLong
20.表达式2*3^2+4*2/2+3^2的值是（B）。
A）30
B）31
C）49
D）48
21.设窗体上有一个列表框控件List1，含有若干列表项。
以下能表示当前被选中的列表项内容的是（ C ）。
A）List1.List
B）List1.ListIndex
C）List1.Text
D）List1.Index
22.在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。
以下可以实现上述操作的事件过程是（ A ）。
A）PrivateSubText1_Change（）
Label1.Caption＝Str（Len（Text1.Text））
EndSub
B）PrivateSubText1_Click（）
Label1.Caption＝Str（Len（Text1.Text））
EndSub
C）PrivateSubText1_Change（）
Label1.Caption＝Text1.Text
EndSub
D）PrivateSubLabel1_Change（）
Label1.Caption＝Str（Len（Text1.Text））
EndSub
23.设窗体上有名称为Option1的单选按钮，且程序中有语句：
IfOption1.Value＝TrueThen
下面语句中与该语句不等价的是（ C ）。
A）IfOption1.ValueThen
B）IfOption1＝TrueThen
C）IfValue＝TrueThen
D）IfOption1Then
24.设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。
下面叙述中正确的是（ A ）。
A）程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B）程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C）由于滚动条的Max属性值小于Min属性值，程序会出错
D）由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
25.为了对多个控件执行操作，必须选中这些控件。
下列不能选中多个控件的操作是（ A ）。
A）按住Alt键，不要松开，然后单击每个要选中的控件
B）按住Shift键，不要松开，然后单击每个要选中的控件
C）按住Ctrl键，不要松开，然后单击每个要选中的控件
D）拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内
26.在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为（ B ）。
A）Text1.Clear
B）Text1.Visible＝False
C）Text1.Hide
D）Text1.Enabled＝False
27.设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。
要求程序运行时每秒在标签中显示一次系统当前时间。
以下可以实现上述要求的事件过程是（ B ）。
A）PrivateSubTimer1_Timer（）
Label1.Caption＝True
EndSub
B）PrivateSubTimer1_Timer（）
Label1.Caption＝Time$
EndSub
C）PrivateSubTimer1_Timer（）
Label1.Interval＝1
EndSub
D）PrivateSubTimer1_Timer（）
Fork＝1ToTimer1.Interval
Label1.Caption＝Timer
Nextk
EndSu
28.窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如图所示。
命令按钮的事件过程如下：
PrivateSubCommand1_Click（IndexAsInteger）
SelectCaseIndex
Case0
CD1.Action＝1
Case1
CD1.ShowSave
Case2
CD1.Action＝5
Case3
End
EndSelect
EndSub
对上述程序，下列叙述中错误的是（ C ）。
A）单击"打开"按钮，显示打开文件的对话框
B）单击"保存"按钮，显示保存文件的对话框
C）单击"打印"按钮，能够设置打印选项，并执行打印操作
D）单击"退出"按钮，结束程序的运行
29.用来设置文字字体是否斜体的属性是（ D ）。
A）FontUnderline
B）FontBold
C）FontSlope
D）FontItalic
30.窗体上有一个名称为Timer1的计时器控件，一个名称为Shape1的形状控件，其Shape属性值为3（Circle）。
编写程序如下：
PrivateSubForm_Load（）
Shape1.Top＝0
Timer1.Interval＝100
EndSub
PrivateSubTimer1_Timer（）
StaticxAsInteger
Shape1.Top＝Shape1.Top＋100
x＝x＋1
IfxMod10＝0Then
Shape1.Top＝0
EndIf
EndSub
以下关于上述程序的叙述中，错误的是（ C ）。
A）每执行一次Timer1_Timer事件过程，x的值都在原有基础上增加1
B）Shape1每移动10次回到起点，重新开始
C）窗体上的Shape1由下而上移动
D）Shape1每次移动100
31.现有如下程序：
PrivateSubCommand1_Click（）
s＝0
Fori＝1To5
s＝s＋f（5＋i）
Next
Prints
EndSub
PublicFunctionf（xAsInteger）
Ifx>＝10Then
t＝x＋1
Else
t＝x＋2
EndIf
f＝t
EndFunction
运行程序，则窗体上显示的是（ B ）。
A）38
B）49
C）61
D）70
32.窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如图所示。
现有如下程序：
PublicSubdisplay（xAsControl）
IfTypeOfxIsLabelThen
xCaption＝"计算机等级考试"
Else
xPicture＝LoadPicture（"pic.jpg"）
EndIf
EndSub
PrivateSubLabel1_Click（）
Calldisplay（Label1）
EndSub
PrivateSubPicture1_Click（）
Calldisplay（Picture1）
EndSub
对以上程序，下列叙述中错误的是（ A ）。
A）程序运行时会出错
B）单击图片框，在图片框中显示一幅图片
C）过程中的x是控件变量
D）单击标签，在标签中显示一串文字
33.设有如下通用过程：
PublicFunctionFun（xStrAsString）AsString
DimtStrAsString，strLAsInteger
tStr＝""
strL＝Len（xStr）
i＝1
DoWhilei<＝strL/2
tStr＝tStr&Mid（xStr，i，1）&Mid（xStr，strL－i＋1，1）
i＝i＋1
Loop
Fun＝tStr
EndFunction
在窗体上画一个名称为Command1的命令按钮。
然后编写如下的事件过程：
PrivateSubCommand1_Click（）
DimS1AsString
S1＝"abcdef"
PrintUCase（Fun（S1））
EndSub
程序运行后，单击命令按钮，输出结果是（ C ）。
A）ABCDEF
B）abcdef
C）AFBECD
D）DEFABC
34.某人为计算n！
（0PrivateFunctionfun（nAsInteger）AsLong
DimpAsLong
p＝1
Fork＝n－1To2Step－1
p＝p*k
Nextk
fun＝p
EndFunction
在调试时发现该函数过程产生的结果是错误的，程序需要修改。
下面的修改方案中有3种是正确的，错误的方案是（ B ）。
A）把p＝1改为p＝n
B）把Fork＝n－1To2Step－1改为Fork＝1Ton－1
C）把Fork＝n－1To2Step－1改为Fork＝1Ton
D）把Fork＝n－1To2Step－1改为Fork＝2Ton
35.窗体上的三个命令按钮构成名称为Command1的控件数组。
如图所示。
程序如下：
程序如下：
PrivateSubCommand1_Click（IndexAsInteger）
IfIndex＝1Then
Print"计算机等级考试"
EndIf
IfIndex＝2Then
PrintCommand1
（2）.Caption
EndIf
EndSub
运行程序，单击"命令按钮2"，则如下叙述中正确的是（ D ）。
A）PrintCommand1
（2）.Caption语句有错
B）在窗体上显示"命令按钮2"
C）在窗体上显示"命令按钮3"
D）在窗体上显示"计算机等级考试"
36.下面程序的执行结果是（ B ）。
PrivateSubCommand1_Click（）
a＝0
k＝1
DoWhilek<4
x＝k^k^a
k＝k＋1
Printx；
Loop
EndSub
A）1427
B）111
C）149
D）000
37.设有如图所示窗体和以下程序：
PrivateSubCommand1_Click（）
Text1.Text＝"VisualBasic"
EndSub
PrivateSubText1_LostFocus（）
IfText1.Text<>"BASIC"Then
Text1.Text＝""
Text1.SetFocus
EndIf
EndSub
程序运行时，在Text1文本框中输入"Basic"（如图所示），然后单击Command1按钮，则产生的结果是（ A ）。
A）文本框中无内容，焦点在文本框中
B）文本框中为"Basic"，焦点在文本框中
C）文本框中为"Basic"，焦点在按钮上
D）文本框中为"VisualBasic"，焦点在按钮上
38.窗体上有一个名称为Command1的命令按钮，其事件过程如下：
PrivateSubCommand1_Click（）
x＝"VisualBasicProgramming"
a＝Right（x，11）
b＝Mid（x，7，5）
c＝MsgBox（a，，b）
EndSub
运行程序后单击命令按钮。
以下叙述中错误的是（ D ）。
A）信息框的标题是Basic
B）信息框中的提示信息是Programming
C）c的值是函数的返回值
D）MsgBox的使用格式有错
39.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
PrivateXAsInteger
PrivateSubCommand1_Click（）
X＝5：
Y＝3
Callproc（X，Y）
Label1.Caption＝X
Label2.Caption＝Y
EndSub
PrivateSubproc（aAsInteger，ByValbAsInteger）
X＝a*a
Y＝b＋b
EndSub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ A ）。
A）25和3
B）5和3
C）25和6
D）5和6
40.在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
PrivateSubCommand1_Click（）
DimM（10）AsInteger
Fork＝1To10
M（k）＝12－k
Nextk
x＝8
PrintM（2＋M（x））
EndSub
运行程序，单击命令按钮，在窗体上显示的是（ A ）。
A）6
B）5
C）7
D）8
升级会员 