全国计算机等级考试二级Visual Basic笔试样卷.docx
- 文档编号:10264832
- 上传时间:2023-02-09
- 格式:DOCX
- 页数:13
- 大小:19.88KB
全国计算机等级考试二级Visual Basic笔试样卷.docx
《全国计算机等级考试二级Visual Basic笔试样卷.docx》由会员分享,可在线阅读,更多相关《全国计算机等级考试二级Visual Basic笔试样卷.docx(13页珍藏版)》请在冰豆网上搜索。
全国计算机等级考试二级VisualBasic笔试样卷
全国计算机等级考试二级VisualBasic笔试样卷(含答案)
一、选择题
(1)—(35)题每题2分,共70分。
下列各题A)、B)、C)、D)四个先项中,只有一个选择是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1)下列不能打开属性窗口的操作是。
A)执行“视图”菜单中的“属性窗口”命令
B)按F4键
C)按Ctrl+T
D)单击工具栏上的“属性窗口”按钮。
(2)下列可以打开立即窗口的操作是。
A)Ctrl+DB)Ctrl+EC)Ctrl+FD)Ctrl+G
(3)inputBox函数反回值的类型为。
A)数值B)字符串
C)变体D)数值或字符串(视输入的数据而定)
(4)可以同时删除字符串前导和尾部空白的函数是。
A)LtrimB)RtrimC)TrimD)Mid
(5)表达式4+5\6*7/8Mod9的值是
A)4B)5C)6D)7
(6)如果在立即窗口中执行以下操作:
a=8(是回车键,下同)
b=9
printa>b
则输出结果是。
A)-1B)0C)FalseD)True
(7)以下语句的输出结果是。
PrintFormat$(32548.5,“000,000.00”)
A)32548.5B)32,548.5C)032,548.50D)32,548.50
(8)执行以下程序段后,变量c$的值为
a$=“VisualBasicPrograming”
b$=“Quick”
c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11)
A)VisualBASICPrograming
B)QuickBasicPrograming
C)QUICKBasicPrograming
D)QuickBASICPrograming
(9)为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是。
A)ValueB)DefaultC)CancelD)Enabled
(10)为了把焦点移到某个指定的控件,所使用的方法是
A)SetFocusB)VisibleC)RefreshD)GetFocus
(11)设a=6,则执行x=IIf(a>5,-1,0)后,x的值为。
A)5B)6C)0D)-1
(12)执行下面的程序段后,x的值为。
x=5
Fori=1To20Step2
x=x+i\5
Nexti
A)21B)22C)23D)24
(13)在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后,单击命令按钮,输出结果是。
A)7B)15C)157D)538
(14)在窗体上画一个命令按钮,然后编写如下事件过程:
PrevateSubCommand1_Click()
x=0
DoUntilx=-1
a=InputBox(“请输入A的值”)
a=Val(a)
b=InputBox(“请输入B的值”)
b=Val(b)
x=InputBox(“请输入x的值”)
x=Val(x)
a=a+b+x
Loop
Printa
EndSub
程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为。
A)2B)3C)14D)15
(15)在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:
PrivateSubCommand1_Click()
a=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubFormm_Load()
Text1Text=""
Text2Text=""
Endsub
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为。
A)444B)C)D)
(16)阅读下面的程序段:
Fori=1To3
Forj=1Toi
Fork=jTo3
a=a+1
Nextk
Nextj
Nexti
执行上面的三重循环后,a的值为。
A)3B)9C)14D)21
(17)在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程:
PrivateSubForm_Load()
Ttext1.Text=""
Text1.SetFocus
Fori=1To10
Sum=Sum+i
Nexti
Text1.Text=Sum
EndSub
上述程序的运行结果是。
A)在文本框Text1中输出55
B)在文本框Text1中输出0
C)出错
D)在文本框Text1中输出不定值
(18)在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
PrivateSubCommand1_Click()
x=0
DoWhilex<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
EndSub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为
A)1和0B)2和72C)3和50D)4和168
(19)用下面语句定义的数组的元素个数是。
DimA(-3To5)AsInteger
A)6B)7C)8D)9
(20)以下程序的输出结果是
OptionBase1
PrivateSubCommand1_Click()
Dima(10),p(3)AsInteger
k=5
Fori=1To10
a(i)=i
Nexti
Fori=1To3
p(i)=a(i*i)
NextI
Fori=1To3
k=k+p(i)*2
Nexti
Printk
Endsub
A)33B)28C)35D)37
(21)在窗体上面画一个命令按钮,然后编写如下事件过程:
OptionBase1
PrivateSubCommandl_Click()
Dima
a=Array(1,2,3,4)
j=1
Fori=4ToStep-1
s=s+a(i)*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序,单击命令按钮,其输出结果是。
A)4321B)12C)34D)1234
(22)在窗体上面一个命令按钮(其Name属性为Commandl),然后编写如下代码:
OptionBase1
PrivateSubCommandl_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
Nexti
EndSub
程序运行后,单击命令按钮,其输出结果为。
A)69B)710C)811D)912
7108119121013
(23)假定有如下的Sub过程:
SubS(xAsSingle,yAsSingle)
t=x
x=t/y
y=tMody
EndSub
在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommandl_Click()
DimaAsSingle
DimbAsSingle
a=5
b=4
Sa,b
Printa,b
EndSub
程序运行后,单击命令按钮,输出结果为。
A)54B)11C)1.254D)1.251
(24)阅读程序:
FunctionF(aAsInteger)
b=0
Staticc
b=b+1
c=c+1
f=a+b+c
EndFunction
PrivateSubCommandl_Click()
DimaAsInteger
a=2
Fori=1To3
PrintF(a)
Nexti
EndSub
运行上面的程序,单击命令按钮,输出结果为。
A)4B)4C)4D)4
4567
4689
(25)阅读程序:
SubsubP(b()AsInteger)
Fori=1To4
b(i)=2*i
Nexti
EndSub
PrivateSubCommandl_Click()
Dima(1To4)AsInteger
a
(1)=5
a
(2)=6
a(3)=7
a(4)=8
subPa()
Fori=1To4
Printa(i)
Nexti
EndSub
运行上面的程序,单击命令按钮,输出结果为。
A)2B)5C)10D)出错
4612
6714
8816
(26)下列不能打开菜单编辑器的操作是。
A)按Ctrl+E
B)单击工具栏中的“菜单编辑器”按钮
C)执行“工具”菜单中的“菜单编辑器”命令
D)按Shift+Alt+M
(27)假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为。
A)MenuItem.Enabled=False
B)MenuItem.Enabled=True
C)MenuItem.Visible=True
D)Menultem.Visible=False
(28)在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是。
A)MoveB)ChangeC)ScrollD)GetFocus
(29)假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的属性设置为。
A)Label1.BackStyle=0
Label1.Borderstyle=0
B)Label1.BackStyle=1
Label1.Borderstyle=1
C)Label1.BackStyle=True
Label1.BorderStyle=True
D)Label1.BackStyle=False
Label1.Borderstyle=False
(30)在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程:
PrivateSubForm_Load()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
Listl.AddItem"456"
Text1.Text=""
EndSub
PrivateSubList1_DblClick()
a=List1.Text
Printa+Text1.Text
EndSub
程序运行后,在文本框中输入“789”(见图1),然后双击列表框中的"456",则输出结果为。
A)1245B)C)D)0
(31)为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是。
A)VisibleB)TimerC)EnabledD)Interval
(32)为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为。
A)Get文件号,记录号,变量名
B)Get文件号,变量名,记录号
C)Put文件号,变量名,记录号
D)Put文件号,记录号,变量名
(33)对窗体编写如下事件过程:
PrivateSubForm_MouseDown(ButtonAsInteger,_
ShiftAsInteger,XAsSingleYAsSingle)
IfButton=2Then
Print"AAAAA"
EndIf
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle)
Print"BBBBB"
EndSub
程序运行后,如果单击鼠标右键,则输出结果为 。
A)AAAAAB)BBBBBC)AAAAAD)BBBBB
BBBBBAAAAA
(34)为了在运行时能显示窗体左上角的控制框(系统菜单),必须 。
A)把窗体的Contro1Box属性设置为Fale,其他属性任意
B)把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5
C)把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值
D)把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值
(35)对窗体编写如下代码:
OptionBase1
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
a=Array(237,126,87,48,498)
m1=a
(1)
m2=1
IfKeyAscii=13Then
Fori=2To5
Ifa(i)>mlThen
m1=a(j)
m2=i
EndIf
Nexti
EndIf
Printm1
Printm2
EndSub
程序运行后,按回车键,输出结果为
A)48B)237C)498D)498
4154
二、填空题(每空2分,共30分)
请将每空的正确答案写在答题卡[1]—[15]序号的横线上,答在试卷上不得分。
(1)设有如下的VisualBasic表达式:
5*x^2–3*x–2*Sin(a)/3
它相当于代数式【1】。
(2)执行下面的程序段后,s的值为【2】。
s=5
Fori=2.6To4.9Step0.6
s=s+1
Nexti
(3)表达式Fix(-32.68)+Int(-23.02)的值为【3】。
(4)为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为【4】。
(5)在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请输入一个整数")
Printa+b
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为【5】。
(6)执行下面的程序段后,b的值为【6】。
a=300
b=20
a=a+b
b=a-b
a=a-b
(7)以下程序段的输出结果是【7】。
num=0
Whilenum<=2
num=num+1
Printnum
Wend
(8)在窗体画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Dima(1To10)
Dimp(1To3)
k=5
Fori=1To10
a(i)=i
Nexti
Fori=1To3
p(i)=a(i*i)
Nexti
Fori=1To3
k=k+p(i)*2
Nexti
Printk
EndSub
程序运行后,单击命令按钮,输出结果是【8】。
(9)下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在【9】、【10】、【11】处将程序补充完整。
OptionBase1
PrivateSubCommand1_Click()
Dima
a=Array(678,45,324,528,439,387,87,875,273,823)
Fori=【9】
Forj=【10】
Ifa(i)【11】a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
EndIf
Nextj
Nexti
Fori=1To10
Printa(i)
Nexti
EndSub
(10)在窗体画一个命令按钮,然后编写如下过程:
Functionfun(ByValnumAsLong)AsLong
DimkAsLong
k=1
num=Abs(num)
DoWhilenum
k=k*(numMod10)
num=num\10
Loop
fun=k
EndFunction
PrivateSubCommand1_Click()
DimnAsLong
DimrAsLong
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Printr
EndSub
程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为【12】。
(11)如果要将某个菜单项设计为分隔线,则该菜单项的标题应设置为【13】。
(12)假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。
在Form1画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请在【14】和【15】处将程序补充完整。
PrivateSubCommand1_Click()
【14】Form1
Form2.【15】
EndSub
二级笔试样卷VisualBasic语言程序设计答案
一、选择题
(1)C
(2)D(3)B(4)C(5)B
(6)C(7)C(8)D(9)B(10)A
(11)D(12)A(13)B(14)A(15)C
(16)C(17)C(18)B(19)D(20)A
(21)D(22)D(23)D(24)B(25)A
(26)D(27)A(28)C(29)A(30)B
(31)C(32)D(33)A(34)B(35)C
二、填空题
(1)[1]
(2)[2]9
(3)[3]56
(4)[4]Picturel.Picture=LoadPicture("picfile.jpg")
(5)[5]
(6)[6]300
(7)[7]1
2
3
(8)[8]33
(9)[9]aTo9
[10]i+1To10
[11]>=
(10)[12]24
(11)[13]-
(12)[14]Unload
[15]Show
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国计算机等级考试二级Visual Basic笔试样卷 全国 计算机等级考试 二级 Visual Basic 笔试