8.在下列关于SelectCase的叙述中，错误的是（ ）
选择一个答案
a.Case10To100表示判断Is是否介于10与100之间
b.Case〝abc〞,〝ABC〞表示判断Is是否和〝abc〞、〝ABC〞两个字符串中的一个相同
c.Case-7,0,100表示判断Is是否等于字符串〝-7，0，100〞
d.Case〝X〞表示判断Is是否为大写字母X
9.下列程序的执行结果是（ ）
X=5
Y=-20
IfNotX>0ThenX=Y-3ElseY=X+3
PrintX-Y;Y-X
选择一个答案
a.3-3
b.-33
c.5-8
d.25-25
10.下列说法正确与否：
If语句中的条件表达式中只能使用关系或逻辑表达式
选择一个答案
a.正确
b.错误
11.以下说法正确与否：
在情况语句中，各分支（即Case表达式）的先后顺序无关。
选择一个答案
a.错误
b.正确
12.以下说法正确与否：
有If则必有与之对应的Endif。
选择一个答案
a.错误
b.正确
实验6循环结构程序设计
1.下列程序的执行结果为_____。
DimSAsInteger,nAsInteger
S=0:
n=1
DoWhilen<=100
S=S+n
n=n+1
Loop
PrintS
a）5050
b）2500
c）3000
d）4000答案：
A
2.以下程序计算2到50间所有偶数的和，请补充完该程序
Submult（）
DimSumAsInteger
Sum=0
DimIasinteger
For___to50
IfIMOD2=___Then___
NextI
Printsum
EndSub答案：
I=2#0#SUM=SUM+I
3.下列程序段的执行时，共循环____次。
Fora=0To1
Forb=1To2
Forc=1To3
I=I+1
Nextc
Nextb
nexta答案：
12
4.下列程序的执行结果是____。
K=0
ForI=1To3
a=I^I^K
printa;
NextI
a）111
b）123
c）000
d）149答案：
A
5.下列程序运行后，输出的结果为______。
B=1
Dowhile（b<40）
b=b*（b+1）
Loop
Printb
a）42
b）39
c）6
d）1答案：
A
6.下列程序执行后，变量s的值为______。
DimsAslong,xAsInteger
s=0:
x=1
DoWhile（x<10）
s=s+x
x=x+2
Loop
Prints
a）10
b）25
c）50
d）100答案：
B
7.当变量x=2,y=5时，以下程序的输出结果为____。
Dountily>5
x=x*y
y=y+1
loop
printx
a）2
b）5
c）10
d）20答案：
C
8.执行下面的程序，在窗体上显示的输出结果的第一行是 （15），第二行是 （16）。
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger,cAsInteger
c=-2
Fora=6To1Stepc
a=a+1
c=c-a
b=b+1
Nexta
Printb
Printc
EndSub
答案：
6-29
9.要实现同样的循环控制，在DoWhile…Loop和Do…LoopWhile循环结构中给定的循环条件一样的。
该结论是否正确：
选择一个答案
a.正确
b.错误
10.Do…LoopWhile语句实现循环时，不管条件真假，首先无条件地执行一次循环。
该结论是否正确：
选择一个答案
a.错误
b.正确
11.Do…LoopUntil语句实现循环时，只要条件是假，循环将一直进行下去。
该结论是否正确：
选择一个答案
a.错误
b.正确
12.For循环语句正常结束（即不是通过ExitFor语句退出循环或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步长”。
该结论是否正确：
选择一个答案
a.正确
b.错误
13.如果有多重Do循环嵌套，位于最里层循环体语句中的ExitDo语句可以退出所有的循环。
该结论是否正确：
选择一个答案
a.正确
b.错误
实验7数组
1.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：
PrivateSubCommand1_Click（）
Dima（5）
Fori=0To4
A（i）=i+1
t=i+1
Ift=3Then
Printa（i）
A（t-1）=a（i-2）
Else
A（t）=a（i）
Endif
Ifi=3Thena（i+1）=a（t-4）
A（4）=1
Printa（i）
Nexti
EndSub
程序运行后，单击命令按钮，输出结果是123141。
2.设执行以下程序段时依次输入1、3、5，执行结果为_____。
Dima（4）AsInteger
Dimb（4）AsInteger
ForK=0To2
a（K+1）=Val（InputBox（“请输入数据：
"））
b（3-K）=a（K+1）
NextK
Printb（K）
a）1
b）3
c）5
d）0答案：
A
3.如果有数组声明Dima（10）AsInteger，则该数组共有______个元素。
a）10
b）11
c）9
d）不确定答案：
B
4.数组的下标可取的变量类型是_____。
a）日期型
b）字符型
c）数值型
d）可变型答案：
C
5.用以下语句Dimb（-2to4）asstring所定义的数组的元素个数是_______个。
a）2
b）4
c）6
d）7答案：
D
6.下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素完成下列程序。
PrivateSubBackward（a（））
DimiAsInteger,TmpAsInteger
Fori=1To5
Tmp=a（i）
Nexti
EndSub
7.如下数组声明语句，正确的是______。
a）dima[3,4]asintiger
b）dima（3,4）asstring
c）dima（n,n）assingle
d）dima（34）asinteger答案：
B
8.下列关于数组的说法正确的是（ ）
选择一个答案
a.在VB中，数组只能在模块中定义，不能在过程中定义
b.在VB中，一个数组中所包含的元素只能是相同类型的数据
c.在定义数组时，数组的每一维元素的个数必须是常数，不能是变量或表达式
d.同普通变量一样，数组也可以不定义，先使用
9.使用Dim定义数组时，其数组的上界或下界，可使用已赋值的变量。
该结论是否正确：
选择一个答案
a.正确
b.错误
10.数组的下界一定是大于0的整数。
该结论是否正确：
选择一个答案
a.错误
b.正确
11.可以在程序中多次使用ReDim语句来改变动态数组的大小、维数和类型。
该结论是否正确：
选择一个答案
a.错误
b.正确
12.可以使用OptionBase2语句把数组下标下界的默认值设置为2。
该结论是否正确：
选择一个答案
a.正确
b.错误
实验9常用控件
1.所有控件都有的属性是_______，在程序中作为对象的标识引用。
a）Caption
b）Value
c）Text
d）name答案：
D
2.下列_______属性用于设置或返回文本框中的文本。
a）Caption
b）Text
c）Name
d）DragIcon答案：
B
3.可以用作其它控件容器的控件有（?
?
）
a）窗体控件，列表控件，图像控件
b）窗体控件，文本框控件，框架控件
c）窗体控件，框架控件，图片框控件
d）窗体控件，标签控件，图片控件答案：
C
4.以下不属控件的一项是_____。
a）文本框
b）标签框
c）列表框
d）消息框答案：
D
5.改变控件在窗体中的上下位置应修改控件的_____属性。
a）Top
b）Left
c）Width
d）Height答案：
A
6.复选框控件其Value属性的可取值是_______。
a）Trut和False
b）0和1
c）1、2、3
d）0、1、2答案：
D
7.如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中______个选项按钮（提示：
该题答案不能出现汉字）。
答案：
2
8.我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，
PrivateSubText1_change（）
Text2.text=ucase（Text1.text）
EndSub
则在Text1文本框输入“visualbasic”，Text2将显示______。
a）Text2中无内容显示。
b）Text2显示"VISUALBASIC"。
c）Text2显示"visualbasic"
d）Text1显示"visualbasic"答案：
B
9.选中复选框控件时，Value属性的值为（ ）
选择一个答案
a.1
b.True
c.0
d.False
10.让复选框控件的事件过程不响应事件，可修改控件的（ ）属性。
选择一个答案
a.Enable
b.Caption
c.TebStop
d.Appearance
11.若要在同一窗体中安排两组单选框（OptionButton）可用（ ）控件予以分隔。
选择一个答案
a.列表框
b.图片框
c.框架
d.组合框
12.设置列表框各表项中的文本，用（ ）属性。
选择一个答案
a.Selected
b.Caption
c.List
d.Text
13.list1.clear中的clear是（ ）
选择一个答案
a.属性
b.对象
c.事件
d.方法
升级会员 