VBA卷06年.docx
《VBA卷06年.docx》由会员分享，可在线阅读，更多相关《VBA卷06年.docx（13页珍藏版）》请在冰豆网上搜索。
VBA卷06年
学号：
姓名：
班级：
——————————————————密————封————线————内————答————题————无————效————————————
石家庄铁道学院2005-2006学年第2学期
2005级本科班期末考试试卷（A卷）
课程名称：
VisualBasic程序设计考试时间：
120分钟
考试性质（学生填写）：
正常考试（）缓考补考（）重修（）提前修读（）
题号
一
二
三
四
五
六
七
总分
满分
50
30
20
100
得分
改卷人
一、选择题（共50分。
其中：
1-30题，每题1分；31-40题，每题2分。
每题只有一个答案正确，请将正确答案填写在题空内）
1、VB窗体设计器的主要功能是_______。
A、画图B、编写源程序代码
C、显示文字D、建立用户界面
2、为了把窗体上的某个控件变为活动的，应执行的操作是_______。
A、双击该控件B、双击窗体
C、单击该控件内部D、单击窗体边框
3、确定一个窗体或控件大小的属性是_______。
A、Top或LeftB、Top和LeftC、Width和HeightD、Width或Height
4、下列不能打开代码窗口的操作是_______。
A、按F7键B、双击窗体
C、单击窗体或控件D、双击窗体上的某个控件
5、为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为_______。
A、0B、2C、3D、4
6、设a＝2，b＝3，c＝4，d＝5，下列表达式的值是_______。
3>bORa>cANDc>dORb<>d
A、TrueB、1C、FalseD、－1
7、Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是_______。
A、Picture1.Print12B、Text1.Print12
C、Debug.Print12D、Print12
8、决定窗体标题栏显示内容的属性是_______。
A、TextB、CaptionC、BackStyleD、Name
9、为了使标签中的内容居中显示，应把Alignment属性设置为_______。
A、0B、1C、2D、3
10、设a=6，则执行x=IIf（a>5,0,1）后，x的值是_______。
A、-1B、0C、1D、不定值
11、多分支控制结构中，SelectCase语句的“测试表达式”_______。
A、只能是数值表达式
B、只能是字符串表达式
C、可以是数值表达式或字符串表达式
D、可以是关系表达式或逻辑表达式
12、在For循环语句中，循环变量的步长_______。
A、正整数B、整数C、不为零的整数或小数D、任意实数
13、有关Dim的说法错误的是_______。
A、Dim能定义说明数组B、可以将数组元素初始化为1
C、Dim能将数组初始化D、可以分配数组存储空间
14、用下面语句所定义的数组的元素个数是_______。
Dima（-3To5）AsInteger
A、7B、8C、9D、10
15、以下定义数组或给数组元素赋值的语句中，正确的是_______。
A、DimaAsVariantB、Dima（10）AsInteger
a=Array（1,2,3,4,5）a=Array（1,2,3,4,5）
C、Dima%（10）D、Dima（3）,b（3）AsInteger
a
（1）="ABCDE"a（0）=0：
a
（1）=1：
a
（2）=2：
b=a
16、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dimarr1（10）AsInteger,arr2（10）AsInteger
n=3
Fori=1To5
arr1（i）=i
arr2（n）=2*n+i
Nexti
Printarr2（n）;arr1（n）
EndSub
程序运行后，单击命令按钮，则在窗体上显示的内容是_______。
A、113B、311C、133D、313
17、在VisualBasic应用程序中_______。
A、过程的定义可以嵌套，但过程的调用不能嵌套
B、过程的定义不可以嵌套，但过程的调用能嵌套
C、过程的定义和调用都不能嵌套
D、过程的定义和调用都可以嵌套
18、Function子程序模块用的结束语句是_______。
A、EndSubB、EndFunctionC、EndD、ExitFunction
19、设有如下通用过程：
PublicFunctionf（xAsInteger）
DimyAsInteger
x=20:
y=2:
f=x*y
EndFunction
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
StaticxAsInteger
x=10:
y=5:
y=f（x）
Printx;y
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是_______。
A、105B、205C、2040D、1040
20、编写如下事件过程：
PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
PrintChr（KeyCode）;
EndSub
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
PrintChr（KeyAscii）
EndSub
在一般情况下，运行程序，如果按“a”键，则程序的输出是_______。
A、aaB、AAC、aAD、Aa
21、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为_______。
A、MenuItem.Enabled=FalseB、MenuItem.Enabled=True
C、MenuItem.Visible=FalseD、MenuItem.Visible=True
22、用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是_______。
A、ListB、ListCountC、ListIndexD、Text
23、为了使一个窗体从屏幕上消失但仍然在内存中，所使用的方法或语句为_______。
A、DisappearB、HideC、LeaveD、Unload
24、表达式Sqr（6+2^7*3）Mod3的值是_______。
A、0B、1C、2D、3
25、以下程序段中，循环语句执行的次数是_______。
Fori=1To2
Forj=5To1Step-1
Printi*j
Nextj
Nexti
A、9B、10C、12D、15
26、如果想在菜单中使用快捷键，应采用的操作是_______。
A、在标题后的括号中添加&符号和想用的快捷键字母
B、在标题后的括号中添加#符号和想用的快捷键字母
C、在标题后的括号中添加*符号和想用的快捷键字母
D、在标题后的括号中添加%符号和想用的快捷键字母
27、假定在窗体上建立了一个通用对话框，其名称为CommandDialog1，用下面的语句可以建立一个对话框：
CommandDialog1.Action＝2
与该语句等价的语句是_______。
A、CommandDialog1.ShowOpenB、CommandDialog1.ShowSave
C、CommandDialog1.ShowColorD、CommandDialog1.ShowFont
28、以下程序段的输出结果为_______。
x=1
y=4
DoUntily>4
x=x*y
y=y+1
Loop
Printx
A、1B、2C、4D、8
29、在窗体上画一个文本框（name为Text1），然后编写如下事件过程：
PrivateSubForm_Load（）
Text1.Text=""
Text1.SetFocus
Fori=1To10
Sum=Sum+1
Nexti
Text1.Text=Sum
EndSub
则程序运行的结果为_______。
A、文本框中输出10B、文本框中输出0
C、文本框中输出不定值D、程序出错
30、以下说法不正确的是_______。
A、使用ReDim语句可以改变数组的类型
B、使用ReDim语句可以改变数组的维数
C、使用ReDim语句可以改变数组每一维的大小
D、使用ReDim语句可以对数组中的所有元素进行初始化
*注：
此后每题2分
31、执行以下程序段后，变量c$的值是_______。
a$=”VisualBasicProgramming”
b$=”Quick”
c$=b$&UCase（Mid$（a$,1,6））&Right$（a$,11）
A、QuickBASICProgrammingB、QuickBasicProgramming
C、QuickVISUALProgrammingD、QuickVisualProgramming
32、执行下列程序段后，x的值为_______。
x=5
Fori=1To20Step2
x=x+i\4
Nexti
A、21B、23C、25D、27
33、在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To3
x=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后，单击命令按钮，输出的结果是_______。
A、15B、21C、157D、538
34、在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
b=1:
a=2
DoWhileb<10
b=2*a+b
Loop
Printb
EndSub
程序运行后，输出的结果是_______。
A、13B、17C、21D、33
35、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
DimaAsVariant
a=Array（1,2,3,4,5）
Sum=0
Fori=1To5
Sum=sum+a（i）
Nexti
x=Sum/5
Fori=1To5
Ifa（i）>xThenPrinta（i）;
Nexti
EndSub
程序运行后，单击命令按钮，在窗体上显示的内容是_______。
A、12B、123C、345D、45
36、下列程序段的执行结果是_______。
DimM（10）
Fork=1To10
M（k）=11-k
Nextk
x=6
PrintM（2+M（x））
A、2B、3C、4D、5
37、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Dimarray1（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
array1（i,j）=i+j
Nextj
Nexti
Text1.Text=array1（1,3）+array1（1,3）
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是_______。
A、7B、8C、9D、10
38、设有如下通用过程：
PublicFunctionF（aAsInteger）
b=0
Staticc
b=b+1
c=c+1
F=a+b+c
EndFunction
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimaAsInteger
a=2
Fori=1To3
PrintF（a）;
Nexti
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是_______。
A、444B、468C、456D、478
39、有如下程序，运行后单击命令按钮，输出的结果是_______。
Subacerr（x%,y%,z%）
z%=x%+y%
EndSub
PrivateSubCommand1_Click（）
a%=30:
b%=30
Callacerr（a%,b%,c%）
Printc%
EndSub
A、60B、60.00000C、6.0E+1D、显示出错信息
40、设有如下通用过程：
PublicFunctionFunc（aAsInteger,bAsInteger）AsInteger
StaticmAsInteger,iAsInteger
m=0
i=2
i=i+m+1
m=i+a+b
Func=m
EndFunction
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimmAsInteger,kAsInteger
k=4
m=1
p=Func（k,m）
Printp;
p=Func（k,m）
Printp
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是_______。
A、88B、816C、817D、820
二、填空题（共30分，每空2分，请将正确答案填写在题空内）
1．VB中默认的变量类型是______________________。
2．InputBox函数默认的返回值的类型是______________________。
3．假定在d盘根文件夹下有一个名为picture2.gif的图形文件，要在运行期间把该文件装入一个图片框picture2，应执行的语句为Picture2.Picture=______________________。
4．假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是______________________。
5．计时器事件之间的间隔通过______________________属性设置。
6．由Array函数建立的数组的名字必须是______________________类型。
7．在过程定义中出现的变量名叫做______________________参数。
8．在VisualBasic中参数通过两种方式传递，即传值和传地址，它们的关键字分别是______________________和______________________。
9．以下循环的执行次数是______________________。
k=0
DoWhilek<=10
k=k+1
Printk
Loop
10．执行下面的程序后，s的值为______________________。
s=5
Fori=2.6To4.9Step0.6
s=s+1
Nexti
11．在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
SubCommand1_Click（）
Dima（5,5）
Fori=1To3
Forj=1To4
a（i,j）=i*j
Nextj
Nexti
Forn=1To3
Form=1To2
Printa（m,n）;
Nextm
Nextn
EndSub
程序运行后，单击命令按钮，输出的结果是______________________。
12．在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
PublicSubinc（aAsInteger）
DimxAsInteger
x=x+a
Printx;
EndSub
PrivateSubCommand1_Click（）
inc2
inc3
inc4
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____________________。
13．下面程序的功能是产生100个小于1000（不含1000）的随机正整数，并统计并显示其中5的倍数所占的比例，但程序不完整，请在空格处把程序补充完整。
PrivateSubCommand1_Click（）
Dima（100）
Forj=1To100
a（j）=Int（rnd（）*1000）
Ifa（j）______________________5=0Thenk=k+1
Printa（j）
Nextj
Print______________________
EndSub
三、编程题（共20分）
1．如图所示，在相应事件中编写程序实现如下功能（6分）：
1）在窗体载入事件中设置Label1显示的内容为"欢迎使用VisualBasic"
2）单击Command1使Label1的内容变为红色RGB（255,0,0）
3）单击Command2使Label1的位置向上移动50
4）单击Command3使Label1的背景变为绿色RGB（0,255,0）
5）单击Form1使Label1变为不可见
6）单击Label1使Command1不可用
2．如图所示，在Command1_Click事件中编写程序，对文本框（text2）中输入的成绩进行等级判断，标准是：
90分及以上为“优”，80分及以上为“良”，60分及以上为“及格”，其余为“不及格”，并在标签中给出相应等级（6分）。
3．编写程序，将10个数按从小到大进行排序，数据的输入由InputBox函数实现，存储由数组实现，排序由Sub过程实现，结果显示在窗体上（8分）。
升级会员 