amin=x
EndIf
x=InputBox（"enterascore"）
Loop
Print"max=";amax，"min=";amin
8．下面程序的输出结果为______3
4____。
num=2
Whilenum<=3
num=num1
Printnum
Wend
9．下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2、5和7整除，如果能则输出该数及平方值。
将程序段补充完整。
PrivateSubCommand1_Click（）
DimnumXAsInteger
numX=Val（InputBox（"请输入一个整数"））
IfnumXmod2=0andnumXmod5=0andnumXmod7=0_Then
Form1.Print_numX,numX*numX_______
EndIf
EndSub
10．下面程序是计算Sn的值。
Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个a。
例如，若a=5，n=4，则Sn=5+55+555+5555。
在空白处填入适当的内容，将程序补充完整。
PrivateSubCommand1_Click（）
DimaAsInteger,nAsInteger,CoutAsInteger
DimSnAsLong,TnAsLong
Cout=1
Sn=0
Tn=0
a=InputBox（"请输入a的值：
"）
n=inputbox（“请输入n的值”）
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
_loopwhilecout<=n__________
Printa,n,Sn
EndSub
习题4
一、选择题
1．下列数组声明语句中正确的是（）。
A．Dima[2;3]AsIntegerB．Dima[2,3]AsInteger
C．Dima（2;3）AsIntegerD．Dima（2,3）AsInteger
2．在使用变长数组时，如果要改变数组的大小而又不丢失数组中的数据，应使用关键字（）。
A．PrivateB．PreserveC．PublicD．Static
3．控件数组中的名字是由下列哪个属性决定的（）。
A．TextB．IndextC．名称D．TabIndex
4．下列关于控件数组的说法中正确的是（）。
A．控件数组的每一个成员的Caption属性都不相同
B．控件数组的每一个成员都执行相同的事件过程
C．控件数组的每一个成员的Index属性都相同
D．对于已经建立的多个相同类型的控件不能组成控件数组
5．语句Dimarr（3To,2To6）AsInteger定义的数组元素有（）。
A．45个B．40个C．11个D．54个
6．执行以下Command的Click事件过程后，在窗体上显示（）。
OptionBase1
PrivateSubCommand1_Click（）
Dima
a=Array（"a","b","c","d","e","f","g"）
Printa
（1）;a（3）;a（5）
EndSub
A．abcB．bdfC．aceD．出错
7．语句Dima&（1To20），b#（2,-1To1）定义两个数组，其类型分别为（）。
A．一维单精度实型数组和二双精度型数组B．一维整型数组和二维单精度实型数组
C．一维单精度实型数组和二维整型数组D．一维长整型数组和二维双精度型数组
8．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，在文本框中显示的值（）。
PrivatSubCommand1_Click（）
Dimarray1（10,10）AsInteger
Dimi,jAsInteger
Fori=1To3
Forj=2To4
array1（i,j）=i+j
Nextj
Nexti
Text1.Text=array1（2,3）+array1（3,4）
EndSub
A．12B．13C．14D．15
9．以下关于数组的说法，不正确的是（）。
A．数组是一种特殊的数据类型B．一个数组中可存放多种类型的数组
C．数组是一组相同类型的变量的集合D．运行时可改变动态数组或静态数组的大小
10．以下关于数组的说法，错误的是（）。
A．静态数组在声明时大小必须固定B．动态数组在声明时大小可以不确定
C．默认情况下数组的下界为0D．运行时可改变动态数组或静态数组的大小
11．假设定义了一个数组arr（1To5，1To10），则UBound（arr，2）的值是（）。
A．1B．5C．10D．15
12．下面程序运行后，单击按钮在窗体上显示的是（）。
OptionBase0
PrivateSubCommand1_Click（）
Dimx
DimiAsInteger
x=Array（1,3,5,7,9,11,13,15）
Fori=1To3
Printx（5-i）;
Nexti
EndSub
A．531B．753C．975D．1197
13．下面程序运行后输出的结果是（）。
OptionBase1
PrivateSubCommand1_Click（）
Dimx（10）
DimiAsInteger
Fori=1To10
x（i）=10-i+iMod2
Nexti
Fori=10To1Step-2
Printx（i）;
Nexti
EndSub
A．02468B．97531
C．86420D．13579
14．在运行下面的程序时会显示出错信息，出错的原因是（）。
PrivateSubCommand1_Click（）
x=5
Dima（x）
Form=0To5
a（m）=m+1
Nexti
EndSub
A．第四行数组元素a（m）下标超过上界B．第二行数组定义语句不能用变量来定义下标
C．第四行不能用循环变量m进行运算D．程序无错，可能是计算机病毒
15．下面说法正确的是（）。
A．ReDim语句只能更改数组下标上界B．ReDim语句只能更改数组下标下界
C．ReDim语句不能更改数组维数D．ReDim语句可以更改数组维数
16．下列程序运行后的输出结果是（）。
PrivateSubCommand1_Click（）
Dima（10）
DimiAsInteger
Fori=1To10
a（i）=i^2
Nexti
Printa（i-1）
EndSub
A．98B．99C．100D．101
二、填空题
1．VB的数组常见有三种类型：
定长数组、变长数组和__控件数组________。
2．在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
OptionBase1
PrivateSubCommand1_Click（）
Dima（4,4）
Fori=1To4
Forj=1To4
a（i,j）=（i-1）*3+j
Nextj
Nexti
Fori=3To4
Forj=3To4
Printa（j,i）;
Nextj
Print
Nexti
EndSub
程序运行后，单击此命令按钮，其输出结果为__912
1013_______。
3．下面程序的输出结果是_94416_______。
Dima
a=Array（1,2,3,4,5,6,7,8）
i=0
Fork=100To90Step-2
s=a（i）^2
Ifa（i）>3ThenExitFor
i=i+1
Nextk
Printk;a（i）;s
4．下面程序的输出结果为___-56_______。
Constn=-5:
ConstM=6
Dima（nToM）
Fori=LBound（a,1）ToUBound（a,1）
a（i）=i
Nexti
Printa（LBound（a,1）;a（UBound（a,1））
5．下面程序段的执行结果为__________。
DimA（10），B（5）
Fori=1To10
A（i）=i
Nexti
Forj=1To5
B（j）=j*20
Nextj
A（5）=B
（2）
Print"A（5）=";A（5）
习题5
一、选择题
1．在窗体上画一个名称为Command1的命令按钮和两个名称为Text1、Text2的文本框，然后编写如下事件过程：
PrivateSubCommand1_Click（）
n=Text1.Text
SelectCasen
Case1To20
x=10
Case2,4,6
x=20
CaseIs<10
x=30
Case10
x=40
EndSelect
Text2.Text=x
EndSub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（）。
A．10B．20C．30D．40
2．以下关于变量作用域的叙述中，正确的是（）。
A．窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B．全局变量必须在标准模块中声明
C．模块级变量只能用Private关键字声明
D．Static类型变量的作用域是它所在的窗体或模块文件
3．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程，程序运行后，如果单击命令按钮，则文本框中显示的是（）。
PrivateSubCommand1_Click（）
Text1.Text="Visual"
Me.Text1="Basic"
Text1="Program"
EndSub
A．VisualB．BasicC．ProgramD．出错
4．一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句PubilcXAsInteger，在Model1中有语句PubilcYAsInteger，则以下叙述中正确的是（）。
A．变量X、Y的作用域相同B．Y的作用域是Model1
C．在Form1中可以直接使用XD．在Form2中可以直接使用X和Y
5．使用过程是为了（）。
A．使程序模块化B．使程序易于阅读C．提高程序运行速度D．便于系统的编译
6．有一子程序定义为PrivateSubtt（x,y），正确的调用格式是（）。
A．Calltt1,2B．Callsub1,2C．tt1,2D．Sub1,2
7．根据变量的作用域，可以将变量分为3类，分别为（）。
A．局部变量、模块变量和全局变量B．局部变量、模块变量和标准变量
C．局部变量、模块变量和窗体变量D．局部变量、标准变量和全局变量
8．在窗体上画一个命令按钮，命令按钮代码如下：
PrivateSubCommand4_Click（）
DimaAsInteger，bAsInteger
a＝1
b＝2
PrintN（a，b）
EndSub
FunctionN（xAsInteger，yAsInteger）AsInteg
升级会员 