VB考试题目

判断题

对象方法的调用格式为：对象.方法=方法值

要对文本框中已有的内容进行编辑，按下键盘上的键，就是不起作用，原因是设置了Locked 属性为False。

逻辑型变量的默认值为True。

If 语句的条件表达式中只能使用关系或逻辑表达式。

在多窗体的应用程序中，各个窗体之间的切换可以使用窗体的Show 方法和Hide 方法。窗体/模块级过程不能被本工程中的其他模块调用。

单选钮的Value 属性为逻辑型属性，而检查框的Value 属性为数值型属性。

菜单项控件只能识别一个事件，即Click 事件。

在窗体的Load事件中若要使用Print方法在窗体上打印输出，就必须先将窗体的AutoRedraw 属性设置为True。

默认坐标系统的x 轴正方向向右，y 轴正方向向上。

驱动器列表框和目录列表框都具有Change 事件，但文件列表框不具有Change 事件。

一个程序的启动对象只能是一个窗体。

单选题

若有赋值语句a = 3.14159265，则表达式Fix(a * 1000 + 0.5) / 1000 的值为（）。

（A）3 （B）3.141 （C）3.14 （D）3.142

长整型对应的类型符为（）。

（A）! （B）% （C）& （D）#

KeyPress 事件不能识别（）。

（A）Enter 回车键（B）左方向键

（C）BackSpace 退格键（D）A 字母键

在VB 中，使用Open 语句打开要操作的文件，其中（）不属于文件的打开方式。

（A）Write （B）Input （C）Append （D）Output

下列方法中，（）用来画点。

（A）Pset （B）Point （C）Line （D）Circle

当使用对象的属性和方法时，若对象是（），则可以省略“对象.”。

（A）窗体（B）按钮（C）标签（D）文本框

各种运算符之间的优先级关系是（）。（注：其中“>”表示“优先级高于”）

（A）算术运算符> 字符串连接运算符> 关系运算符> 逻辑运算符

（B）字符串连接运算符> 算术运算符> 逻辑运算符> 关系运算符

（C）逻辑运算符> 关系运算符> 字符串连接运算符> 算术运算符

（D）关系运算符> 算术运算符> 逻辑运算符> 字符串连接运算符

通用对话框中，在显示（）对话框前必须设置Flags 属性，否则会出错。

（A）打开（B）另存为（C）颜色（D）字体

若要让文件菜单包含热键F，显示如“文件(F)”，则需要设置标题为（）。

