VB等级考试题目
练习中--§§ 准考证号:12X2A0101VBP §§ 姓名:练习001 §§ 班级:所有专业. 杭州师范大学
计算机技术基础(VB程序设计)课程练习平台.
学号:12X2A0101VBP 姓名:练习001 班级:所有专业
注意：回答完所有试题之后，需要点击本页面最后的【交卷完成，退出系统】按钮。
题号一二三四五
题型判断题 单选题 程序填空题 程序阅读题 程序设计题
说明点击题型名称可以跳转到相应题型
一、判断题
第1题：设置窗体的Fillcolor属性使窗体的填充色为红色后，形状控件的填充色也是红色。
参考答案：错
对
错
第2题：在一个模块中声明了一个模块级变量，则该变量可以被该模块中的所有过程访问。
参考答案：对
对
错
第3题：在任何状态下都可以直接设置窗体的属性。
参考答案：错
对
错
第4题：过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。
参考答案：对
对
错
第5题：将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。
参考答案：对
对
错
第6题：若某文件已存在，用OUTPUT方式打开该文件，等同于用APPEND方式打开该文件。
参考答案：错
对
错
第7题：如果定时器的Interval属性是0，当启动定时器时，程序将进入死循环。
参考答案：错
对
错
第8题：当一个菜单项不可见时，其后的菜单项就会往上填充留下来的空位。
参考答案：对
对
错
第9题：Print语句可以省略输出项，省略输出项，表示输出一空行。
参考答案：对
对
错
第10题：在Select Case情况语句中，Case 表达式可以包含任意变量。
参考答案：错
对
错
二、单选题
第1题：在窗体Form1的Load事件过程中有
语句：Form1.Print "Visual
Basic"，但运行时窗体并未显示打印文字，此时需要修改窗体的______属性,才能使窗体启动有输出结果 。
参考答案：C
A、Autosize
B、Enabled
C、Autoredraw
D、Visible
第2题：当文本框的______属性设置为True时，在运行时文本框不能编辑。
参考答案：B
A、Enabled
B、Locked
C、Visible
D、MultiLine
第3题：所有的控件都具有的属性是______。
参考答案：B
A、Caption
B、Name
C、Text
D、BackColor
第4题：菜单编辑器中，同层次的______设置为相同，才可以设置索引值。
参考答案：B
A、Caption
B、Name
C、Index
D、ShortCut
第5题：下面______选项能表示目录列表框控件dir1的当前目录。
参考答案：D
A、dir1.list(list1.listindex)
B、dir1.list(0)
C、dir1.list(list1.listcount)
D、dir1.list(-1)
第6题：执行Print "Very";:Print "Nice"后，窗体上的显示结果是______。
参考答案：D
A、 出错信息
B、
Very
Nice
C、Very Nice
D、VeryNice
第7题：语句“Circle(1000,1000),800,,,,3”绘制的是______。
参考答案：B
A、弧
B、椭圆
C、扇形
D、同心圆
第8题：由For k=35 TO 0 Step 3 : Next k循环语句控制的循环次数是______ 。
参考答案：A
A、0
B、12
C、-11
D、-10
第9题：交换变量x、y的语句应写作：_______。
参考答案：C
A、x=y:y=x
B、x=temp:temp=y:y=temp
C、temp=x:x=y:y=temp
D、x=y:y=temp:temp=x
第10题：设置命令按钮cm1的背景色为红色，可以执行语句______。
参考答案：B
A、 cm1.BackColor = vbred:
B、cm1.BackColor = vbred: cm1.style=1
C、cm1.Picture = RGB(255, 0, 0)
D、cm1.BackColor = RGB(255, 0, 0):cm1.enabled=True
三、程序填空题
第1题：【程序说明】下列程序运行时，在驱动器列表框中选择驱动器，目录列表框相应变为所选驱动器的目录列表，在目录列表框中选择相应目录，文件列表框的内容变为所选目录下的文件列表，只要单击其中扩展名为＂.bmp＂的文件，即可在图像框中显示该图像。
Private Sub Dir1_Change()
File1. Path =dir1.Path
End Sub
Private Sub Drive1_Change()
----1----
End Sub
Private Sub File1_Click()
Dim PathStr As String
if right(file1.path,1)="\" then
PathStr=File1.Path & File1.FileName
else
----2----
end if
If Right(PathStr,4)= “.bmp” Or Right(PathStr,4)= “.BMP” Then
----3----
End If
End Sub
请在左边文本框当中输入正确答案。
参考答案：Dir1.Path=Drive1.Drive
请在左边文本框当中输入正确答案。
参考答案：PathStr=File1.Path & “\” &
File1.FileName或PathStr=File1.Path + “\” + File1.FileName
请在左边文本框当中输入正确答案。
参考答案：Image1.Picture=LoadPicture(PathStr)
第2题：【程序说明】
窗体上有两个图片框控件Picture1和Picture2，两个命令按钮command1（标题为“加载”）和command2（标题为“复制”），程序运行时，“复制”按钮不可用，图片框控件Picture2和Picture1大小相同，单击“加载”按钮，打开通用对话框，选择一个图形文件，在图片框控件Picture1中显示，同时“复制”
按钮可用，“加载”按钮不可用；单击“复制”按钮，将Picture1的图片复制到Picture2中，同时“加载”按钮可用，“复制”
按钮不可用。
Private Sub Form_Load()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
----1----
End Sub
Private Sub command1_Click()
----2----
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub command2_Click()
----3----
Command1.Enabled = True
Command2.Enabled = False
End Sub
请在左边文本框当中输
入正确答案。
参考答案：Command2.Enabled = False
请在左边文本框当中输入正确答案。
参考答案：CommonDialog1.ShowOpen或CommonDialog1.Action=1
请在左边文本框当中输入正确答案。
参考答案：Picture2.Picture = Picture1.Picture 或 Picture2.Picture =
LoadPicture(CommonDialog1.FileName)
第3题：【程序说明】
该程序的功能为：从1到1000中找出这样的数，该数每位上数字的阶乘之和等于该数，并将结果输出从窗体输出。
Private Sub Form_Click()
Dim k, a, n, I, m
Dim p As Integer
For k = 1 To 10000
a = Ltrim(Str(k))
n = 0
m = Len(a)
For I = 1 To ----1----
p = Val(Mid(a, I, 1))
n = ----2----
Next I
If n = k Then Form1.Print k
Next k
End Sub
Function fact(x As Integer) As Long
'该函数用于计算阶乘
Dim y As Long
Dim I%
y = 1
For I = 1 To x
y = y * I
Next I
----3----
End Function
请在左边文本框当中输入正确答案。
参考答案：m
请在左边文本框当中输入正确答案。
参考答案：n+fact(p)或fact(p)+n
请在左边文本框当中输入正确答案。
参考答案：fact=y
第4题：【程序说明】
这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。
[程序]
Dim UserName(2) As String, inputName As String
Dim Flag As Boolean ‘flag=true表示用户名正确;flag=false表示用户名不正确
Private Sub Form_Load()
Dim I As Integer
UserName(0) = "AA" : UserName(1) = "BB" : UserName(2) = "CC"‘共三个用户名
----1----
inputName = InputBox("请输入名称：", "身份确认", " ")
For I = 0 To 2
If ----2----Then
Flag = True
End If
Next I
If Flag =False Then
----3---- ("用户身份确认失败！退出应用", vbOKOnly, " 警告")
End
End If
End Sub
Private Sub Form_Paint()
picShowMsg.Print "欢迎您！" + inputName
End Sub
请在左边文本框当中输入正确答案。
参考答案：Flag = False或flag<> true或not flag
请在左边文本框当中输入正确答案。
参考答案：inputName = UserName(I)或UserName(I)= inputName
请在左边文本框当中输入正确答案。
参考答案：MsgBox
四、程序阅读题
第1题：写出程序运行时，单击Option1(2)后，窗体上的显示结果。
Private Sub Form_Load()
Option1(0).Value = False: Option1(1).Value = False
Option1(2).Value = False
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Check1(0).Value = 1: Check1(1).Value = 0
Case 1
Check1(0).Value = 1: Check1(1).Value = 1
Case 2
Check1(0).Value = 0: Check1(1).Value = 1
End Select
If Check1(0).Value = 1 Then Print "您好"
If Check1(1).Value = 1 Then Print "欢迎使用VB!"
End Sub
请在左边文本框当中写出正确的答案。
A、"您好"
B、"您好""欢迎使用VB!"
C、
您好
欢迎使用VB!
D、欢迎使用VB！
参考答案：D
第2题：写出程序运行时单击滚动条右端箭头2次后，a1.txt文件的结果。
Private sub form_load()
Hscroll1.min=0
Hscroll1.max=10
Hscroll1.SmallChange=2
https://www.360docs.net/doc/045741686.html,rchange=4
Hscroll1.VALUE=0
End sub
Private Sub HScroll1_Change ()
Open "a1.txt" For Append As #1
Print #1, Hscroll1.Value;
Print #1,
Close #1
End Sub
请在左边文本框当中写出正确的答案。
A、2
B、4
C、
2
4
D、
4
2
参考答案：C
第3题：已知窗体某主菜单上有三个子菜单项，当鼠标点击菜单第三项后请写出程序运行后的结果。
'm1、2、3顺序为3个子菜单名
Private sub form_load()
Label 1.visible=false
Label 2.visib
le=false
Label 3.visible=false
End sub
Private Sub m1_Click()
Label 1.visible=true
Label 2.visible=false
Label 3.visible=false
End Sub
Private Sub m2_Click()
Label 1.visible=false
Label 2.visible=true
Label 3.visible=false
End Sub
Private Sub m3_Click()
Label 1.visible=false
Label 2.visible=false
Label 3.visible=true
End Sub
请在左边文本框当中写出正确的答案。
A、程序运行后使得第2、3菜单项不可见，第1个菜单项可见。
B、程序运行后使得第1、3菜单项不可见，第2个菜单项可见。
C、程序运行后使得第1、2菜单项不可见，第3个菜单项可见。
D、程序运行后使得第1、2、3菜单项都不可见。
参考答案：C
第4题：写出程序运行时单击窗体后，在窗体上出现的结果。
Private Sub Form_Click()
Dim i As Integer, x As Single, y As Single
Dim a As Single, b As Single
Form1.Scale (-300, -200)-(300, 200)
For i = 1 To 1000
Randomize
a = 300 * Rnd: If Rnd<0.5 Then a = -a
b = 200 * Rnd: If Rnd<0.5 Then b = -b
x = 300 * Rnd: If Rnd<0.5 Then x = -x
y = 200 * Rnd: If Rnd<0.5 Then y = -y
If Rnd<0.5 Then y = -y
Line (a, b)-(x, y), RGB(Int(Rnd * 256), Int(Rnd * 256),
Int(Rnd * 256))
Next i
End Sub
请在左边文本框当中写出正确的答案。
A、
B、
C、
D、
参考答案：A
五、程序设计题
在E盘上建以自己【姓名+准考证号】为名的文件夹，并在该文件夹下面根据设计题中小题个数建相应的子文件夹，子文件夹名为
【设计题*】,并把每小题结果文件保存在相应的子文件夹中。
例如：考生张三的准考证号为0100101，做设计题中的第1小题，
文件保存位置是：E:\张三0100101\设计题1
第1题：文本文件e：\aaa.txt中存放了若干行的数字（要求先用记事本建立此文件，文件内容不能为空），要求编制Command
1_Click事件过程，按顺序读出这些数并在组合框控件Combo1中逐行显示。
参考答案：
Private Sub Command1_Click()
Dim k As String
Open "e:\aaa.txt" For Input As #1
Do While Not EOF(1)
Input #1, k
Combo1.AddItem k
Loop
Close #1
End Sub
第2题：设计一个家电提货单管理程序，根据选项选择的家电以及数量，单击确定后，将选择的清单及总价在列表框中列出，清除按钮用于清空列表框中的项目。要求在操作过程中，每选择一种家电，光标自动定位在相应的文本框中，所有文本框只接受数字。程序运行界面如图。
参考答案：
Private Sub Form_Load()
'文本框属性初始化：文本框是空白的，并且不能用
Dim i As Integer
For i = 0 To 2
Text1(i).Text = ""
Text1(i).Enabled = False
Next
End Sub
Private Sub Check1_Click(Index As Integer) '对选中的食物做好输入份数的准备
If Check1(Index).Value = 1 Then
Text1(Index).Enabled = True
Text1(Index).SetFocus
Else
Text1(Index).Text = ""
Text1(Index).Enabled = False
End If
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii<48 Or KeyAscii>57 Then '文本框只接受数字键
KeyAscii = 0
End If
End Sub
Private Sub Command1_Click() '结帐
Dim m As Long, i As Integer
Dim dj(0 To 2) As Integer
dj(0) = 4000: dj(1) = 8000: dj(2) = 7000
For i = 0 To 2
If Check1(i).Value = 1 And Val(Text1(i).Text) <> 0 Then
m = m + dj(i) * Val(Text1(i).Text)
List1.AddItem Check1(i).Caption & Text1(i).Text & "台"
End If
Next i
If m <> 0 Then
List1.AddItem "您需付款：" & m & "元。"
End If
End Sub
Private Sub Command2_Click() '下一位
Dim i As Integer
For i = 0 To 2
Text1(i).Text = ""
Text1(i).Enabled = False
Check1(i).Value = 0
Next
List1.Clear
End Sub
第3题：编程，建立一个3行3列的二维数组，数组的第一行和第一列的值分别由输入对话框赋值，其余元素均为其上面和左面元素值之和(如图所示)。
参考答案：
Private Sub Form_Click()
Dim a(3, 3) As Integer, i as integer, j as integer
a(1, 1) = InputBox("请输入a(1,1)")
For i = 2 To 3
a(1, i) = InputBox("请输入a(1," & i & ")")
a(i, 1) = InputBox("请输入a(" & i & ",1)")
Next i
For i = 2 To 3
For j = 2 To 3
a(i, j) = a(i - 1, j) + a(i, j - 1)
Next j, i
For i = 1 To 3
For j = 1 To 3
Print a(i, j);
Next j
Print
Next i
End Sub
第4题：在窗体上添加一标签，再设计一弹出式菜单“背景色”，下有“变化”和“停止”两个子菜单，右击窗体时弹出该菜单；单击“变化”菜单后，标签的背景色随机变化，变化的时间间隔由滚动条控制，最大时间间隔为1秒，最小时间间隔为100毫秒；单击“停止”菜单后，标签背景色停止变化。程序运行时的界面如图所示。
参考答案：
Private Sub Form_Load()
Timer1.Interval = HScroll1.Value
Timer1.Enabled = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Button = 2 Then PopupMenu t
End Sub
Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub
Private Sub t1_Click()
Timer1.Enabled = True
End Sub
Private Sub t2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd *
256))
End Sub
将你的考生文件夹打包上传:
注意：提交文件是以“姓名+准考证号”进行压缩的打包文件(查看文件打包并上传的演示动画）
<==
注意：
未做完所有试题之前请不要点击右边的【交卷完成，退出系统】按钮。点击【交卷完成，退出系统】按钮提交结果之后将视为结束练习，退出系统！<=＝注意左边提示
【你的IP:192.168.104.42】
.
Copyright (C) 2006-2009
Designed By RSIDE
.