求救vb考试，十万火急

答案：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_。

上一个：关于VB的Label控件
下一个：VB读取txt问题