Question

求救vb考试，十万火急

18、VB中的变量如果没有显示声明其数据类型，则默认为（ ）
A、日期型 B、数据型 C、字符型 D、变体型

19、在VB中，通过改变列表框（ ）属性的值 ，可以为列表框添加项目。
A、List B、（名称） C、Caption D 、Text

20、下列程序段的执行结果为_______。
m=1
n=1
Select Case m
Case 1
Select Case n
Case 0
Print “**0**”
Case 1
Print “**1**”

End Select
Case 2
Print “**2**”
End Select
A、**0** B、 0 C、**2** D、**1**

21、下面程序段显示的结果是（ ）。
Dim x
If x then print x
Else print x+1
A、1 B、0 C.、-1 D、显示出错信息

22、用来测试指定文件结束状态的函数是（）
A、Eof B、FreeFile C、Loc D、Open

23、当Long类型数据与Single类型运算时,运算结果的类型为（ ）。
A、Integer B、Long C、Single D、Double

24、某一VB工程含F1、F2两个窗体，执行“F1．Show：F2．Hide”语句后，F1、F2窗体显示的结果为（ ）。
A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示F2窗体

25、数学关系3<= x<10表示成正确的VB表达式为（ ）
A、3 <= x < 10 B、3<= x AND x<10
C、x >=3 OR x < 10 D、3 <= x AND <10

26. 以下程序运行后，单击命令按钮，在窗体上显示的内容是( ).
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
call f1(x, y)
Print x,y
End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
A) 10 5 B) 12 5 C) 10 7 D) 12 7

27.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
Label1.Name= List1.ListIndex
End Sub
C、Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub

28、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A）7 B）15 C）157 D）538

29、有程序代码如下：Text1.Text=”Text1.Text”
则Text1、Text、”Text1.Text”分别代表（ ）
A、对象、值、属性
B、对象、方法、属性
C、对象、属性、值
D、属性、对象、值

30、下列关于控件数组的说法错误的是_____。
A) 定义控件数组的方法与定义一般数组的方法是相同的
B) 使用Load语句载入的控件数组元素在默认的情况下是不可见的
C) 对于不再使用的控件可以使用unload语句将其卸载
控件数组中的控件事件过程与其他控件事件过程的结构类似
二、填空题（每空2分，共20分）
1、阅读以下程序：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为______

2、请写出如下数学式子的VB表达式：
1） 2Sin2x+8Cos2 (x )/3+Y2
答:____________________________________

3、设有如下程序：
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是_______。程序运行后，单击窗体，输出结果为____。

有分追加！！！

Answer 1

18、VB中的变量如果没有显示声明其数据类型，则默认为（D）
A、日期型 B、数据型 C、字符型 D、变体型
19、在VB中，通过改变列表框（A）属性的值 ，可以为列表框添加项目。
A、List B、（名称） C、Caption D 、Text
20、下列程序段的执行结果为_D_。
m=1
n=1
Select Case m
Case 1
Select Case n
Case 0
Print “**0**”
Case 1
Print “**1**”

End Select
Case 2
Print “**2**”
End Select
A、**0** B、 0 C、**2** D、**1**
21、下面程序段显示的结果是（A）。
Dim x
If x then print x
Else print x+1
A、1 B、0 C.、-1 D、显示出错信息
22、用来测试指定文件结束状态的函数是（A）
A、Eof B、FreeFile C、Loc D、Open
23、当Long类型数据与Single类型运算时,运算结果的类型为（C）。
A、Integer B、Long C、Single D、Double

24、某一VB工程含F1、F2两个窗体，执行“F1．Show：F2．Hide”语句后，F1、F2窗体显示的结果为（C）。
A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示F2窗体

25、数学关系3<= x<10表示成正确的VB表达式为（B）
A、3 <= x < 10 B、3<= x AND x<10
C、x >=3 OR x < 10 D、3 <= x AND <10

26. 以下程序运行后，单击命令按钮，在窗体上显示的内容是(A).
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
call f1(x, y)
Print x,y
End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
A) 10 5 B) 12 5 C) 10 7 D) 12 7
27.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是（D）
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
Label1.Name= List1.ListIndex
End Sub
C、Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
28、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（B）。
A）7 B）15 C）157 D）538

29、有程序代码如下：Text1.Text=”Text1.Text”
则Text1、Text、”Text1.Text”分别代表（C）
A、对象、值、属性
B、对象、方法、属性
C、对象、属性、值
D、属性、对象、值
30、下列关于控件数组的说法错误的是_A_。
A) 定义控件数组的方法与定义一般数组的方法是相同的
B) 使用Load语句载入的控件数组元素在默认的情况下是不可见的
C) 对于不再使用的控件可以使用unload语句将其卸载
控件数组中的控件事件过程与其他控件事件过程的结构类似
问题补充：二、填空题（每空2分，共20分）
1、阅读以下程序：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为_2.34_
2、请写出如下数学式子的VB表达式：
1） 2Sin2x+8Cos2 (x )/3+Y2
答:_2*Sin(2*x)+(8*cos(2*x))/3+y*2_
3、设有如下程序：
Private Sub Form_Click()
Dim a As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是_计算从 1 加到 8 的自然数的和_。程序运行后，单击窗体，输出结果为_36_。

Answer 2

18 D
19 A
20 D
21 A (这一题直接编译确实出错，不过是换行引起的，可能是出题的笔误）
22 A
23 C
24 C
25 B
26 D
27 D
28 B
29 C
30 A

1. 24
2. 2 * Sin(2 * x) + 8 * Cos((2 * x) / (3 + Y2))
3. 功能：8 + 7 + ... + 1 输出：36

Answer 3

D A D D A C C B D D B C A
其中21中无end if 所以选D，提示错误

1. 24
2. 2 * Sin(2 * x) + 8 * Cos((2 * x) / (3 + Y2))
3. 功能：8 + 7 + ... + 1 输出：36