loading精品文档
2010—2011学年第一学期期中考试试卷
高三职高VB试题
题号 一 二 三 四 五 总分 得分
一 、选择题（每小题2分,共40分） 1、 下列说法错误的是（ ）
A) 标准模块的扩展名是.bas B) 标准模块由程序代码组成
C) 标准模块只用来定义一些通用的过程D) 标准模块不附属于任何一个窗体 2、如果要将窗体中的某个命令按钮设置成无效状态，应动命令按钮的何种属性 A) Value B) Visible C) Default D) Enabled
3、 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（ ）
A) 设置Enabled的值为True B) 设置TabIndex的值为1 C) 设置TabIndex的值为0 D) 设置Index的值为0 4、 下列几项中，属于合法的日期型常量的是（ ）
A) \ B) 10/10/02 C) {10/10/02} D) #10/10/02# 5、 下列程序段的执行结果为（ ） A=2：B=5
If A * B < 1 Then B=B - 1 Else B=-1 Print B - A > 0
A) True B) False C) -1 D) 1
6、假定定时器的Interval属性值为1000,Enabled属性值为True,调用下面的事件过程,程序运行结束后,变量X的值为( ) Private Sub Timer1_Timer()
Dim x As Integer For i = 1 To 10
x = x + 1 Next i
Print x
End Sub
A)1000 B)10000 C)10 D)以下都不对
7、 标签控件能够显示文本信息，决定其文本内容的属性是（ ） A) Alignment B) Caption C) Visible D) BorderStyle 8、如果要声明一个全局性的符号常量，则应将该声明放在（ ）
A、过程中 B、窗体模块的通用声明段中
C、标准模块的通用声明段中 D、窗体模块或标准模块的通用声明段中 9、在窗体的通用段声明变量时，不能使用的（ ）关键字
A、Dim B、Public C、Private D、Static 10、以下常量中，不合法的是（ ）
A、True B、#1999-12-01# C、1999-12-01 D、False 11、设b的值为7，表达式为“x=b=7”,则运算后表达式的值为（ ）
精品文档
A、True B、b=7 C、7 D、b
12、能产生30—100之间随机数的表达式为（ ）
A)Int(71*Rnd)+30 B)Int(100*Rnd)+30 C)Int(70*Rnd) D)Int(100*Rnd) 13、 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() s=1 Do
s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s >=30 Print Number, s End Sub
程序运行后，输出的结果是( )
A) 2 3 B) 2 56 C) 5 12 D) 10 20 14、下列程序段的执行结果为( ) x=Int(Rnd() + 9) Case 8
Select Case x
Print \Case 10
Case Else
Print \ Print \ Case 9
End Select
Print \
A) excellent B) good C) pass D) fail 15、下列程序段的执行结果为( ) a=75
If a > 60 Then Score=1 If a > 70 Then Score=2 If a > 80 Then Score=3 If a > 90 Then Score=4 Print \
A) Score=1 B) Score=2 C) Score=3 D) Score=4 16、下列程序段的执行结果为( ) I=1：x=5 Do
I=I + 1：x=x + 2 Loop Until I >=7 Print \
Print \
A) I=4 B) I=7 C) I=6 D) I=7 x=5 x=15 x=8 x=17
17、下面的程序的运行结果是( ) a=1:b=1 Do
a=a^2 b=b + 1
Loop Until b > 5
Print \
精品文档
A) k=7 B) k=6 C) k=4 D) k=1 b=1 b=6 b=8 b=7 4
18、 单击命令按钮，下列程序的执行结果为( ) Private Sub Command1_Click()
Dim x As Integer, y As Integer x=32: y=42 Call PCS(x, y) Print x; y End Sub
Public Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1
m=m Mod 10+1
End Sub
A) 32 42 B) 2 32 C) 2 3 D) 12 3 19．若要获得列表框中被选中的列表项的内容，可以通过访问（ ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 20、在代码中定义了一个子过程： Sub P(a,B) ... End Sub
下面______调用该过程的格式是正确的。( )
A)Call P B)Call P 10,20 C)Call P(10,20) D)P(10,20) 二、判断题(把答案涂在卡上,对的涂A,错的涂B,每题2分,共20分)
1、若要使某命令按钮获得控制焦点，可使用GotFocus方法来设置。
2、标准模块中的全局变量可以被工程中的其他模块调用，而公共的过程可以被窗体模块的任何事件调用。
3、Dim a1,a2 as integer 语句显式声明变量a1和a2都为整型变量。 4、函数Len(\的值是5。
5、计时器（Timer）控件的Interval属性的单位是毫秒，即若将此属性值设为 10，则每0.01秒产生一次Timer事件。
6、 For k = 1 to 40 Step 2表示该For语句循环执行了20次。 7、表达式：36.51 Mod 3 +2^5\\3的值是12。 8、表达式：\的值为579。
9、表达式：Val（Len（\北京欢迎你！\））+10的值为：16。
10、表达式：Str(Len(\的值为6 6660。 三 、填空题（1-10每小题6分，11-12每10分，共80分） 1、该程序的运行结果为
Function total(x As Integer) As Long Dim ss As Long, i As Integer ss = 0
For i = 1 To x ss = ss + i Next i
End Function
total = ss 精品文档
下面是调用它的事件过程。 Private Sub Command1_Click() Dim i As Integer, sum As Long For i = 1 To 5
Next i
sum = sum + total(i) Print \End Sub
和数为：\2、下列程序的执行结果为A．55 B.15 C.5 D.35
Private Sub Command1_Click() Dim s1 As String, s2 As String s1=\
Call Transfer(s1, s2) Print s2 End Sub
Private Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As String i=Len(xstr) Do While i >=1
tempstr=tempstr + Mid(xstr, i, 1) i=i - 1 Loop
ystr=te mpstr End Sub
3、 单击命令按钮，下列程序的执行结果是( )
Private Sub Blck(x As Integer) Private Sub Command1_Click() x=x * 2 + 1 Blck 2
If x < 6 Then End Sub
Call Blck(x)
End If
x=x * 2 + 1
Print x;
End Sub
4、运行下面的程序后，单击命令按钮，输出结果为
Private Sub Function Gad (a As Integer) Command1_Click() b=0 Dim a As Integer Static c a=2 b=b + 1 For i=1 To 3 c=c + 1 Print Gad (a) Gad=a + b + c Next i End Function End Sub
5、单击窗体时，下列程序的执行结果为
Sub proc1(x As Integer, ByVal y As Integer, z As Integer) x = 3 * z y = 2 * z
精品文档
z = x + y Print x, y, z End Sub
Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call proc1(x, x, z) Call proc1(x, y, y) End Sub
6、执行下面的程序后，第1行输出 ，第2行输出
Option Explicit Private Sub Form_Click() Private Sub test(m As Integer, n As Dim i As Integer, j As Integer) Integer Static sta As Integer i = 1: j = 2 m = m + n Call test(i, j) n = n + m + sta Print i, j sta = sta + m Call test(i, j) End Sub Print i, j End Sub
7、在窗体上画一个命令按钮，然后编写如下程序：(假定变量x是一个窗体级变量)
Dim x As Integer Private Sub Command1_Click( )
Sub inc(a As Integer) inc 2
x = x + a inc 3
End Sub inc 4
Print x; End Sub
程序执行后，单击Command1命令按钮，输出的结果是 。 8、以下程序用业计算1至100之间所有奇数的和，试将程序补充完整
Function mult( sum = 0
Dim sum As Integer n as long ) as long
For i = 1 To n
Dim i As Integer Next i
If i Mod 2 <> 0 Then sum = sum + i End Function Mult=sum
Private Sub Form_Click()
End Sub
Print mult(100) 9、下面是用冒泡法将5个整数按升序排列，请将程序补充完整。
精品文档
Sub GASR() m(j) =t Dim m End If
m=Array(10, 1, 5, 6, 7) Next j For i=0 To 4 Next i For j=i+1 to 4 For i=0 To 4 If m(i) >=m(j) Then Print m(i) T=m(i) Next i m(i) =m(j) End Sub
10Dim x As Integer, y As Integer 、以下程序的运行结果为
Private Function f(x As Integer) Private Sub Command1_Click()
x = 1: y = 1 Call p(x)
Dim y As Integer z = f(y) End Sub Print x; y; z
x = x + 2 f = x + y End Function
Private Sub p(ByVal z As Integer)
x = y + z End Sub
11、左列表框list1中有100个两位整数；选中左列表框list1中若干项后，单击“移动”按钮，将所选项目移动到右列表框list2中。 Private Sub cmdMove_Click()
Do While i <= lstLeft.ListCount – 1 If lstLeft. = True Then lstRight.AddItem lstLeft.List(i) lstLeft. Else
i = i + 1 End If Loop End Sub
12、下列程序用于利用定时器实现字体的放大/缩小，如图，要求：字体最在值为100,最小值为10，“文字”在最大与最小之间 每隔0.2S增5或减5。试完成此程序 Option Explicit
Private Sub Timer1_Timer()
If blnzoom Then
Dim blnzoom As Boolean Private Sub Form_Load() If Label1.FontSize > 100 Then blnzoom = False Label1.Height = Height
Else
Label1.FontSize = Label1.FontSize + 5 Else
End If 精品文档
Label1.Width = Width Label1.FontName = \黑体\Timer1. = 200 blnzoom = True End Sub
If Label1.FontSize <= 10 Then
blnzoom = True Else
Label1.FontSize = End If End If End Sub
精品文档