vb笔试样题

vb笔试样题
（A）工程1 (B) 窗体1 (C) 工程(D) 窗体
2.任何控件都具有的属性是().
（A）TEXT (B) CAPTION (C) 名称(D)FORECOLOR
3.能够改变窗体边框线类型的属性是()。

（A）FontStyle (B) BorderStyle (C) BackStyle (D) Border
4.清除列表框的所有选项应选择下列哪种方法().
（A）Clear (B) Cls (C) Clear Item(D) RemoveItem
5."如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值(0~None),则
执行语名List1.RemoveItem List1.ListIndex的结果是()."
（A）删除列表框的最后一项(B) 删除列表框的第一项
(C) 出错(D) 删除列表框中的最后添加的一项
6."如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消
失."
（A）Visible (B) Enabled (C) Disabled (D)Default
7.如果要给字体加删除线,可以选择下列那种属性().
（A）FontName (B) FontSize (C) FontStrikethru (D) FontUnderLine 8.如果要在菜单中添加一个分隔线,则应将其Caption属性设置为().
（A）= (B)* (C) & (D) —
9.如果要在命令按钮上显示图形文件,应设置命令按钮的().
（A）Style属性和Graphics属性(B) Style属性和Picture属性
(C) Picture属性(D) Graphics属性
10.若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的()属性.
（A）BACKCOLOR (B) BORDERSTYLE (C) FORECOLOR (D) BACKSTYLE 11.不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是().
A:用Tab键B:用鼠标C:用方向键D:不能实现
12.用语句Dim A (-3 To 5) As Integer定义的数组的元素个数是().
A:6 B:7 C:8 D:9
13.表达式(-1)*Sgn(-100+Int(Rnd*100))的值是().
A:0 B:1 C:-1 D:随机数
14.可以用作其它控件容器的控件有().
A:窗体控件,列表控件,图像控件
B:窗体控件,文本框控件,框架控件
C:窗体控件,框架控件,图片框控件
D:窗体控件,标签控件,图片控件
第 1 页共9 页出题教师：柏晓辉负责人签字：
15.下列表达式中,其值为0的是().
A:7/9 B:7 mod 15 C:7\9 D:15 mod 9
16.以下能判断是否到达文件尾的函数是().
A:BOF B:LOC C:LOF D:EOF
17.设置列表框选中的文本用()属性.
A:selected B:caption C:text D:list
18.为了把焦点移到某个指定的控件,所使用的方法是().
A:SetFocus B:Visible C:Refresh D:GetFocus
19.表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是().
A:0.48 B:0.048 C:0.5 D:0.05
20.以下不具有Picture属性对象是().
A:窗体B:图片框C:图像框D:文本框
21.下列方法中可用于列表框动态添加数据的是().
A:add B:additem C:addlist D:removeitem
22.如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是().
A:0.01*int(x+0.05) B:0.01*int(100*(x+0.005))
C:0.01*int(100*(x+0.05)) D:0.01*int(x+0.005)
23.控件内的对齐方式()属性决定.
A:Alignment B:WordWrap C:AtuoSize D:Style
24.将CommonDialog通用对话框的类型设置为字体对话框,可设置该控件的()属性.
A:Font B:Filter C:flags D:Action
25.在窗体上建立了多个控件,如Text1、Label1、Command1,若要使程序一运行焦点就定
位在Command1控件上,应将Command1控件的()设置为0.
A:Index B:Tabindex C:Tabstop D:Enabled
二、填空题（共65分，1-10：10X1分=10分、11-30：20X2分=40分、31-35：
5X3分=15分）
1、Visual Basic应用程序中标准模块文件的扩展名是【1】。

2、为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval
属性设置为【2】。

3、将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【3】。

2Cos30的VB表达式是【4 】
4、写出数学表达式
5、写出表达式(5^2 Mod 25 \ 2^2) >3 and 5<10的值【5 】
6、写出闰年的布尔表达式：（年份year能被4整除，但不能被100整除：或者能被400
整除。

）【6 】
7、要想使组合框的形式为下拉列表框应设置它的Style属性为：【7 】
8、在模块的通用段建立公用一维固定大小的双精度数组a，（索引值从1到10）的语句
为：【8 】
9、如果在过程中传递参数时要采用传值方式，则可以在形式参数前添加的关键字【9 】
10、使用“通用对话框”时，打开“另存为”对话框所使用的方法为【10 】
第 2 页共9 页出题教师：柏晓辉负责人签字：
11、窗体上有一个Command1，当运行程序单击该按钮时，输入任何一个英文字母
x,若x的值为"a","c","d-f" ,则显示x的大写字母；若x的值为"m","o","p-z",则显示x 的小写字母；若为其它的值,则显示xa（如输入的X的值是g，则显示ga）。

Private Sub Command1_Click()
x = Text1.Text
【11】
Case "a", "c", "d" To "f"
Label1.Caption = UCase(x)
Case 【12】
Label1.Caption = LCase(x)
【13】
Label1.Caption = Trim(x) + "a"
End Select
End Sub
12、以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5
整除的数并求出它们的和。

请填空。