（A）文件(#F) （B）文件(F) （C）文件F （D）文件(&F)

判断闰年的条件是：年号能被4 整除但不能被100 整除，或者能被400 整除。若年号存放

在y 变量中，则下面的选项中，（）可以用来判断是否为闰年。

（A）y \ 4 = 0 Or y \ 100 <> 0 Or y \ 400 = 0

（B）y \ 4 = 0 And y \ 100 <> 0 Or y \ 400 = 0

（C）y Mod 4 = 0 Or y Mod 100 <> 0 Or y Mod 400 = 0

（D）y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0

要使命令按钮的Picture 属性起作用，必须配合其（）属性。

（A）Default （B）Value （C）Style （D）ToolTipText

若有语句Form1.Scale (-500, 400)-(0, 0)，则下列语句中，（）是用来画某一条对角线的。（A）Form1.Line (0, 0)-(0, 400)

（B）Form1.Line (-500, 0)-(0, 0)

（C）Form1.Line (-500, 0)-(0, 400)

（D）Form1.Line (-500, 400)-(0, 400)

下列属性中，（）可以用来决定画点的大小。

（A）DrawSize （B）DrawStyle （C）DrawWidth （D）PointSize

关于静态变量，下列说法错误的是（）。

（A）静态变量可以在过程中，使用Static 定义

（B）如果Sub 前加了Static，则过程体中所有的局部变量均为静态变量

（C）静态变量的生存期变长，作用域也相应变大

（D）静态变量也是局部变量，它只能被本过程使用

滚动条的（）属性可以设置用户单击滚动箭头时，滚动条Value 属性值的改变量。（A）LittleChange （B）Change

（C）SmallChange （D）LargeChange

下列控件中，（）不能作为其他控件的容器。

（A）图片框（B）框架（C）窗体（D）图像框

默认情况下，语句Dim a(2, 2, 2) As Integer 定义了（）个元素。

（A）2 （B）8 （C）3 （D）27

引用数组元素时，下列说法不正确的是（）。

（A）下标可以是常量（B）下标可以是变量

（C）下标可以是表达式（D）下标可以小于下界

语句（）可以用来结束一个程序的运行。

（A）GoTo （B）Exit （C）Stop （D）End

下列函数中个，（）可以用来判断文件是否读完。

（A）Input （B）Loc （C）Lof （D）Eof

程序填空题

下面的程序用于计算并打印出s=1+2+2^2+2^3+……的结果，直至s 超过10^16。Private Sub Command1_Click()

Dim s As Single

Dim i As Integer

________（1）________

i = 1

________（2）________

s = s + 2 ^ i

________（3）________

Loop

Form1.Print "s="; s

End Sub

（1）（A）s = 3 （B）s = -1 （C）s = 0 （D）s = 1

（2）（A）Do While s > 1E+16 （B）For i = 1 To 16

（C）Do Until s > 10*16 （D）Do Until s > 1E+16

（3）（A）i = i * 2 （B）i = 2 ^ i

（C）Next i （D）i = i + 1

下面程序用来验证哥德巴赫猜想：一个大于等于6 的偶数可以表示为两个素数之和。其中判

断素数的功能利用函数prime 来解决。

Private Sub Command3_Click()

Dim n As Integer, n1 As Integer, n2 As Integer

n = Val(InputBox("输入一个大于等于6 的偶数"))

For n1 = 3 To n \ 2 Step 2

n2 = n - n1

If ________（4）________ Then

Print n; "="; n1; "+"; n2

End If

Next n1

End Sub

Public Function prime(x As Integer) ________（5）________

Dim i As Integer

________（6）________

For i = 2 To Int(Sqr(x))

If x Mod i = 0 Then

prime = False

Exit For

End If

Next i

End Function

（4）（A）prime(n1, n2) （B）prime(n1) And prime(n2)

（C）prime(n1, n2) = n （D）prime(n1) Or prime(n2)

（5）（A）As Integer （B）As Boolean

（C）% （D）As Long

（6）（A）Dim x As Integer （B）prime = True

（C）prime = False （D）Dim Prime As Boolean

下面的程序是一个金曲榜程序。运行界面和具体要求如下：列表框显示榜单。选择歌曲名后，“↑”和“↓”按钮分别用于提升和降低歌曲名次；“←”和“→”按钮分别用于进榜和出榜。

Private Sub cmdUp_Click() '上升名次按钮

…'此处代码省略

End Sub

Private Sub cmdDown_Click() '下降名次按钮

Dim i As Integer, t As String

________（7）________

If i = -1 Then

MsgBox "请先选择歌名"

ElseIf i <> List1.ListCount - 1 Then

t = List1.List(i)

List1.List(i) = List1.List(i + 1)

List1.List(i + 1) = t

List1.ListIndex = i + 1

End If

End Sub

Private Sub cmdIn_Click() '进榜按钮

Dim song As String, i As Integer

song = Text1

i = Val(Text2)

If song <> "" And i >= 1 And i <= List1.ListCount + 1 Then ________（8）________

Else

MsgBox "输入有误！"

End If

End Sub

Private Sub cmdOut_Click() '出榜按钮

Dim i As Integer, t As String

i = List1.ListIndex

If i = -1 Then

MsgBox "请先选择歌名"

Else

________（9）________

End If

End Sub

（7）（A）i = List1.ListIndex （B）i = List1.ListCount （C）i = Val(Text1) （D）i = List1.ListCount-1

（8）（A）List1.AddItem song, i –1 （B）List1.AddItem song, i + 1

（C）List1.AddItem song, I （D）List1.AddItem song

（9）（A）List1.RemoveItem i （B）List1.Clear

（C）List1.Remove i （D）List1.Kill i

已知一个递增的数组，输入一个整数，将其插入到数组中，保持数组任然有序。插入的操作由函数insert 完成。

Private Sub Command4_Click()

Dim a(), x%, i%

a = Array(1, 3, 5, 6, 7, 15, 36, 88, 90)

x = Val(InputBox("输入要插入的数"))

For i = LBound(a) To UBound(a)

Print a(i);

Next i

Print

End Sub

Public Sub insert(a(), x As Integer)

Dim i%, p%, q%

p = LBound(a)

q = UBound(a)

________（11）________

For i = q To p Step -1

If x <= a(i) Then

a(i + 1) = a(i)

If i = 0 Then a(i) = x

Else

________（12）________

Exit For

End If

Next i

End Sub

（10）（A）insert(a, x) （B）a = insert(x)

（C）insert a, x （D）Call insert

（11）（A）q = q + 1

（B）ReDim Preserve a(p To q)

（C）ReDim Preserve a(p To q + 1)

（D）ReDim a(1 To q)

（12）（A）a(i) = x （B）a(i) = a(i + 1)

（C）a(i + 1) = x （D）a(i - 1) = a(i)

程序阅读题

运行下列程序，单击按钮，并输入“1234657”，则窗体上输出的结果是（）。

Private Sub Command1_Click()

Dim x As Long, y As Long

x = Val(InputBox("请输入一个数"))

Do While x <> 0

y = y * 10 + x Mod 10

x = x \ 10

Loop

Print y

End Sub

（A）7654321 （B）1234567 （C）1357642 （D）2467531

运行下列程序,单击Command6 按钮，窗体上显示的结果是（）。

Private Sub Command6_Click()

Dim a As Integer, b As Integer

a = 365:

b = 12

Call f(a, b)

Print a; b

End Sub

Private Sub f(ByVal x As Integer, ByVal y As Integer)

Dim t%

x = x \ 100

y = x * 100 + y

Print x; y

End Sub

（A）3 312 （B）3 312 （C）365 12 （D）365 12

365 12 3 312 3 312 365 12

窗体上有三个标签，一个时钟控件Timer1，还有由3 个形状控件构成的一个控件数组Shape(0)、Shape(1)、Shape(2)，从左到右分别表示红灯、黄灯和绿灯。运行程序，等待动态效果结束后，窗体呈现的效果是（）。

Private Sub Form_Load()

Dim i%

Timer1.Interval = 1000

Timer1.Enabled = True

For i = 0 To 2

Shape(i).Visible = False

Next i

End Sub

Private Sub Timer1_Timer()

Static n%

If Shape(n Mod 3).Visible = False Then

Shape(n Mod 3).Visible = True

Else

Shape(n Mod 3).Visible = False

End If

n = n + 1

If n = 4 Then Timer1.Enabled = False

End Sub

运行下列程序,单击窗体，窗体上显示的结果是（）。

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 j >= i Then

a(i, j) = 1

End If

Next j

Next i

For i = 1 To 5

For j = 1 To 5

Form1.Print " "; a(i, j);

Next j

Form1.Print

Next i

End Sub

运行下列程序,单击Command2 按钮，窗体上显示的结果是（）。Private Sub Command2_Click()

Print f(3, 7)

End Sub

Public Function f(x As Single, n As Integer) As Integer

If n = 0 Then

f = 1

Else

If n Mod 2 = 1 Then

f = x * f(x, n \ 2)

Else

f = f(x, n \ 2) \ x

End If

End If

End Function

*（A）27 （B）18 （C）14 （D）7

本程序界面由一个控件数组Command1（共包括4 个按钮，对应的索引index 值分别为0，1，2，3）和两个文本框Text1、Text2，一个标签Label1 组成。程序运行时，在Text1 和Text2 中分别输入5，6 并单击索引为2 的按钮，此时标签控件Label1 的显示结果是（）。Private Sub Command1_Click(Index As Integer)

Dim a%, b%, answer!

a = Val(Text1.text)

b = Val(Text2.text)

Select Case Index

Case 0

Label1.caption = "+"

answer = a + b

Case 1

Label1.caption = "-"

answer = a – b

Case 2

Label1.caption = "×"

answer = a * b

Case Else

Label1.caption = "÷"

answer = a / b

End Select

Label1.caption = "=" & answer

End Sub

（A）5*6=30 （B）30 （C）= 30 （D）5×6=30

程序设计题

1.在窗体上添加一个命令按钮(标题为"输出平均值")。程序运行后，单击命令按钮

完成以下工作：

机产生30 个100 到1000 的整数，将其显示在窗体上（每行10 个）。

求出所有元素的平均值，并显示在窗体上(如下图所示)

2.请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个标题为"转换"的命令

按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。

3.编写一个求给定数值范围内的幸运数及其个数的程序。所谓幸运数是指前两位数字之和

等于后两位数字之和的四位正整数。例如，2103，2+1=0+3，就是一个幸运数。

【编程要求】

（1）程序参考界面如下图所示，编程时不得增加或减少界面对象或改变对象的种类。（2）首先在文本框1 和文本框2 中分别输入要求的幸运数的初值和终值，然后单击“求幸运数”按钮，则求出给定范围内的所有幸运数并在列表框中显示结果，在文本框3 中显示幸运数个数；单击“清除”按钮，则将3 个文本框及列表框清空，焦点置于文本框1 上。（3）程序中应定义一个判断某数是否为幸运数的函数过程。