1. 如果编写的过程要被多个窗体及对象调用，应将这些过程放在哪一类模块中     
A、窗体模块  B、标准模块  C、工程  D、类模块
2. 窗体模块文件的扩展名为          ，标准模块的扩展名为          。
3. Vb程序是按行书写的，若一个语句写在多行上，每行的末尾应用__________连接，若一行写了多个语句，则各语句间应用________分隔。一个代码行输完后按______键，光标下移。
4. VB的Byte类型数据的数值范围，在-255到255之间。
5. 下列数据类型中，占用内存最小的是            。
A、Boolean    B、Byte  C、Integer    D、Single
6. 语句Print “5*20” 输出结果是            
A、”5*20”  B、出错  C、5*20  D、100
7. 语句 Dim a ,b as string ,c as currency
      d%=1
则a , b, c, d的数据类型分别为    、    、    、       
8. 窗体上有一个文本框控件Text1，假设已存在三整型变量a,b和c,且变量a值为5，变量b的值为7，变量c的值为12，则以下的    语句可以使文本框内显示的内容为：5+7=12
A、Text1.Text=a+b=c            B、Text1.Text=”a+b=c”
C、Text1=a & “+” & b & “=” & c  D、Text1=”a” & “+” & “b” & “=” & ”c”
9. 以下有关变量作用域的说法中，错误的是_ ___
A.        只有在标准模块中用public语句说明的变量才是全局变量
B.        在过程中不能使用public语句说明全局变量
C.        在标准模块的通用声明处可用private语句说明模块级变量
D.      在窗体的通用声明处可用private语句说明窗体变量
10. 在过程中可以用_  ___语句定义变量
A、Dim Private  B、Dim Static  C、Dim Private  D、Static Private
11. 若希望离开某过程后，还能保留该过程中局部变量的值，则应使用      关键字在该过程中定义局部变量
A、dim  B、private  C、public      D、static
12. 分析语句
Private Sub Form_Click()
    Dim x As String * 5
    x = "abc"
    y% = 1
    Print x & y
    x = "abcdefg"
    Print x & y
End Sub
则单击窗体，显示结果的第一行为_  ____,第二行为_____ ____________
13. VB算术运算符乘或除、整除、求余的优先级，从高到低依次为         。
A、乘或除、求余、整除        B、乘或除、整除、求余
C、整除、求余、乘或除        D、整除、乘或除、求余
14. 表达式10\6 = 10 mod 6 的运算结果是_____ ___________
15. ”abcd”>”bcde”的运算结果是____ __________
16. 将任意一个两位正整数N的个位数与十位数对换得到新数的VB表达式是____
17. 用关系运算符比较Cint(3.8)、Fix(3.8)、Int(3.8)、3.8的大小关系_ ___
18. 下面表达式的值为真的是__  __
A.        78.9/32.77<=957/43.91 And –45.4>-4.98
B.        “ABCRG”>”abcde”
C.        basic语言if语句Int(134.69)>=Cint(134.69)
D.      Mid(“Visual Basic”,1,12)=Right(“Programming language Visual Basic”,12)
19. 表示“X>Y>Z”，正确的VB逻辑表达式是__ __  (02春)
A、X>Y And Y>Z  B、X>Y>Z
C、X>Y  or Y>Z  D、X>Y And >Z
20. 语句 dim x as date ：x=#02/17/1980# 则month(x)=__ ____________
21. Chr(Asc(“x”)+2)的值为___ _______
22. 运行程序产生死循环时__ __可以终止程序运行
A、按[ctrl]+[c] 键        B、按[ctrl]+[z]键
C、按[ctrl]+[break]键  D、单击”停止运行”按钮
23. 函数InStr(“windowse”，Mid（“winnt”，2，2）)的返回值是        。
A、0          B、1        C.2            D、3
24. 取字符串Ax从第1个非空格符开始的连续5个字符表达式写作          。
A、Mid(Ax,1,5)  B、Mid(Trim(Ax),1,5)      C、Left(Ax,5)      D、Left(Trim (Ax),5)
25. 运行时，单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0，写出运行结果。
Private  Sub  Form1_Click()
    Dim  y  as  Integer
    Do
        y=Inputbox(“y=”)
        If  (y  Mod  10) + Int (y / 10) = 10  Then  Print  y
    Loop  Until  y=0
End  Sub
26. 程序运行时单击 Commandl 后 , 输入 l2345678,写出窗体上的输出结果。
Private Sub Commandl_Click()
    Dim x As Long, y As String
    x = InputBox("","")
    Do While x<>0
        y = y & x Mod 10
        y = x\l0 Mod 10 & y
        x = x\100
        print  y
    Loop
End Sub   
27. 判断题：“A=B=C”是一个合法的Visual Basic 语句。
28. 将变量x、y中的最大数赋值给变量a，正确的表示为           
A、a=x: If y>x Then a=y            B、If y>x Then a=y: a=x
C、a= If y>x Then y Else x          D、If y>x Then a=y Else a=x End If
29. 由For  k=35  To  0  Step 3 : Next k 循环语句控制的循环次数是          。
A、0            B、12          C、-11          D、-10
30. 若某过程声明为Sub  aa(n as integer),则调用          实参与形参是按地址传递。
A、Call  aa(5)    B、Call  aa(n+1)      C、Call  aa(n)      D、Call  aa(i-1)
31. 顺序写出运行时执行下列事件过程的显示结果。
Private Sub Command1_Click()
    For i = 2 To 20
    If i Mod 2 = 1 And i Mod 3 = 2 Then Print i
Next i
Print i
End Sub
32. 依次写出下列程序运行时四次单击命令按钮 Commandl后窗体上的输出结果。
Dim x As Integer, y As Integer
Private Sub f1(a As Integer)
    a= a/2
End  Sub
Private Sub f2(ByVal b As Integer)
    b=b/2
End Sub
Private Sub Command1_Click()   
    Call fl(x)
    Call f2(y)
    Print x,y
End Sub
Private Sub Form Load()
    x= 64 :y =64
End Sub
33. 写出下列程序运行时，单击命令按钮控件Command1后窗体上的显示结果。
    Private Function f1(n As Integer) As Integer
        Static i As Integer
        While i <= n
            f1 = f1 + i
            i = i + 1
            Wend
    End Function
    Private Function f2(ByVal n1 As Integer, n2 As Integer) As Integer
        Dim i As Integer
        Do While n2 >= n1
            f2 = f2 + n2
            n2 = n2 - 1
          Loop
    End Function
    Private Sub Command1_Click()
        Dim a As Integer, b As Integer
        Print f1(3)
          Print f1(5)
          a = 5: b = 8
          Print f2(a, b)
          Print f2(b, a)
    End Sub
34. 写出运行时两次单击窗体后屏幕上的显示结果
Dim  x  as  Byte
Private  Static  Sub  Form1_Click()
  Dim  y  as  Byte, z  as  Byte
  Call  Init (y , z )
  Call  OP( x ,y , z )
  Print  x , y , z
End  Sub
Private  Sub  Init ( a  AS  Byte,  b  AS  Byte)
  a= a + 1:    b = b + 2 :  x = a + b
End  Sub
Private  Sub  OP (ByVal  u  AS Byte, v  AS  Byte,  ByRef  w  AS  Byte )
  u= u + 1:    v = v + u :  w = u + v + w
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。