全国计算机等级考试三级笔试样题Visual Basic语言程序设计Word下载.docx
《全国计算机等级考试三级笔试样题Visual Basic语言程序设计Word下载.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试三级笔试样题Visual Basic语言程序设计Word下载.docx（21页珍藏版）》请在冰点文库上搜索。
（7）以下语句的输出结果是JoxueJoxue的。
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。
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的。
A）5Joxue的B）6JoxueJoxue的C）0JoxueJoxue的D）-1..joxue.
（12）JoxueJoxueJoxue执行下面的程序段后，x的值为JoxueJoxueJoxue。
x=5..joxue.
Fori=1To20Step2..joxue.
x=x+i\5..joxue.
Nexti..joxue.
A）21JoxueJoxue的B）22JoxueJoxueC）23JoxueJoxueD）24..joxue.
（13）JoxueJoxueJoxue在窗体上画一个命令按钮，然后编写如下事件过程：
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.
Printx..joxue.
EndSub..joxue.
程序运行后，单击命令按钮，输出结果是Joxue。
A）7JoxueJoxue的B）15JoxueJoxueC）157JoxueJoxueD）538..joxue.
（14）JoxueJoxueJoxue在窗体上画一个命令按钮，然后编写如下事件过程：
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.
程序运行后，单击命令按钮，依次在输入对话框中输入5、的4、的3、的2、的1、的-1，则输出结果为JoxueJoxueJoxue。
A）2JoxueJoxueB）3JoxueJoxue的C）14JoxueJoxue的D）15..joxue.
（15）在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
a=Text1.Text+Text2.Text..joxue.
PrivateSubFormm_Load（）..joxue.
Text1Text="
"
Text2Text="
Endsub..joxue.
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为JoxueJoxue。
A）444JoxueJoxueB）321123JoxueC）123321JoxueD）132231..joxue.
（16）阅读下面的程序段：
Fori=1To3..joxue.
Forj=1Toi..joxue.
Fork=jTo3..joxue.
a=a+1..joxue.
执行上面的三重循环后，a的值为Joxue的。
A）3JoxueJoxueB）9JoxueJoxue的C）14JoxueJoxue的D）21..joxue.
（17）在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
PrivateSubForm_Load（）..joxue.
Ttext1.Text="
..joxue.
Text1.SetFocus..joxue.
Fori=1To10..joxue.
Sum=Sum+i..joxue.
Text1.Text=Sum..joxue.
上述程序的运行结果是Joxue。
A）在文本框Text1中输出55..joxue.
B）在文本框Text1中输出0..joxue.
C）出错..joxue.
D）在文本框Text1中输出不定值..joxue.
（18）在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
DoWhilex50..joxue.
x=（x+2）*（x+3）..joxue.
n=n+1..joxue.
Text1.Text=Str（n）..joxue.
Text2.Text=Str（x）..joxue.
程序运行后，单击命令按钮，在两个文本框中显示的值分别为..joxue.
A）1和0Joxue的B）2和72Joxue的C）3和50JoxueD）4和168..joxue.
（19）用下面语句定义的数组的元素个数是JoxueJoxueJoxue。
DimA（-3To5）AsInteger..joxue.
A）6JoxueJoxueB）7JoxueJoxue的C）8JoxueJoxue的D）9..joxue.
（20）以下程序的输出结果是..joxue.
OptionBase1..joxue.
Dima（10）,p（3）AsInteger..joxue.
k=5..joxue.
a（i）=i..joxue.
p（i）=a（i*i）..joxue.
NextI..joxue.
k=k+p（i）*2..joxue.
Printk..joxue.
A）33JoxueJoxue的B）28JoxueJoxue的C）35JoxueJoxue的D）37..joxue.
（21）在窗体上面画一个命令按钮，然后编写如下事件过程：
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.
Prints..joxue.
运行上面的程序，单击命令按钮，其输出结果是Joxue。
A）4321JoxueJoxueB）12JoxueJoxueC）34Joxue的D）1234..joxue.
（22）在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
PrivateSubCommandl_Click（）..joxue.
Dima（4,4）..joxue.
Fori=1To4..joxue.
Forj=1To4..joxue.
a（i,j）=（i-1）*3+j..joxue.
Fori=3To4..joxue.
Forj=3To4..joxue.
Printa（j,i）;
Print..joxue.
程序运行后，单击命令按钮，其输出结果为Joxue。
A）69JoxueJoxueB）710Joxue的C）811Joxue的D）912..joxue.
710JoxueJoxue的811Joxue的的912Joxue的的1013..joxue.
（23）假定有如下的Sub过程：
SubS（xAsSingle,yAsSingle）..joxue.
t=x..joxue.
x=t/y..joxue.
y=tMody..joxue.
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommandl_Click（）..joxue.
DimaAsSingle..joxue.
DimbAsSingle..joxue.
a=5..joxue.
b=4..joxue.
Sa,b..joxue.
Printa,b..joxue.
程序运行后，单击命令按钮，输出结果为Joxue。
A）54JoxueJoxueB）11JoxueJoxueC）1.254JoxueD）1.251..joxue.
（24）阅读程序：
FunctionF（aAsInteger）..joxue.
b=0..joxue.
Staticc..joxue.
b=b+1..joxue.
c=c+1..joxue.
f=a+b+c..joxue.
EndFunction..joxue.
PrivateSubCommandl_Click（）..joxue.
DimaAsInteger..joxue.
a=2..joxue.
Fori=1To3..joxue.
PrintF（a）..joxue.
运行上面的程序，单击命令按钮，输出结果为Joxue的。
A）4JoxueJoxueB）4JoxueJoxue的C）4JoxueJoxue的D）4..joxue.
4Joxue的的5JoxueJoxue的的6JoxueJoxueJoxue7..joxue.
4Joxue的的6JoxueJoxue的的8JoxueJoxueJoxue9..joxue.
（25）阅读程序：
SubsubP（b（）AsInteger）..joxue.
b（i）=2*i..joxue.
Dima（1To4）AsInteger..joxue.
a
（1）=5..joxue.
a
（2）=6..joxue.
a（3）=7..joxue.
a（4）=8..joxue.
subPa（）..joxue.
Printa（i）..joxue.
A）2JoxueJoxueB）5JoxueJoxue的C）10JoxueJoxueD）出错..joxue.
4JoxueJoxue的6JoxueJoxue的的12..joxue.
6JoxueJoxue的7JoxueJoxue的的14..joxue.
8JoxueJoxue的8JoxueJoxue的的16..joxue.
（26）下列不能打开菜单编辑器的操作是Joxue的。
A）按Ctrl+E..joxue.
B）单击工具栏中的“菜单编辑器”按钮..joxue.
C）执行“工具”菜单中的“菜单编辑器”命令..joxue.
D）按Shift+Alt+M..joxue.
（27）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为Joxue的。
A）MenuItem.Enabled=False..joxue.
B）MenuItem.Enabled=True..joxue.
C）MenuItem.Visible=True..joxue.
D）Menultem.Visible=False..joxue.
（28）在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是Joxue。
A）MoveJoxueJoxueB）ChangeJoxueC）ScrollJoxueD）GetFocus..joxue.
（29）假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为Joxue的。
A）Label1.Back>
Label1.Border>
B）Label1.Back>
C）Label1.Back>
D）Label1.Back>
（30）在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
PrivateSubForm_Load（）..joxue.
List1.AddItem"
357"
246"
123"
Listl.AddItem"
456"
Text1.Text="
PrivateSubList1_DblClick（）..joxue.
a=List1.Text..joxue.
Printa+Text1.Text..joxue.
程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的"
，则输出结果为的。
A）1245JoxueJoxueB）456789JoxueC）789456JoxueD）0..joxue.
（31）为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是Joxue。
A）VisibleJoxueB）TimerJoxue的C）EnabledJoxueD）Interval..joxue.
（32）为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为的。
A）Get文件号，记录号，变量名..joxue.
B）Get文件号，变量名，记录号..joxue.
C）Put文件号，变量名，记录号..joxue.
D）Put文件号，记录号，变量名..joxue.
（33）对窗体编写如下事件过程：
PrivateSubForm_MouseDown（ButtonAsInteger,_..joxue.
ShiftAsInteger,XAsSingleYAsSingle）..joxue.
IfButton=2Then..joxue.
Print"
AAAAA"
EndIf..joxue.
PrivateSubForm_MouseUp（ButtonAsInteger,_..joxue.
ShiftAsInteger,XAsSingle,YAsSingle）..joxue.
BBBBB"
程序运行后，如果单击鼠标右键，则输出结果为JoxueJoxue。
A）AAAAAJoxue的B）BBBBBJoxue的C）AAAAAJoxue的D）BBBBB..joxue.
BBBBBJoxueJoxueJoxueJoxueJoxueJoxueJoxueJoxueJoxueAAAAA..joxue.
（34）为了在运行时能显示窗体左上角的控制框（系统菜单），必须JoxueJoxue。
A）把窗体的Contro1Box属性设置为Fale,其他属性任意..joxue.
B）把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5..joxue.
C）把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值..joxue.
D）把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值..joxue.
（35）对窗体编写如下代码：
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.
Printm1..joxue.
Printm2..joxue.
程序运行后，按回车键，输出结果为..joxue.
A）48Joxue的B）237JoxueJoxueC）498Joxue
升级会员 