VisualBasic程序设计试卷
Visual BASIC程序设计模拟试题(⼀) （⼀）单选题
1. ⼀个对象可以执⾏的动作和可被对象识别的动作分别称为。
A、事件、⽅法
B、⽅法、事件
C、属性、⽅法
D、过程、事件
2. 改变控件在窗体中的左右位置应修改该控件的（）属性。
A、 Top
B、 Left
C、 Width
D、 Right
3 对象不具有Caption属性。
A、Label
B、Option
C、Form
D、Timer
4. 将命令按钮Command1设置为缺省的活动按钮可修改该控件的属性。
A、 Enabled
B、 Value
C、 Default
D、 Cancel
5．将焦点主动设置到指定的控件或窗体上，应采⽤⽅法。
A、GetGata
B、 SetFocus
C、 SetText
D、 SetData
6. 对象不能作为控件的容器。
A、Form
B、PictureBox
C、Shape
D、Frame
（⼆）判断题
1．Variant是⼀种特殊的数据类型，Variant类型变量可以存储除了定长字符串数据及⾃定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error 和Null等特殊值。
2．由Visual Basic语⾔编写的应⽤程序有解释和编译两种执⾏⽅式。
3．框架控件和形状控件都不能响应⽤户的⿏标的单击事件。
4．在⼀个窗体的代码中不能使⽤Unload语句来卸载本窗体，即⼀个窗体只能由其它窗体卸载。
basic语言解释程序属于什么5．⽤Cls⽅法能清除窗体或图⽚框中⽤Picture属性设置的图形。
6．当在⼀个简单组合框的⽂本框中输⼊⼀个它的列表框中没有的条⽬时，组合框会⾃动把这⼀条⽬添加到它的列表框中。7．图⽚框的Move⽅法不仅可以移动图⽚框，⽽且还可以改变该图⽚框的⼤⼩。
8．移动框架时框架内的控件也跟随移动，所以框架内各控件的Left和Top属性值也将分别随之改变。
9．定时将⽂本框中的数据保存到磁盘，应选⽤Timer计时器控件。
10．如果⼀个菜单项的Visible属性为False，则它的⼦菜单也不会显⽰。
(三)填空题
阅读下列各叙述，将正确答案写在答卷的相应栏内。
1．表达式 81\7 MOD 2^2的值是多少？
2．设x为⼀个两位数，写出将x的个位数和⼗位数交换后所得两位数的VB表达式。
3．由下列语句定义的数组占⽤多少字节的内存空间？
Dim x(1 TO 14) As Integer
4．设 x=6,y=4,z=7，请写出下⾯表达式的值（值⽤True或False表⽰） .
x>y And y>x-z Or xz
5．写出以图⽚框Pic1的中⼼位置为圆⼼，以700为半径在Pic1上画⼀个圆的⽅法。
(四)、程序阅读
仔细阅读下列各⼩题的程序，将程序执⾏时的输出结果写在答卷的相应位置上。
1. Private Sub Form_Click()
Dim a 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
设输⼊的数据分别为14、3、125、21时，标签框Label1.Caption的值分别是多少？
2. Private Sub Form_Click()
Static a As Integer
Dim b As Integer
b = a + b + 1
a = a + b
Print a, b
End Sub
程序运⾏时连续单击四次窗体后，a和b的值分别是多少？3.
Private Sub Form_Click()
Dim f1 As Integer, f2 As Integer, f3 As Integer
Open "c:\a1.dat" For Output As 1
f1 = 2: f2 = 3
Print #1, "NO."; 3, f1
Print #1, "NO."; 4, f2
For i = 5 To 7
f3 = f1 + f2
Print #1, "NO.";i, f3
f1 = f2
f2 = f3
Next i
Close #1
End Sub
写出a1.dat⽂件的最终结果。
4.
Private Sub Command1_Click()
Const n = 6
Dim xx(n) As Integer
Form1.Cls
For i = 1 To n
xx(i) = i * i
Next i
Call fchange(xx(), n)
For i = 1 To n
Form1.Print xx(i),
Next i
Sub fchange(a() As Integer, m)
For i = 1 To m / 2
t = a(i)
a(i) = a(m - i + 1) '①
a(m - i + 1) = t '②
Next i
End Sub
（1）写出运⾏以上程序后Form1上的输出结果。
（2）写出将标记有①和②的两条语句对调后，重新运⾏程序时Form1上的输出结果。
(五)、程序填空
仔细阅读下列各⼩题的程序说明和相应的程序，将应在下划线处填写的合适内容写在答卷的相应位置。
1. 程序说明：在窗体上有两个命令按钮和⼀个⽂本框，名称分别为cmdstart（“开
始”）、cmdend（“结束”）和Text1。⽂本框Text1中的字符个数不超过200个。程序刚开始运⾏时，“结束”按钮成灰⾊，单
击“开始”按钮后，将⽂本框Text1.Text中的字符按其ASCII码值由⼩到⼤⾃左到右重新组合，并在窗体上输出重组后的字符串，同时使“结束”按钮能响应⽽“开始”按钮不能响应。
程序代码如下：
Private Sub Form_Load()
Cmdend.Enabled = False
End Sub
Private Sub Cmdstart_Click()
Dim n As Integer，i As Integer, j As Integer, p As Integer
Dim a(200) As String * 1，str1 As String, t As String
str1 = Text1.Text
n = Len(str1)
For i = 1 To n
a(i) = ⑴
Next i
For i = 1 To n - 1
p = i
For j = i + 1 To n
If a(p) > a(j) Then ⑵
Next j
If ⑶ Then t = a(i): a(i) = a(p): a(p) = t
Next i
For i = 1 To n
Next i
⑷
⑸
End Sub
Private Sub Cmdend_Click()
End
End Sub
2. 程序说明：本程序将⼀个⼤于100的偶数n分解为两个素数之和。其中nflag函数⽤于判断⾃然数x是否为素数。
程序代码如下：
Private Sub Form_Click()
Dim n As Integer，x As Integer, y As Integer
n = Val(InputBox("请输⼊⼀个⼤于100的偶数", "输⼊数据", 100))
For x = 3 To n \ 2 Step 2
If nflag(x) Then
y = ⑹
If nflag(y) Then
Form1.Print n; "="; x; "+"; y
Exit For
End If
End If
⑺
End Sub
Function nflag(x As Integer) As Boolean
Dim flag As Boolean
k = 2 : m = Int(Sqr(x))
⑻
Do While k <= m
If x Mod k = 0 Then flag = False
k = k + 1
Loop
nflag = ⑼
End Function
(六)、编程题

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。