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