VBA卷06年Word文件下载.docx
《VBA卷06年Word文件下载.docx》由会员分享,可在线阅读,更多相关《VBA卷06年Word文件下载.docx(13页珍藏版)》请在冰豆网上搜索。
每题只有一个答案正确,请将正确答案填写在题空内)
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的命令按钮,然后编写如下事件过程:
StaticxAsInteger
x=10:
y=5:
y=f(x)
Printx;
y
程序运行后,如果单击命令按钮,则在窗体上显示的内容是_______。
A、105B、205C、2040D、1040
20、编写如下事件过程:
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
PrintChr(KeyCode);
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
PrintChr(KeyAscii)
在一般情况下,运行程序,如果按“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
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
Text1.Text=Sum
则程序运行的结果为_______。
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
A、21B、23C、25D、27
33、在窗体上画一个命令按钮,然后编写如下事件过程:
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To3
x=x+6
Nextk
程序运行后,单击命令按钮,输出的结果是_______。
A、15B、21C、157D、538
34、在窗体上画一个命令按钮,然后编写如下事件过程:
b=1:
a=2
DoWhileb<
10
b=2*a+b
Printb
程序运行后,输出的结果是_______。
A、13B、17C、21D、33
35、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
OptionBase1
DimaAsVariant
a=Array(1,2,3,4,5)
Sum=0
Fori=1To5
Sum=sum+a(i)
x=Sum/5
Fori=1To5
Ifa(i)>
xThenPrinta(i);
程序运行后,单击命令按钮,在窗体上显示的内容是_______。
A、12B、123C、345D、45
36、下列程序段的执行结果是_______。
DimM(10)
Fork=1To10
M(k)=11-k
x=6
PrintM(2+M(x))
A、2B、3C、4D、5
37、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Dimarray1(10,10)AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=2To4
array1(i,j)=i+j
Text1.Text=array1(1,3)+array1(1,3)
程序运行后,单击命令按钮,在文本框中显示的值是_______。
A、7B、8C、9D、10
38、设有如下通用过程:
PublicFunctionF(aAsInteger)
b=0
Staticc
b=b+1
c=c+1
F=a+b+c
DimaAsInteger
a=2
PrintF(a);
A、444B、468C、456D、478
39、有如下程序,运行后单击命令按钮,输出的结果是_______。
Subacerr(x%,y%,z%)
z%=x%+y%
a%=30:
b%=30
Callacerr(a%,b%,c%)
Printc%
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
DimmAsInteger,kAsInteger
k=4
m=1
p=Func(k,m)
Printp;
Printp
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
10.执行下面的程序后,s的值为______________________。
s=5
Fori=2.6To4.9Step0.6
s=s+1
11.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
SubCommand1_Click()
Dima(5,5)
Forj=1To4
a(i,j)=i*j
Forn=1To3
Form=1To2
Printa(m,n);
Nextm
Nextn
程序运行后,单击命令按钮,输出的结果是______________________。
12.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
PublicSubinc(aAsInteger)
DimxAsInteger
x=x+a
inc2
inc3
inc4
程序运行后,如果单击命令按钮,则在窗体上显示的内容是_____________________。
13.下面程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计并显示其中5的倍数所占的比例,但程序不完整,请在空格处把程序补充完整。
Dima(100)
Forj=1To100
a(j)=Int(rnd()*1000)
Ifa(j)______________________5=0Thenk=k+1
Printa(j)
Print______________________
三、编程题(共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分)。