Private Sub Command1_Click()
For i = 1 To 20
x = Int( 【14】* 200 + 100)
If 【15】= 0 Then
Print x
S = S + 【16】
End If
Next i
Print "Sum = "; S
End Sub
13、设有如下程序
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 20:
b = 50
p1 a, b
p2 a, b
p3 a, b
Print "a="; a, "b="; b
End Sub
Sub p1(x As Integer, ByVal y As Integer)
x = x + 10
y = y + 20
End Sub
Sub p2(ByVal x As Integer, y As Integer)
第 3 页共9 页出题教师：柏晓辉负责人签字：
第 4 页 共 9 页 出 题 教 师： 柏晓辉 负责人签字： x = x + 10
y = y + 20
End Sub
Sub p3(ByVal x As Integer, ByVal y As Integer)
x = x + 10
y = y + 20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a = 【17】 和 b = 【18】 。

14、 在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2
及Caption 属性分别为"城市名称"和空白的标签。

程序运行后，当在组合框中输入一个新项后按回车键（ASCII 码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项
"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中"。

请程序补充完整。

Private Sub Combo1_ KeyPress (KeyAscii As Integer)
If KeyAscii = 13 Then
For i = 0 To 【19】-1
If Combo1.Text = 【20】 Then
Label2.Caption = "输入项已在组合框中"
Exit Sub
End If
Next i
Label2.Caption = "已成功添加输入项"
Combo1.【21】 Combo1.Text
End If
End Sub
15、 数组a 有10个元素，元素的值由键盘输入，要求将前5元素与后5元素对换。

要求使用t 作为交换中间变量。

Dim a(1 To 10) as integer
“对换”按钮单击事件代码：
Private Sub Command2_Click()
For i = 1 To 【22】
t = a(i): a(i) = a(11 - i ):【23】
Next i
For i = 1 To 10
p = p & 【24】& ","
Next i
Label2.Caption = p
End Sub
16、在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单
选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。

Private Sub Option1_Click(Index As Integer)
Select Case【25】
第 5 页共9 页出题教师：柏晓辉负责人签字：
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
Text1. 【26】= 【27】
End Sub
17、建立一个存放学生成绩表的stw.dat顺序文件，已经单击Command1通过键盘
输入学生学号、姓名、1科成绩，并且使用Write#语句成功地把数据写入文件，现要求单击Command2将文件中数据读出并显示在窗体上。

注意：是将文件中数据读出并显示在窗体上，不是把数据写入文件。

Private Sub Command2_Click()
Open "stw.dat" For 【28】As #2
Do While Not 【29】
【30】, XH, XM, CJ
Print XH; Tab(10); XM; Tab(20); CJ
Loop
Close #2
End Sub
18、在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_Click()
Open "c:\a.txt" For Output As #1
Dim a(5, 5)
For i = 1 To 3
For j = 1 To 4
a(i, j) = i * j
Next j
Next i
For n = 1 To 3
第 6 页共9 页出题教师：柏晓辉负责人签字：
For m = 1 To 2
Print #1, a(m, n);
Next m
Next n
Close #1
End Sub
程序运行后，单击命令按钮，文件a.txt中结果为【 31 】。

19、在窗体上画一个命令按钮，然后编写如下程序：
Function M(x As Integer, y As Integer) As Integer
M = IIf(x > y, x, y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1
b = 2
Print M(a, b)
End Sub
程序运行后，单击命令按钮，输出结果为【32 】。

20、在窗体上画一个命令按钮，然后编写如下代码：
Private Type studentrec
stunum As String * 6
names As String * 8
credit As Integer
avg As Single
End Type
Private Sub Command1_Click()
Dim student(1 To 50) As studentrec
student(32).stunum = "990001"
student(32).names = "王平"
student(32).credit = 65
student(32).avg = 88
Text1(0).Text = student(32).stunum
Text1(1).Text = student(32).names
Text1(2).Text = student(32).credit
Text1(3).Text = student(32).avg
End Sub
程序运行后，单击命令按钮，索引值为2的文本框中的输出结果为【33 】。

21、运行如下程序，给出在窗体上的输出结果。

Private Sub Form_Activate()
第7 页共9 页出题教师：柏晓辉负责人签字：
Dim i As Integer
For i = 1 To 3
testsub
Next i
End Sub
Sub testsub()
Static x As Integer, m As String
x = x + 1: y = y + 1
m = m & "*": n = n & "*"
Print "x="; x; "y="; y, "m="; m, "n="; n
End Sub
结果【34 】
22、运行如下程序，给出在窗体上的输出结果。

Dim a As Integer, b As Integer, c As Integer
Private Sub Form_Activate()
a = 5:
b = 3
Print , "a", "b", "c=a*b"
Call prod
Print "调用prod后", a, b, c
End Sub
Sub prod()
c = a * b
Print "prod子程序", a, b, c
End Sub
结果【35 】
三、编程题（本大题共2小题，每小题5分，总计10分）
1.要求编写算阶乘的子程序过程来计算1!+2!+..+10!阶乘和，给出了部分调用程
序，请将子程序过程补充完整。

Private Sub Command1_Click()
Dim i As Integer, tot As Long
第8 页共9 页出题教师：柏晓辉负责人签字：
第 9 页 共 9 页 出 题 教 师： 柏晓辉 负责人签字： For i = 1 To 10
Call jc(i, tot)
s = s + tot
Next i
Label1.Caption = Command1.Caption & " = " & s
End Sub 将jc 子程序过程程序段写在下面
……
2. 由计算机随机生成10个10-99间整数，假定随机整数已有程序产生并且放在m
数组中。

要求用Command2的Click 事件中用选择法将这些数按由小到大的顺
序排序并且显示出来，结果如图示。

Private Sub Command2_Click()
选择法排序并且显示出来程序段写在下面
……
End Sub。