VB等级考试题目Word格式.docx
《VB等级考试题目Word格式.docx》由会员分享，可在线阅读，更多相关《VB等级考试题目Word格式.docx（19页珍藏版）》请在冰豆网上搜索。
在设计Windows应用程序时，用户可以使用系统本身提供的某些对话框，这些对话框可以直接从系统调入而不必由用户用“自定义”的方式进行设计。
第7题：
定时器控件只能响应Timer事件。
第8题：
Print#语句的作用是将数据从文件中读出并显示在窗体上。
第9题：
如果B是一个字节型变量，那么B可以用来保存数值-1。
第10题：
如果在定义过程时，一个形式参数使用地址传递方式说明，则调用过程时与之对应的实参只能按地址方式传递。
二、单选题
在VB中，______被称为对象。
D
A、模块和类
B、方法和事件
C、窗、控件、属性
D、窗体和控件
设置文本框text1，要求只能显示信息，不能接受输入的信息，______能实现该操作。
B
A、Text1.maxlength=0
B、Text1.enabled=false
C、Text1.visible=false
D、Text1.width
窗体文件的扩展名为______。
A
A、FRM
B、CLS
C、BAS
D、FRX
将通用对话框类型设置为“另存为”对话框，应修改______属性。
C
A、Filter
B、Font
C、Action
D、FileName
下列______方法或函数可以调用外部的可执行文件。
A、Show
B、Shell
C、Input
D、Open
表达式16/2-2^3*7MOD9的结果是______。
A、6
B、0
C、9
D、以上都不对
VisualBasic可以用以下哪一条属性来设置画圆方法的边框类型______。
A、BorderWidth
B、BorderStyle
C、DrawWidth
D、FillColor
下列关于SelectCase的叙述中，错误的是______。
A、Case10To100表示判断Is是否介于10与100之间
B、Case"
abc"
"
ABC"
表示判断Is是否和"
、"
两个字符串中的一个相同
C、Case"
X"
表示判断Is是否为大写字母X
D、Case-7,0,100表示判断Is是否等于字符串"
-7，0，100"
第9题：
InputBox函数用来返回用户输入的值，该值的类型是______。
A、整型
B、字节型
C、字符串型
D、逻辑型
因修改文本框中的数据而触发的事件是______。
A、change
B、Getfocus
C、SetFocus
D、LostFocus
三、程序填空题
第1题：
【程序说明】本程序统计3～100之间所有素数的个数；
最后将素数的个数写入顺序文件e:
\dataout.txt中。
PrivateSubCommand1_Click（）
DimiAsInteger,flagAsBoolean
Dimt1AsInteger,t2AsInteger
----1----
i=0
Fort1=3To100
flag=True
Fort2=2ToInt（Sqr（t1））
If----2----thenflag=False
Nextt2
Ifflagthen
i=i+1
EndIf
Nextt1
----3----
Close#1
EndSub
请在左边文本框当中输入正确答案。
open"
e:
\dataout.txt"
foroutputas#1或open
"
forappendas#1
t1modt2=0
Write#1,I或print#1,I
【程序说明】
自制一个简单的图片浏览器。
在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。
运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。
（假设在C:
\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）
Dim----1---AsInteger
PrivateSubForm_Load（）
I=1
Picture1.Picture=LoadPicture（"
c:
\windows\1.bmp"
）
Picture1.AutoSize=True
PrivateSubTimer1_----2----
If----3----Then
I=I+1
Else
\windows\"
&
I&
.bmp"
I
Timer（）
I<
=7或I<
8
该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0的5×
5的矩阵。
PrivateSubForm_Click（）
Dima（1To5,1To5）AsInteger
DimIAsInteger,jAsInteger
ForI=1To5
Forj=1To5
If----1----Then
----2----
Nextj
NextI
Form2.Print"
;
a（I,j）;
----3----
I<
=j或j>
=I
a（I,j）=1
print
如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；
如果没有任何一项选中，将有出错提示"
先选择，再删除！
"
。
>
PrivateSubCommand1_Click（）‘添加按钮
IfLen（Text1.Text）<
>
0Then
----1----
Text1.Text="
Text1.SetFocus
PrivateSubCommand2_Click（）‘删除按钮
If----2----Then
MsgBox"
List1.AddItemText1.Text
List1.ListIndex=-1
请在左边文本框当中输入正确答案。
List1.RemoveItemList1.ListIndex
四、程序阅读题
请写出在Text1、Text2、Text3中依次输入3、1、2后，单击窗体时Label1的显示结果。
DimaAsSingle,bAsSingle
a=Text1.Text:
b=val（Text2.Text+text3.text）
Label1.Caption=Str（a*a+b*b）
请在左边文本框当中写出正确的答案。
A、18
B、9144
C、153
D、以上答案都不对
写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。
Dima（1to3）AsInteger,kAsInteger,iAsInteger,jAsInteger
Open"
a1.dat"
ForOutputAs#1
J=1
Fori=1To3:
j=i*j:
Print#1,j;
:
Nexti
ForInputAs#1
k=0
DoWhileNotEOF
（1）
k=k+1:
Input#1,a（k）
Loop
Fori=kTo1Step-1:
Form1.Printa（i）;
A、
窗体：
621
文件：
B、
126
C、
窗体126
D、
请写出鼠标点击弹出菜单第一项后窗体上的显示结果。
PrivateSubForm_MouseDown（ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2ThenPopupMenumnuPopup,10
'
mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名
PrivateSubmnuChoice1_Click（）
m="
信息科学与工程学院"
printm
PrivateSubmnuChoice2_Click（）
护理学院"
PrivateSubmnuChoice3_Click（）
材化学院"
A、信息科学与工程学院
B、护理学院
C、材化学院
D、无显示
写出程序运行时单击窗体后，在图片框上出现的结果。
PrivateSubForm_Load（）
Picture1.Width=Picture1.Height
DimiAsSingle,xAsSingle,yAsSingle
Picture1.Scale（-100,100）-（100,-100）
Fori=0To2*3.1415926Step0.1*3.1415926
x=100*Cos（i）
y=100*Sin（i）
Picture1.Line（0,0）-（x,y）,RGB（255,0,0）
A、从图片框中心出发画了10条红色直线,直线长度为100单位
B、从图片框中心出发画了20条红色直线,直线长度为100单位，其轨迹形成一个圆。
C、转动一条长度为100单位的蓝色直线，其轨迹形成一个图片框的内接圆
D、转动一条长度为100单位的红色直线，其轨迹形成一个图片框的内接圆
五、程序设计题
在E盘上建以自己【姓名+准考证号】为名的文件夹，并在该文件夹下面根据设计题中小题个数建相应的子文件夹，子文件夹名为
【设计题*】,并把每小题结果文件保存在相应的子文件夹中。
例如：
考生张三的准考证号为0100101，做设计题中的第1小题，
文件保存位置是：
E:
\张三0100101\设计题1
编程，求算式1+1/2！
+1/3！
+1/4！
+……前10项的和。
DimIasinteger,sassingle，aassingle
a=1:
s=0
Fori=1To10
a=a/i
s=s+a
Print"
1+1/2!
+1/3!
+……="
s
设计一个用于输入学生信息的应用程序。
界面如图所示（民族有汉族、苗族、壮族等；
政治面貌有：
群众、团员、党员）。
要求：
（1）输入完毕后单击确定按钮，能在另一窗口显示输入的信息
（2）单击取消按钮，将取消所输入的信息。
PublicinfoAsString
DimsAsString
info="
学号为"
+Text1.Text+"
姓名为"
+Text2.Text+"
性别为"
+s+
，民族为"
+Combo1.Text+"
，政治面貌为"
+Combo2.Text+”.”
Form2.Show
PrivateSubCommand2_Click（）
CallForm_Load
Text2.Text="
Option1.Value=True:
Option2.Value=False
Combo1.Text="
汉族"
Combo2.Text="
群众"
PrivateSubOption1_Click（）
s="
男"
PrivateSubOption2_Click（）
女"
编程实现两个文本文件的合并，要求用驱动器、目录、文件列表框选择文件1，单击按钮1后，调用通用对话框选择文件2；
单击按钮2后，将文件2的内容添加到文件1原来内容之后，然后删除文件2。
DimfnAsString
CommonDialog1.Filter="
（*.txt）|*.txt"
CommonDialog1.ShowOpen
OpenfnForAppendAs#1
OpenCommonDialog1.FileNameForInputAs#2
DoWhileNotEOF
（2）
LineInput#2,s
Print#1,s
Close
KillCommonDialog1.FileName
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
PrivateSubFile1_Click（）
IfRight（File1.Path,1）="
\"
Then
fn=File1.Path+File1.FileName
fn=File1.Path+"
+File1.FileName
File1.Pattern="
*.txt"
设计一程序，界面如图所示。
程序运行后，单击“计时开始”命令按钮，开始计时，并在文本框1中以如图所示格式显示计时时间，单击“计时结束”命令按钮后，停止计时，并根据时间计算上网费用，计算的方法如下（不足15分钟忽略不计，超过15分钟则按1小时计算）。
DimnAsInteger,hAsInteger,mAsInteger
Timer1.Enabled=True
Timer1.Enabled=False
Ifm>
=15Thenh=h+1
Ifh<
10Then
cash=1.5*h
ElseIfh<
60Then
cash=h
cash=0.8*h
Text2.Text=cash
Timer1.Interval=1000
PrivateSubTimer1_Timer（）
n=n+1
h=n\3600
m=（nMod3600）\60
s=nMod60
Text1.Text=h&
小时"
m&
分"
s&
秒"
将你的考生文件夹打包上传:
提交文件是以“姓名+准考证号”进行压缩的打包文件（查看文件打包并上传的演示动画）
<
==
注意：
未做完所有试题之前请不要点击右边的【交卷完成，退出系统】按钮。
点击【交卷完成，退出系统】按钮提交结果之后将视为结束练习，退出系统！
<
=＝注意左边提示
【你的IP:
192.168.104.43】
.
Copyright（C）2006-2009
DesignedByRSIDE
.
升级会员 