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