A）True
B）False
C）出错信息
D）0
（2013.3）
14.执行下列语句：
strInput＝InputBox（"请输入字符串"，"字符串对话框"，"字符串"）
将显示输入对话框。
此时如果直接单击"确定"按钮，则变量strInput的内容是（ ）。
A）"请输入字符串"
B）"字符串对话框"
C）"字符串"
D）空字符串
（2013.3）
15.以下变量名中合法的是（ ）。
A）x2－1
B）print
C）str_n
D）2x
（2013.3）
16.把数学表
达式表示为正确的VB表达式应该是（ ）。
A）（5x＋3）/（2y－6）
B）
C）
D）（x*5＋3）/（y*2－6）
（2013.3）
17.下面是求最大公约数的函数的首部：
Functiongcd（ByValxAsInteger，ByValyAsInteger）AsInteger
若要输出8、12、16这3个数的最大公约数，下面正确的语句是（ ）。
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））
（2013.3）
18.若在窗体模块的声明部分声明了如下自定义类型和数组：
PrivateTyperec
CodeAsInteger
CaptionAsString
EndType
Dimarr（5）Asrec
则下面的输出语句中正确的是（ ）。
A）Printarr.Code
（2），arr.Caption
（2）
B）Printarr.Code，arr.Caption
C）Printarr
（2）.Code，arr
（2）.Caption
D）PrintCode
（2），Caption
（2）
（2013.3）
19.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为（ ）。
A）DimpiAsInteger
B）Dimpi（7）AsInteger
C）DimpiAsSingle
D）DimpiAsLong
（2013.3）
20.表达式2*3^2+4*2/2+3^2的值是（）。
A）30
B）31
C）49
D）48
（2013.3
21.设窗体上有一个列表框控件List1，含有若干列表项。
以下能表示当前被选中的列表项内容的是（ ）。
A）List1.List
B）List1.ListIndex
C）List1.Text
D）List1.Index
（2013.3）
22.在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。
以下可以实现上述操作的事件过程是（ ）。
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
（2013.3）
23.设窗体上有名称为Option1的单选按钮，且程序中有语句：
IfOption1.Value＝TrueThen
下面语句中与该语句不等价的是（ ）。
A）IfOption1.ValueThen
B）IfOption1＝TrueThen
C）IfValue＝TrueThen
D）IfOption1Then
（2013.3）
24.设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。
下面叙述中正确的是（ ）。
A）程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B）程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C）由于滚动条的Max属性值小于Min属性值，程序会出错
D）由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
（2013.3）
25.为了对多个控件执行操作，必须选中这些控件。
下列不能选中多个控件的操作是（ ）。
A）按住Alt键，不要松开，然后单击每个要选中的控件
B）按住Shift键，不要松开，然后单击每个要选中的控件
C）按住Ctrl键，不要松开，然后单击每个要选中的控件
D）拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内
（2013.3）
26.在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为（ ）。
A）Text1.Clear
B）Text1.Visible＝False
C）Text1.Hide
D）Text1.Enabled＝False
（2013.3）
27.设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。
要求程序运行时每秒在标签中显示一次系统当前时间。
以下可以实现上述要求的事件过程是（ ）。
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
EndSub
（2013.3）
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
对上述程序，下列叙述中错误的是（ ）。
A）单击"打开"按钮，显示打开文件的对话框
B）单击"保存"按钮，显示保存文件的对话框
C）单击"打印"按钮，能够设置打印选项，并执行打印操作
D）单击"退出"按钮，结束程序的运行
（2013.3）
29.用来设置文字字体是否斜体的属性是（ ）。
A）FontUnderline
B）FontBold
C）FontSlope
D）FontItalic
（2013.3）
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
以下关于上述程序的叙述中，错误的是（ ）。
A）每执行一次Timer1_Timer事件过程，x的值都在原有基础上增加1
B）Shape1每移动10次回到起点，重新开始
C）窗体上的Shape1由下而上移动
D）Shape1每次移动100
（2013.3）
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
运行程序，则窗体上显示的是（ ）。
A）38
B）49
C）61
D）70
（2013.3）
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）程序运行时会出错
B）单击图片框，在图片框中显示一幅图片
C）过程中的x是控件变量
D）单击标签，在标签中显示一串文字
（2013.3）
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
程序运行后，单击命令按钮，输出结果是（ ）。
A）ABCDEF
B）abcdef
C）AFBECD
D）DEFABC
（2013.3）
34.某人为计算n！
（0PrivateFunctionfun（nAsInteger）AsLong
DimpAsLong
p＝1
Fork＝n－1To2Step－1
p＝p*k
Nextk
fun＝p
EndFunction
在调试时发现该函数过程产生的结果是错误的，程序需要修改。
下面的修改方案中有3种是正确的，错误的方案是（ ）。
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
（2013.3）
35.窗体上的三个命令按钮构成名称为Command1的控件数组。
如图所示。
程序如下：
PrivateSubCommand1_Click（IndexAsInteger）
IfIndex＝1Then
Print"计算机等级考试"
EndIf
IfIndex＝2Then
PrintCommand1
（2）.Caption
EndIf
EndSub
运行程序，单击"命令按钮2"，则如下叙述中正确的是（ ）。
A）PrintCommand1
（2）.Caption语句有错
B）在窗体上显示"命令按钮2"
C）在窗体上显示"命令按钮3"
D）在窗体上显示"计算机等级考试"
（2013.3）
36.下面程序的执行结果是（ ）。
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
（2013.3）
37.设有如图所示窗体和以下程序：
PrivateSubCommand1_Click（）
Text1.Text＝"VisualBasic"
EndSub
PrivateSubText1_LostFocus（）
IfText1.Text<>"BASIC"Then
Text1.Text＝""
Text1.SetFocus
EndIf
EndSub
程序运行时，在Text1文本框中输入"Basic"（如图所示），然后单击Command1按钮，则产生的结果是（ ）。
A）文本框中无内容，焦点在文本框中
B）文本框中为"Basic"，焦点在文本框中
C）文本框中为"Basic"，焦点在按钮上
D）文本框中为"VisualBasic"，焦点在按钮上
（2013.3）
38.窗体上有一个名称为Command1的命令按钮，其事件过程如下：
PrivateSubCommand1_Click（）
x＝"VisualBasicProgramming"
a＝Right（x，11）
b＝Mid（x，7，5）
c＝MsgBox（a，，b）
EndSub
运行程序后单击命令按钮。
以下叙述中错误的是（ ）。
A）信息框的标题是Basic
B）信息框中的提示信息是Programming
C）c的值是函数的返回值
D）MsgBox的使用格式有错
（2013.3）
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）25和3
B）5和3
C）25和6
D）5和6
（2013.3）
40.在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
PrivateSubCommand1_Click（）
DimM（10）AsInteger
Fork＝1To10
M（k）＝12－k
Nextk
x＝8
PrintM（2＋M（x））
EndSub
运行程序，单击命令按钮，在窗体上显示的是（ ）。
A）6
B）5
C）7
D）8
（2013.3）
答案Bcbbdbbacddaaccddccbcacaa
Bbcdcbacbdbadaa
升级会员 