VB等级考试题目
练习中--§§ 准考证号:12X2a0101vbp §§ 姓名:练习001 §§ 班级:所有专业. 杭州师范大学
计算机技术基础(VB程序设计)课程练习平台.
学号:12X2a0101vbp 姓名:练习001 班级:所有专业
注意：回答完所有试题之后，需要点击本页面最后的【交卷完成，退出系统】按钮。
题号一二三四五
题型判断题 单选题 程序填空题 程序阅读题 程序设计题
说明点击题型名称可以跳转到相应题型
一、判断题
第1题：从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。
参考答案：错
对
错
第2题：Boolean类型数据，可以用来保存逻辑值True和False。
参考答案：对
对
错
第3题：在VB中，对象是代码和数据的集合。
参考答案：对
对
错
第4题：在行If语句中，关键字End If必不可少。
参考答案：错
对
错
第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*7 MOD 9的结果是 ______。
参考答案：A
A、6
B、0
C、9
D、以上都不对
第7题：Visual Basic可以用以下哪一条属性来设置画圆方法的边框类型______。
参考答案：B
A、BorderWidth
B、BorderStyle
C、DrawWidth
D、FillColor
第8题：下列关于Select Case的叙述中，错误的是______。
参考答案：D
A、Case 10 To 100 表示判断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中。
Private Sub Command1_Click()
Dim i As Integer, flag As Boolean
Dim t1 As Integer, t2 As Integer
----1----
i = 0
For t1 = 3 To 100
flag = True
For t2 = 2 To Int(Sqr(t1))
If ----2---- then flag = False
Next t2
If flag then
i = i+1
End If
Next t1
----3----
Close #1
End Sub
请在左边文本框当中输入正确答案。
参考答案：open "e:\dataout.txt" for output as #1或open
"e:\dataout.txt" for append as #1
请在左边文本框当中输入正确答案。
参考答案：t1 mod t2=0
请在左边文本框当中输入正确答案。
参考答案：Write #1,I或print #1,I
第2题：【程序说明】
自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片需显示）
Dim ----1--- As Integer
Private Sub Form_Load()
I = 1
Picture1.Picture = LoadPicture("c:\windows\1.bmp")
Picture1.AutoSize = True
End Sub
Private SubTimer1_ ----2----
If ----3---- Then
I =I+1
Else
I = 1
End If
Picture1.Picture = LoadPicture("c:\windows\" & I & ".bmp")
End Sub
请在左边文本框当中输入正确答案。
参考答案：I
请在左边文本框当中输入正确答案。
参考答案：Timer()
请在左边文本框当中输入正确答案。
参考答案：I <= 7或I<8
第3题：【程序说明】
该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0 的5×5的矩阵。
Private Sub Form_Click()
Dim a(1 To 5, 1 To 5) As Integer
Dim I As Integer, j As Integer
For I = 1 To 5
For j = 1 To 5
If ----1---- Then
---
-2----
End If
Next j
Next I
For I = 1 To 5
For j = 1 To 5
Form2.Print " "; a(I, j);
Next j
----3----
Next I
End Sub
请在左边文本框当中输入正确答案。
参考答案：I<=j或j>=I
请在左边文本框当中输入正确答案。
参考答案：a(I,j)=1
请在左边文本框当中输入正确答案。
参考答案：print
第4题：【程序说明】
如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。
> Private Sub Command1_Click()‘ 添加按钮
If Len(Text1.Text) <> 0 Then
----1----
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() ‘删除按钮
If ----2---- Then
MsgBox "先选择，再删除！"
Else
----3----
End If
End Sub
请在左边文本框当中输入正确答案。
参考答案：List1.AddItem Text1.Text
请在左边文本框当中输入正确答案。
参考答案：List1.ListIndex = -1
请在左边文本框当中输入正确答案。
参考答案：List1.RemoveItem List1.ListIndex
四、程序阅读题
第1题：请写出在Text1、Text2、Text3中依次输入3、1、2后，单击窗体时Label1的显示结果。
Private Sub Form_Click()
Dim a As Single, b As Single
a = Text1.Text: b = val(Text2.Text+text3.text)
Label1.Caption = Str(a * a + b * b)
End Sub
请在左边文本框当中写出正确的答案。
A、18
B、9144
C、153
D、以上答案都不对
参考答案：C
第2题：写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。
Private Sub Form_Click
()
Dim a(1 to 3) As Integer, k As Integer, i As Integer, j As Integer
Open " a1.dat" For Output As #1
J=1
For i = 1 To 3: j = i * j: Print #1, j; : Next i
Close #1
Open " a1.dat" For Input As #1
k = 0
Do While Not EOF(1)
k = k + 1: Input #1,a(k)
Loop
Close #1
For i = k To 1 Step - 1: Form1.Print a(i); : Next i
End Sub
请在左边文本框当中写出正确的答案。
A、
窗体：6 2 1
文件：6 2 1
B、
窗体：1 2 6
文件：6 2 1
C、
窗体1 2 6
文件：1 2 6
D、
窗体：6 2 1
文件：1 2 6
参考答案：D
第3题：请写出鼠标点击弹出菜单第一项后窗体上的显示结果。
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuPopup, 10
End Sub
'mnuChoice1、2、3顺序为菜单项mnuPopup的下一级子菜单名
Private Sub mnuChoice1_Click()
m = "信息科学与工程学院"
print m
End Sub
Private Sub mnuChoice2_Click()
m = "护理学院"
print m
End Sub
Private Sub mnuChoice3_Click()
m = "材化学院"
print m
End Sub
请在左边文本框当中写出正确的答案。
A、信息科学与工程学院
B、护理学院
C、材化学院
D、无显示
参考答案：A
第4题：写出程序运行时单击窗体后，在图片框上出现的结果。
Private Sub Form_Load()
Picture1.Width = Picture1.Height
End Sub
Private Sub Form_Click()
Dim i As Single, x As Single, y As Single
Picture1.Scale (-100, 100)-(100, -100)
For i = 0 To 2 * 3.1415926 Step 0.1 * 3.1415926
x = 100 * Cos(i)
y = 100 * Sin(i)
Picture1.Line (0, 0)-(x, y), RGB(255, 0, 0)
Next i
End Sub
请在左边文本框当中写出正确的答案。
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项的和。
参考答案：
Private Sub Command1_Click()
Dim I as integer, s as single，a as single
a = 1: s = 0
For i = 1 To 10
a = a / i
s = s + a
Next i
Print "1+1/2!+1/3!+……="; s
End Sub
第2题：设计一个用于输入学生信息的应用程序。界面如图所示（民族有汉族、苗族、壮族等；政治面貌有：群众、团员、党员）。要求：
（1）输入完毕后单击确定按钮，能在另一窗口显示输入的信息
（2）单击取消按钮，将取消所输入的信息。
参考答案：
Public info As String
Dim s As String
Private Sub Command1_Click()
info = "学号为" + Text1.Text + ",姓名为 " + Text2.Text + ", 性别为" + s +
"，民族为" + Combo1.Text + " ， 政治面貌为" + Combo2.Text+”.”
Form2.Show
End Sub
Private Sub Command2_Click()
Call Form_Load
End Sub
Private Sub Form_Load()
Text1.Text = "" :Text2.Text = ""
Option1.Value = True :Option2.Value = False
Combo1.Text = "汉族" :Combo2.Text = "群众"
End Sub
Private Sub Option1_Click()
s = "男"
End Sub
Private Sub Option2_Click()
s = "女"
End Sub
第3题：编程实现两个文本文件的合并，要求用驱动器、目录、文件列表框选择文件1，单击按钮1后，调用通用对话框选择文件2；单击按钮2后，将文件2的内容添加到文件1原来内容之后，然后删除文件2。
参考答案：
Dim fn As String
Private Sub Command1_Click()
CommonDialog1.Filter = "(*.txt)|*.txt"
CommonDialog1.ShowOpen
End Sub
Private Sub Command2_Click()
Dim s As String
Open fn For Append As #1
Open CommonDialog1.FileName For Input As #2
Do While Not EOF(2)
Line Input #2, s
Print #1, s
Loop
Close
Kill CommonDialog1.FileName
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
If Right(File1.Path, 1) = "\" Then
fn = File1.Path + File1.FileName
Else
fn = File1.Path + "\" + File1.FileName
End If
End Sub
Private Sub Form_Load()
File1.Pattern = "*.txt"
End Sub
第4题：设计一程序，界面如图所示。程序运行后，单击“计时开始”命令按钮，开始计时，并在文本框1中以如图所示格式显示计时时间，单击“计时结束”命令按钮后，停止计时，并根据时间计算上网费用，计算的方法如下（不足15分钟忽略不计，超过15分钟则按1小时计算）。
参考答案：
Dim n As Integer, h As Integer, m As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
If m >= 15 Then h = h + 1
If h<10 Then
cash = 1.5 * h
ElseIf h<60 Then
cash = h
Else
cash = 0.8 * h
End If
Text2.Text = cash
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
n = n + 1
h = n \ 3600
m = (n Mod 3600) \ 60
s = n Mod 60
Text1.Text = h & "小时" & m & "分" & s & "秒"
End Sub
将你的考生文件夹打包上传:
注意：提交文件是以“姓名+准考证号”进行压缩的打包文件(查看文件打包并上传的演示动画）
<==
注意：
未做完所有试题之前请不要点击右边的【交卷完成，退出系统】按钮。
点击【交卷完成，退出系统】按钮提交结果之后将视为结束练习，退出系统！<=＝注意左边提示
【你的IP:192.168.104.43】
.
Copyright (C) 2006-2009
Designed By RSIDE
.