问题 1
1.89 分 
保存 
C
在Form2中引用Form1中的全局变量x，写作        。
A.
Form1_Public.x
B.
x
C.
Form1.x
D.
Form2.x
  问题 2
1.89 分 
保存 
A
函数Format(2345.678, “##,##0.00”)输出的结果是        。
A.
数字型2,345.68
B.
字符型2,345.67
C.
字符型2,345.68
D.
数字型2,345.68
  问题 3
1.89 分 
保存 
B
以下叙述中错误的是        。
A.
如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B.
事件过程可以像通用过程一样由用户定义过程名
C.
Sub过程中不能嵌套定义Sub过程
D.
Sub过程中可以嵌套调用Sub过程
  问题 4
1.89 分 
保存 
C
VB中用来完成一定的操作或实现一定功能的特殊函数称为        。
A.
属性
B.
过程
array在vb什么意思啊
C.
方法
D.
事件
  问题 5
1.89 分 
保存 
A
下面的子过程语句说明合法的是      。
A.
Function fl(ByVal n%)
B.
Sub f1(ByVal  n%())%
C.
Function f1%(f1%)
D.
Sub f1(n%) As Integer
  问题 6
1.89 分 
保存 
B
运行下列程序，输出的结果是        。
Public Function f(ByVal n%, ByVal x%)
  If n<> 0 Then
        f=f(n\x,x)
        Print n Mod x;
  End If
End Function
Private Sub Command1_Click()
    Print f(20,8)
    End Sub
A.
1  2  4
B.
2  4
C.
4  4
D.
1  4  4
  问题 7
1.89 分 
保存 
B
以下程序段执行的结果是        。
Private Sub command1_Click()
  Dim a
  Dim i As Integer, j As Integer
  a=Array(1,3,5,7,9,11)
  For i=1 To a(4)
      j=j+1
  Next i
  Print j
  End Sub
A.
5
B.
9
C.
11
D.
7
  问题 8
1.89 分 
保存 
D
以下程序执行后，在文本框中输入“abcd”字符串，变量st的内容是        。
Dim st As String
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  st=chr(KeyCode) + st
    End Sub
A.
D
B.
ABCD
C.
abcd
D.
DCBA
  问题 9
1.89 分 
保存 
B
下面子过程语句说明合法的是        。
A.
Sub f1（n() As Integer）As Integer
B.
Finction f1（ByVal n As Integer）
C.
Function f1（f1 As Integer） As Integer
D.
Sub f1（ByVal n() As Integer）
  问题 10
1.89 分 
保存 
C
若某过程声明为Sub aa(n As Integer)，则调用        实参与形参是按地址传递。
A.
Call aa(5)
B.
Call aa(n + 1)
C.
Call aa(n)
D.
Call aa(i - 1)
  问题 11
1.89 分 
保存 
C
阅读下列程序：
Private Sub Form_Click()
  Static m%, n%
  For i= 1 To 2
      n=n+i
      m=m+n^2
  Next
End Sub
运行时，2次单击窗体，则第2次单击窗体时m，n的值分别为        。
A.
52，6
B.
10，3
C.
62，6
D.
62，3
  问题 12
1.89 分 
保存 
B
下列表达式的运算结果中，值最小的是        。
A.
5/6
B.
5\6
C.
5 Mod 6
D.
6 Mod 5
  问题 13
1.89 分 
保存 
D
在窗体上画一文本框Text1，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是        。
A.
Private Sub Text1_Change()
      If Asc(Text1.Text)>64 And Asc(Text1.Text)< 91 Then
          MsgBox "请输入大写字母"
          KeyCode＝0
      End If
    End Sub
B.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode<65 Or KeyCode >90 Then
          MsgBox "请输入大写字母"
          KeyCode＝0
      End If
    End Sub
C.
Private Sub Text1_MouseDown(Buttom As Integer, Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text)<65 Or Asc(Text1.Text)>90 Then
          MsgBox "请输入大写字母"
      End If
    End Sub
D.
Private Sub Text1_Keypress(KeyAscii As Integer)
      If KeyAscii<65 Or KeyAscii>90 Then
          MsgBox "请输入大写字母"
          KeyAscii＝0
      End If
    End Sub
  问题 14
1.89 分 
保存 
C
通过对命令按钮的        属性设置以决定按下Esc键是否有效。
A.
Default
B.
Visible
C.
Cancel
D.
Style

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