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