全国计算机等级考试三级笔试样题Visual Basic语言程序设计.docx
- 文档编号:14507284
- 上传时间:2023-04-23
- 格式:DOCX
- 页数:21
- 大小:20.19KB
全国计算机等级考试三级笔试样题Visual Basic语言程序设计.docx
《全国计算机等级考试三级笔试样题Visual Basic语言程序设计.docx》由会员分享,可在线阅读,更多相关《全国计算机等级考试三级笔试样题Visual Basic语言程序设计.docx(21页珍藏版)》请在冰豆网上搜索。
全国计算机等级考试三级笔试样题VisualBasic语言程序设计
2002年全国计算机等级考试三级笔试样题(VisualBasic语言程序设计)
一、的选择题..joxue.
(1)—(35)题每题2分,共70分。
..joxue.
下列各题A)、的B)、的C)、的D)四个先项中,只有一个选择是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
..joxue.
(1)下列不能打开属性窗口的操作是Joxue的。
..joxue.
A)执行“视图”菜单中的“属性窗口”命令..joxue.
B)按F4键..joxue.
C)按Ctrl+T..joxue.
D)单击工具栏上的“属性窗口”按钮Joxue的。
..joxue.
(2)下列可以打开立即窗口的操作是JoxueJoxue的。
..joxue.
A)Ctrl+DJoxue的B)Ctrl+EJoxue的C)Ctrl+FJoxue的D)Ctrl+G..joxue.
(3)inputBox函数反回值的类型为Joxue的。
..joxue.
A)数值JoxueJoxueJoxueJoxueJoxueJoxueB)字符串..joxue.
C)变体JoxueJoxueJoxueJoxueJoxueJoxueD)数值或字符串(视输入的数据而定)..joxue.
(4)可以同时删除字符串前导和尾部空白的函数是Joxue的。
..joxue.
A)LtrimJoxue的B)RtrimJoxue的C)TrimJoxue的D)Mid..joxue.
(5)表达式4+5\6*7/8Mod9的值是..joxue.
A)4JoxueJoxue的B)5JoxueJoxue的C)6JoxueJoxueD)7..joxue.
(6)如果在立即窗口中执行以下操作:
..joxue.
a=8的CRJoxueJoxueJoxueJoxueJoxue(CR是回车键,下同)..joxue.
b=9的CR..joxue.
printab的CR..joxue.
则输出结果是Joxue。
..joxue.
A)-1JoxueJoxue的B)0JoxueJoxue的C)FalseJoxue的D)True..joxue.
(7)以下语句的输出结果是JoxueJoxue的。
..joxue.
PrintFormat$(32548.5,“000,000.00”)..joxue.
A)32548.5B)32,548.5JoxueC)032,548.50的D)32,548.50..joxue.
(8)执行以下程序段后,变量c$的值为..joxue.
a$=“VisualBasicPrograming”..joxue.
b$=“Quick”..joxue.
c$=b$UCase(Mid$(a$,7,6))Right$(a$,11)..joxue.
A)VisualBASICPrograming..joxue.
B)QuickBasicPrograming..joxue.
C)QUICKBasicPrograming..joxue.
D)QuickBASICPrograming..joxue.
(9)的为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是JoxueJoxue。
..joxue.
A)ValueJoxueB)DefaultJoxueC)CancelJoxueD)Enabled..joxue.
(10)JoxueJoxueJoxue为了把焦点移到某个指定的控件,所使用的方法是..joxue.
A)SetFocusJoxueB)VisibleJoxueC)RefreshJoxueD)GetFocus..joxue.
(11)JoxueJoxueJoxue设a=6,则执行x=IIf(a5,-1,0)后,x的值为JoxueJoxue的。
..joxue.
A)5Joxue的B)6JoxueJoxue的C)0JoxueJoxue的D)-1..joxue.
(12)JoxueJoxueJoxue执行下面的程序段后,x的值为JoxueJoxueJoxue。
..joxue.
x=5..joxue.
Fori=1To20Step2..joxue.
x=x+i\5..joxue.
Nexti..joxue.
A)21JoxueJoxue的B)22JoxueJoxueC)23JoxueJoxueD)24..joxue.
(13)JoxueJoxueJoxue在窗体上画一个命令按钮,然后编写如下事件过程:
..joxue.
PrivateSubCommand1_Click()..joxue.
Fori=1To4..joxue.
x=4..joxue.
Forj=1To3..joxue.
x=3..joxue.
ork=1To2..joxue.
x=x+6..joxue.
Nextk..joxue.
Nextj..joxue.
Nexti..joxue.
Printx..joxue.
EndSub..joxue.
程序运行后,单击命令按钮,输出结果是Joxue。
..joxue.
A)7JoxueJoxue的B)15JoxueJoxueC)157JoxueJoxueD)538..joxue.
(14)JoxueJoxueJoxue在窗体上画一个命令按钮,然后编写如下事件过程:
..joxue.
PrevateSubCommand1_Click()..joxue.
x=0..joxue.
DoUntilx=-1..joxue.
a=InputBox(“请输入A的值”)..joxue.
a=Val(a)..joxue.
b=InputBox(“请输入B的值”)..joxue.
b=Val(b)..joxue.
x=InputBox(“请输入x的值”)..joxue.
x=Val(x)..joxue.
a=a+b+x..joxue.
Loop..joxue.
Printa..joxue.
EndSub..joxue.
程序运行后,单击命令按钮,依次在输入对话框中输入5、的4、的3、的2、的1、的-1,则输出结果为JoxueJoxueJoxue。
..joxue.
A)2JoxueJoxueB)3JoxueJoxue的C)14JoxueJoxue的D)15..joxue.
(15)在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:
..joxue.
PrivateSubCommand1_Click()..joxue.
a=Text1.Text+Text2.Text..joxue.
Printa..joxue.
EndSub..joxue.
..joxue.
PrivateSubFormm_Load()..joxue.
Text1Text=""..joxue.
Text2Text=""..joxue.
Endsub..joxue.
程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为JoxueJoxue。
..joxue.
A)444JoxueJoxueB)321123JoxueC)123321JoxueD)132231..joxue.
(16)阅读下面的程序段:
..joxue.
Fori=1To3..joxue.
Forj=1Toi..joxue.
Fork=jTo3..joxue.
a=a+1..joxue.
Nextk..joxue.
Nextj..joxue.
Nexti..joxue.
执行上面的三重循环后,a的值为Joxue的。
..joxue.
A)3JoxueJoxueB)9JoxueJoxue的C)14JoxueJoxue的D)21..joxue.
(17)在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程:
..joxue.
PrivateSubForm_Load()..joxue.
Ttext1.Text=""..joxue.
Text1.SetFocus..joxue.
Fori=1To10..joxue.
Sum=Sum+i..joxue.
Nexti..joxue.
Text1.Text=Sum..joxue.
EndSub..joxue.
上述程序的运行结果是Joxue。
..joxue.
A)在文本框Text1中输出55..joxue.
B)在文本框Text1中输出0..joxue.
C)出错..joxue.
D)在文本框Text1中输出不定值..joxue.
(18)在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
..joxue.
PrivateSubCommand1_Click()..joxue.
x=0..joxue.
DoWhilex50..joxue.
x=(x+2)*(x+3)..joxue.
n=n+1..joxue.
Loop..joxue.
Text1.Text=Str(n)..joxue.
Text2.Text=Str(x)..joxue.
EndSub..joxue.
程序运行后,单击命令按钮,在两个文本框中显示的值分别为..joxue.
A)1和0Joxue的B)2和72Joxue的C)3和50JoxueD)4和168..joxue.
(19)用下面语句定义的数组的元素个数是JoxueJoxueJoxue。
..joxue.
DimA(-3To5)AsInteger..joxue.
A)6JoxueJoxueB)7JoxueJoxue的C)8JoxueJoxue的D)9..joxue.
(20)以下程序的输出结果是..joxue.
OptionBase1..joxue.
PrivateSubCommand1_Click()..joxue.
Dima(10),p(3)AsInteger..joxue.
k=5..joxue.
Fori=1To10..joxue.
a(i)=i..joxue.
Nexti..joxue.
Fori=1To3..joxue.
p(i)=a(i*i)..joxue.
NextI..joxue.
Fori=1To3..joxue.
k=k+p(i)*2..joxue.
Nexti..joxue.
Printk..joxue.
Endsub..joxue.
A)33JoxueJoxue的B)28JoxueJoxue的C)35JoxueJoxue的D)37..joxue.
(21)在窗体上面画一个命令按钮,然后编写如下事件过程:
..joxue.
OptionBase1..joxue.
PrivateSubCommandl_Click()..joxue.
Dima..joxue.
a=Array(1,2,3,4)..joxue.
j=1..joxue.
Fori=4ToStep-1..joxue.
s=s+a(i)*j..joxue.
j=j*10..joxue.
Nexti..joxue.
Prints..joxue.
EndSub..joxue.
运行上面的程序,单击命令按钮,其输出结果是Joxue。
..joxue.
A)4321JoxueJoxueB)12JoxueJoxueC)34Joxue的D)1234..joxue.
(22)在窗体上面一个命令按钮(其Name属性为Commandl),然后编写如下代码:
..joxue.
OptionBase1..joxue.
PrivateSubCommandl_Click()..joxue.
Dima(4,4)..joxue.
Fori=1To4..joxue.
Forj=1To4..joxue.
a(i,j)=(i-1)*3+j..joxue.
Nextj..joxue.
Nexti..joxue.
Fori=3To4..joxue.
Forj=3To4..joxue.
Printa(j,i);..joxue.
Nextj..joxue.
Print..joxue.
Nexti..joxue.
EndSub..joxue.
程序运行后,单击命令按钮,其输出结果为Joxue。
..joxue.
A)69JoxueJoxueB)710Joxue的C)811Joxue的D)912..joxue.
710JoxueJoxue的811Joxue的的912Joxue的的1013..joxue.
(23)假定有如下的Sub过程:
..joxue.
SubS(xAsSingle,yAsSingle)..joxue.
t=x..joxue.
x=t/y..joxue.
y=tMody..joxue.
EndSub..joxue.
在窗体上画一个命令按钮,然后编写如下事件过程:
..joxue.
PrivateSubCommandl_Click()..joxue.
DimaAsSingle..joxue.
DimbAsSingle..joxue.
a=5..joxue.
b=4..joxue.
Sa,b..joxue.
Printa,b..joxue.
EndSub..joxue.
程序运行后,单击命令按钮,输出结果为Joxue。
..joxue.
A)54JoxueJoxueB)11JoxueJoxueC)1.254JoxueD)1.251..joxue.
(24)阅读程序:
..joxue.
FunctionF(aAsInteger)..joxue.
b=0..joxue.
Staticc..joxue.
b=b+1..joxue.
c=c+1..joxue.
f=a+b+c..joxue.
EndFunction..joxue.
..joxue.
PrivateSubCommandl_Click()..joxue.
DimaAsInteger..joxue.
a=2..joxue.
Fori=1To3..joxue.
PrintF(a)..joxue.
Nexti..joxue.
EndSub..joxue.
运行上面的程序,单击命令按钮,输出结果为Joxue的。
..joxue.
A)4JoxueJoxueB)4JoxueJoxue的C)4JoxueJoxue的D)4..joxue.
4Joxue的的5JoxueJoxue的的6JoxueJoxueJoxue7..joxue.
4Joxue的的6JoxueJoxue的的8JoxueJoxueJoxue9..joxue.
(25)阅读程序:
..joxue.
SubsubP(b()AsInteger)..joxue.
Fori=1To4..joxue.
b(i)=2*i..joxue.
Nexti..joxue.
EndSub..joxue.
..joxue.
PrivateSubCommandl_Click()..joxue.
Dima(1To4)AsInteger..joxue.
a
(1)=5..joxue.
a
(2)=6..joxue.
a(3)=7..joxue.
a(4)=8..joxue.
subPa()..joxue.
Fori=1To4..joxue.
Printa(i)..joxue.
Nexti..joxue.
EndSub..joxue.
运行上面的程序,单击命令按钮,输出结果为Joxue的。
..joxue.
A)2JoxueJoxueB)5JoxueJoxue的C)10JoxueJoxueD)出错..joxue.
4JoxueJoxue的6JoxueJoxue的的12..joxue.
6JoxueJoxue的7JoxueJoxue的的14..joxue.
8JoxueJoxue的8JoxueJoxue的的16..joxue.
(26)下列不能打开菜单编辑器的操作是Joxue的。
..joxue.
A)按Ctrl+E..joxue.
B)单击工具栏中的“菜单编辑器”按钮..joxue.
C)执行“工具”菜单中的“菜单编辑器”命令..joxue.
D)按Shift+Alt+M..joxue.
(27)假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为Joxue的。
..joxue.
A)MenuItem.Enabled=False..joxue.
B)MenuItem.Enabled=True..joxue.
C)MenuItem.Visible=True..joxue.
D)Menultem.Visible=False..joxue.
(28)在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是Joxue。
..joxue.
A)MoveJoxueJoxueB)ChangeJoxueC)ScrollJoxueD)GetFocus..joxue.
(29)假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的属性设置为Joxue的。
..joxue.
A)Label1.Back>Label1.Border>B)Label1.Back>Label1.Border>C)Label1.Back>Label1.Border>D)Label1.Back>Label1.Border>(30)在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程:
..joxue.
PrivateSubForm_Load()..joxue.
List1.AddItem"357"..joxue.
List1.AddItem"246"..joxue.
List1.AddItem"123"..joxue.
Listl.AddItem"456"..joxue.
Text1.Text=""..joxue.
EndSub..joxue.
..joxue.
PrivateSubList1_DblClick()..joxue.
a=List1.Text..joxue.
Printa+Text1.Text..joxue.
EndSub..joxue.
程序运行后,在文本框中输入“789”(见图1),然后双击列表框中的"456",则输出结果为的。
..joxue.
A)1245JoxueJoxueB)456789JoxueC)789456JoxueD)0..joxue.
(31)为了暂时关闭计时器,应把该计时器的某个属性设置为False,这个属性是Joxue。
..joxue.
A)VisibleJoxueB)TimerJoxue的C)EnabledJoxueD)Interval..joxue.
(32)为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为的。
..joxue.
A)Get文件号,记录号,变量名..joxue.
B)Get文件号,变量名,记录号..joxue.
C)Put文件号,变量名,记录号..joxue.
D)Put文件号,记录号,变量名..joxue.
(33)对窗体编写如下事件过程:
..joxue.
PrivateSubForm_MouseDown(ButtonAsInteger,_..joxue.
ShiftAsInteger,XAsSingleYAsSingle)..joxue.
IfButton=2Then..joxue.
Print"AAAAA"..joxue.
EndIf..joxue.
EndSub..joxue.
..joxue.
PrivateSubForm_MouseUp(ButtonAsInteger,_..joxue.
ShiftAsInteger,XAsSingle,YAsSingle)..joxue.
Print"BBBBB"..joxue.
EndSub..joxue.
程序运行后,如果单击鼠标右键,则输出结果为JoxueJoxue。
..joxue.
A)AAAAAJoxue的B)BBBBBJoxue的C)AAAAAJoxue的D)BBBBB..joxue.
BBBBBJoxueJoxueJoxueJoxueJoxueJoxueJoxueJoxueJoxueAAAAA..joxue.
(34)为了在运行时能显示窗体左上角的控制框(系统菜单),必须JoxueJoxue。
..joxue.
A)把窗体的Contro1Box属性设置为Fale,其他属性任意..joxue.
B)把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5..joxue.
C)把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值..joxue.
D)把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值..joxue.
(35)对窗体编写如下代码:
..joxue.
OptionBase1..joxue.
PrivateSubForm_KeyPress(KeyAsciiAsInteger)..joxue.
a=Array(237,126,87,48,498)..joxue.
m1=a
(1)..joxue.
m2=1..joxue.
IfKeyAscii=13Then..joxue.
Fori=2To5..joxue.
Ifa(i)mlThen..joxue.
m1=a(j)..joxue.
m2=i..joxue.
EndIf..joxue.
Nexti..joxue.
EndIf..joxue.
Printm1..joxue.
Printm2..joxue.
EndSub..joxue.
程序运行后,按回车键,输出结果为..joxue.
A)48Joxue的B)237JoxueJoxueC)498Joxue
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国计算机等级考试三级笔试样题Visual Basic语言程序设计 全国 计算机等级考试 三级 笔试 Visual Basic 语言程序设计