VB等级考试题目
一、判断题
第1题：屏幕（Screen）对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变。
参考答案：对
第2题：Integer、Long、Single、Double是数值类型数据，但Byte不是。
参考答案：错
第3题：每当一个窗体成为活动窗口时将触发Show事件。
参考答案：错
第4题：函数过程与Sub过程必须用关键字Private或Public声明。
参考答案：错
第5题：用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。
参考答案：对
第6题：运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。
参考答案：错
第7题： 标签控件可以响应Click事件。
参考答案：对
第8题： 将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。
参考答案：对
第9题：在打开某窗体时，初始化窗体中的各控件，可选用Load事件。
参考答案：对
第10题：若行If语句中逻辑表达式值为True，则关键字Then后的若干语句都要执行。
参考答案：对
二、单选题
第1题：在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是______。
参考答案：B
A、属性窗口
B、代码窗口
C、工具箱
D、工程窗口＜BR＞
第2题：执行___语句后，执行语句“Text1.SelStart = 0 : Text1.SelLength =
Len(Text1)”，可以使文本框控件Text1中的文本突出显示。
参考答案：B
A、Text1.Enabled=True
B、Text1.SetFocus
C、Text1.Locked = False
D、 Text1.Move
第3题：在工程资源管理器中“移除”一个文件后，该文件______。
参考答案：A
A、从当前工程中删除掉
B、仍存在于当前工程中
C、移入windows回收站
D、在磁盘上删除掉＜BR＞
第4题：通常用______方法来显示“自定义”对话框。
参考答案：D
A、Load
B、Unload
C、Hide
D、Show
第5题：设定文件列表框中所显示的文件类型，应修改该控件的______ 属性。
参考答案：A
A、Pattern
B、Path
C、FileName
D、Name
第6题：Integer类型的变量可存的最大整数为______。
参考答案：D
A、255
B、256
C、32768
D、32767＜BR＞
第7题：______可以改变容器坐标系的度量单位。
参考答案：C
A、DrawStyle属性
B、Cls方法
C、ScaleMode属性
D、DrawWidth属性
第8题：下列关于Select Case之测试表达式的叙述中，错误的是______。
参考答案：A
A、只能是变量名
B、可以是整型
C、可以是字符型
D、可以是浮点类型
第9题：下列哪个函数返回值为Ascii码值？
参考答案：D
A、Chr(x)
B、Str(x)
C、Space(n)
D、Asc(x)＜BR＞
第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题：【程序说明】右击窗体则打开Windows自带的计算器“C:\windows\calc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。
----1----
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 2 Then n = n + 1: Shell “C:\windows\calc.exe”
End Sub
Private Sub Command1_Click()
Open "C:\a1.dat" For----2----
Print #1,n: Close #1
----3----
End Sub
请在左边文本框当中输入正确答案。
参考答案：dim n as integer
请在左边文本框当中输入正确答案。
参考答案：output as #1
请在左边文本框当中输入正确答案。
参考答案：end
第2题：【程序说明】
在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。程序运行时如下图
Private Sub Combo1_Click()
Shape1.Shape = = Combo1.List(----1----)
----2---- = Int(Rnd * 7)
End Sub
Private Sub Form_Load()
Dim I As Integer
For I = 0 To 5:----3----: Next I
End Sub
请在左边文本框当中输入正确答案。
参考答案：Combo1.ListIndex
请在左边文本框当中输入正确答案。
参考答案：Shape1.BorderStyle
请在左边文本框当中输入正确答案。
参考答案：Combo1.AddItem Str(I)或Combo1.list(I)=I
第3题：【程序说明】
下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。
Private Sub Form_Click()
Dim n As Integer, a As Integer, b As Integer, c As Integer
Dim x As Integer
For a =0 to 9 '个位数数码
For b = 0 To 9 '十位数数码
For c = ----1----
If a<>b And b<>c And a<>c Then
x =a+10*(b+10*c)
n = ----2----
----3----
If n mod 15 = 0 Then Print
End If
Next c,b,a
Print "总共有这样的三位数"; n; "个"
End Sub
请在左边文本框当中输入正确答案。
参考答案：1 to 9
请在左边文本框当中输入正确答案。
参考答案：n+1或1+n
请在左边文本框当中输入正确答案。
参考答案：print x;
第4题：【程序说明】
窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。
Private Sub Command1_Click() '确定按钮
Static n As Integer
----1----mypwd As String = "123456" '预设密码为自定义常量
n = n + 1
Label2.Visible = True
If ----2---- Then
Label2.Caption = "密码正确"
Else
If n<3 Then
Label2.Caption = "密码错误！"
Text1.Text = ""
Else
----3----
End If
End If
End Sub
请在左边文本框当中输入正确答案。
参考答案：CONST
请在左边文本框当中输入正确答案。
参考答案：Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1
请在左边文本框当中输入正确答案。
参考答案：End
四、程序阅读题
第1题：【程序说明】
写出下列程序运行时，分别输入数据14、3、115、21时，标签框中显示的内容。
Private Sub Form_Click()
Dim b As Integer
a = Val(InputBox("请输入数据", , 100))
Select Case a Mod 5
Case Is<4
w = a + 10
Case Is<2
w = a * 2
Case Else
w = a - 10
End Select
Label1.Caption = "w=" & Str(w)
End Sub
请在左边文本框当中写出正确的答案。
A、
W=4
W=13
W=105
W=11
B、
W=14
W=13
W=125
W=31
C、
W=4
W=13
W=105
W=31
D、
W=4
W=13
W=125
W=31
参考答案：D
第2题：写出程序运行时单击窗体后，在窗体上出现的结果。
Private Sub Form_Click()
Dim I As Single, x As Single, y As Single
Cls
For I = 0 To 2 * 3.1415927 Step 0.0001
x = 2400 + 1000 * Sin(I)
y = 1600 + 1000 * Cos(I)
Line (2400, 1600)-(x, y), RGB(255, 0, 0)
Next I
End Sub
请在左边文本框当中写出正确的答案。
A、转动一条长度为2400单位的红色直线，其轨迹形成一个圆
B、转动一条长度为1600单位的红色直线，其轨迹形成一个圆
C、转动一条长度为1500单位的红色直线，其轨迹形成一个圆
D、转动一条长度为1000
单位的红色直线，其轨迹形成一个圆
参考答案：D
第3题：程序运行时单击Command1后，输入123，写出窗体上的输出结果。
Private Sub Command1_Click()
Dim x As Long, y As String
x = InputBox("请输入数字", "")
Do While x <> 0
y = y & x Mod 10
x = x \ 100
Print y
Loop
End Sub
请在左边文本框当中写出正确的答案。
A、
3
31
B、
3
32
321
C、
3
23
D、以上答案都不对
参考答案：A
第4题：请写出输入m为10、n为8时窗体中的输出结果。
Dim m As Integer, nmin As Integer,n As Integer, na As Integer
Private Sub Form_click()
m = InputBox("please input m")
n = InputBox("please input n")
For i = m To 1 Step -1
If n Mod i = 0 And m Mod i = 0 Then s = 1 : Exit For
Next i
If s = 1 Then print i
End Sub
请在左边文本框当中写出正确的答案。
A、2
B、4
C、6
D、8
参考答案：A
五、程序设计题
在E盘上建以自己【姓名+准考证号】为名的文件夹，并在该文件夹下面根据设计题中小题个数建相应的子文件夹，子文件夹名为
【设计题*】,并把每小题结果文件保存在相应的子文件夹中。
例如：考生张三的准考证号为0100101，做设计题中的第1小题，
文件保存位置是：E:\张三0100101\设计题1
第1题：编程，输入x，求下列分段函数的值，计算结果输出到Text控件中。
参考答案：
Private Sub Command1_Click()
Dim x As Single
x = InputBox("输入x", "计算分段函数")
If x <= 3 Then
Text1 = Str(1 + x)
Else
Text1 = Str(x + 3) ^ 0.25
End If
End Sub
第2题：如下图，编程，点击按钮可以移动列表框中所选中表项的位置。说明：通过
load事件添加列表项，运行时，先选择列表框中的选项，才可以使用“上移”或“下移”按钮。当选项是第一项时不能再上移，当选项是最后一项时不能再下移。
参考答案：
Private Sub Command1_Click() '上移
Dim i As Integer
i = List1.ListIndex
List1.AddItem List1.Text, i - 1 '先将选中的内容添加到上一项前
List1.RemoveItem i + 1 '将原来选中的那项删除
List1.ListIndex = i - 1 '将光标重新指向已经上移后的选项
End Sub
Private Sub Command2_Click() '下移
Dim i As Integer
i = List1.ListIndex
List1.AddItem List1.Text, i + 2 '先将选中的内容添加到下一项后
List1.RemoveItem i '将原来选中的那项删除
List1.ListIndex = i + 1 '将光标重新指向已经下移后的选项
End Sub
Private Sub List1_Click()
Command1.Enabled = True: Command2.Enabled = True
If List1.ListIndex = 0 Then
Command1.Enabled = False '第一项不能上移
End If
If List1.ListIndex = List1.ListCount - 1 Then
Command2.Enabled = False '最后一项不能下移
End If
End Sub
第3题：编写程序，将磁盘文件d:\student.dat中若干个学生的姓名、出生年月、外语成绩和计算机成绩显示在列表框中，并且能实现以下功能：若文本框内容不为空，单击命令按钮“追加记录”则将文本框中的文本追加至列表框中；单击命令按钮“删除记录”则可删除列表框的选中项；首次运行时文件可以为空，单击“保存文件”命令按钮则保存文件。界面设计如图所示。
参考答案：
Private Sub Form_Load()
Dim ss As String
Open "d:\student.dat" For Input As #1
While Not EOF(1)
Line Input #1, ss: List1.AddItem ss
Wend
Close #1
End Sub
Private Sub Command1_Click()
If Trim(Text1.Text) <> "" Then List1.AddItem Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command3_Click()
Dim I As Integer
Open "d:\student.dat" For Output As #1
For I = 0 To List1.ListCount - 1: Print #1, List1.List(I): Next I
Close #1
End Sub
Private Sub Command4_Click()
End
End Sub
第4题
：设计一个简单的画板程序，可以根据选择的颜色，用鼠标的左键模拟画笔，在绘图区画线或画矩形；单击“清除”按钮后清除图片框的内容。（提示：每次画矩形时可先清除其它图案）
参考答案：
Dim x1 As Single, y1 As Single
Private Sub Command1_Click()
CommonDialog1.ShowColor
Picture1.ForeColor = CommonDialog1.Color
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Picture1.CurrentX = X
Picture1.CurrentY = Y
x1 = X
y1 = Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
If Option1.Value Then
Picture1.Line -(X, Y)
Else
Picture1.Cls
Picture1.Line (x1, y1)-(X, Y), , B
End If
End If
End Sub
将你的考生文件夹打包上传:
注意：提交文件是以“姓名+准考证号”进行压缩的打包文件(查看文件打包并上传的演示动画）
<==
注意：
未做完所有试题之前请不要点击右边的【交卷完成，退出系统】按钮。点击【交卷完成，退出系统】按钮提交结果之后将视为结束练习，退出系统！<=＝注意左边提示
【你的IP:192.168.104.43】
.
Copyright (C) 2006-2009
Designed By RSIDE
.
- 计算机二级考试VB一般程序设计习题
- 全国计算机等级考试VB真题及答案1
- 计算机等级考试二级VB教程
- 全国计算机等级考试vb知识点总结 全部
- 2020年计算机等级VB考试强化练习题及答案
- 江苏省计算机等级考试 VB讲座
- 二级VB模拟试题(2-1)(1)-计算机等级考试试题
- 全国计算机等级考试VB知识点总结(全部)
- 全国计算机等级考试二级VB上机试题及答案(十一)
- 全国计算机等级考试VB二级上机题库_有答案
- 【免费下载】上海市计算机等级考试 二级 VB 真题
- 全国计算机等级考试二级VB上机题库以及解析
- 全国计算机二级考试《VB》操作试题及答案
- 全国计算机二级考试vb试题
- 计算机二级VB考试试题
- 计算机等级考试二级VB基础教程
- 计算机二级VB考试大纲
- 全国计算机等级考试——二级VB培训资料
- 计算机等级考试二级VB模拟试题四及答案解析
- 全国计算机等级考试二级vb题库