一、 选择题         
1、在一个语句内定多条语句时，每个语句之间用    符号分隔。    B   
    A） ，        B） ：        C） 、        D） ；
2、下面    是合法的变量名。    A                                       
    A） Xyz        B) 123abc        C) integer        D)- X-Y
3、定义两个过程Private sub a()和Private Function b(k as Intger)，在调用过程中用Dim S As Intager,X As String定义了两个变量。下面调用语句中正确的有(    )。B
1) Call a(S)  2) Call b(X)  3) Call a  4) Call b
5) a X        6) b S        7) a        8) b
9) M = a(X)  10) M = b(S)  11) M = a  12) M = b
A)1、2、3、4               B)3、6、7、10
C)2、3、10、11               D)2、9、10、11、12
4、下面正确的赋值语句是    。        C                               
    A）x+y=30            B) y=π*r*r        C）y=x+30        D)3y=x
5、赋值语句a=123+left(“123456”,3)执行后，a变量中的值是    。    D   
    A）”12334”        B)123        C)12334            D) 246
6、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2，作用是____。A
A)用于测试X是否偶数      B)返回一个整数
C)返回一个奇数            D)用于测试X是否整数
7、 InputBox函数返回值的类型为________ 。 B
A) 数值                  B) 字符串
C) 变体                  D) 数值或字符串（视输入的数据而定）
8、运行以下程序后，显示的结果是（  C  ）
DIM N（5）
N（0）=2
FOR I=2 TO 5
  N（I）=N（I-2）*I*I
  PRINT  N（I）；
NEXT I
END
A)1  2  3  4  5    B)1  2  6  24  120   
C)8  0  128  0                  D)2  4  12  48  240
9、在VB中，若X是一整型变量,则下列____D____语句是错误的.
A) PRINT 　  B) PRINT "X="；X 　  C) PRINT X+1 　  D) PRINT "X="+X
10、表达式16/4-2^5*8/4 mod 5\2的值为    B                         
A）14        B） 4        C） 20        D） 2
11、阅读以下程序，执行该程序后，数组A和数组B的值是（  C  ）
DIM A（50），B（50）
FOR N=1 TO 50：A（N）=N：NEXT N
FOR N=1 TO 50
  B（N）=A（N）+A（N-1）
  PRINT B（N）；
NEXT N
A)数组A和数组B各存储1～50的自然数   
B)数组A存储1～50的自然数，数组B存储1～99的自然数   
C)数组A存储1～50的自然数，数组B存储1～99的奇数   
D)数组A存储1～50的自然数，数组B存储2～100的偶数
12、设有语句X=Inputbox(“输入数值”，“0”，“示例”),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述正确的是______B______
A) 变量X的值是数值10  　      B)变量X的值是字符串“10”
C)在INPUTBOX对话框标题栏中显示的是“示例”    D) 0是默认值    　  　
13、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是(  A  ) 
  A)        Private Sub Text1_GotFocus( ) 
          Text1.SelStart=0 
          Text1.Sellength=Len(Text1.Text) 
        End Sub 
  B)         Private Sub Text1_LostFocus( ) 
          Text1.SelStart=0 
          Text1.Sellength=Len(Text1.Text) 
        End Sub 
  C)         Private Sub Text1_Change( ) 
          Text1.SelStart=0 
          Text1.Sellength=Len(Text1.Text) 
        End Sub 
  D)        Private Sub Text1_SetFocus( ) 
          Text1.SelStart=0 
          Text1.Sellength=Len(Text1.Text) 
        End Sub 
14、窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2printform可用，按钮3不可见，正确的程序是（C ）
A)Private Sub Command1_Click( )      B)Private Sub Command1_Click( )
  Command2.Visible=True                  Command2.Enabled=True
  Command3.Visible=False                  Command3.Enabled=False
  End Sub                                End Sub
C)Private Sub Command1_Click( )      D)Private Sub Command1_Click( )
    Command2.Enable=True              Command2.Enabled=False
    Command3.Visible=False              Command3.Visible=False
  End Sub                                  End Sub
15、a和b中有且只有一个为0，可以用以下的表达式来表示（ C  ）。
A) a=0  Or  b=0          B) a=0  Xor  b=0 
C)a*b=0　and　a+b<>0      D)a=0 and not b=0  and b=0 and not  a=0
16、设a=6，则执行x=IIf(a＞5，-1，0)后，x的值为（ D  ）
A)  5            B)  6            C)  0              D)  -1
17、下列程序代码：
x = 13: y = 15 :a = x - y
If x >= y Then a = a + y Else a = a - y
Print a
运行结果为（ B  ）。
A)-13        B)  -17        C)  13              D)  15
18、下面程序的循环次数是_______D________                                                                            For J=8  TO  35  Step  3                                                                                      Print  J                                                                                                                              NEXT  J
A)7    B)8        C)9    D)10
19、以下叙述中错误的是(  d  )
A) 如果过程被定义为Static，则该过程中的局部变量都是Static类型
B) Sub过程中不能嵌套定义Sub过程
C) Sub过程中可以嵌套调用Sub过程
D) 事件过程可以像通用过程一样由用户定义过程名
20、请补充完整下列程序代码，用以求a和b两个数中的最大值。 B
a = Val(InputBox("a="))
b = Val(InputBox("b="))
If a > b Then _____ Else _______
Print "max="; m   
A)  m=b, m=a                        B)  m=a, m=b
C)  b=m, a=m                        D)  a=m, b=m
   
24、可以唯一标识控件数组中的每一个控件的属性是_______C______
A) Name      B) Caption      C) Index        D) Enabled
25、判断下面程序是计算哪一个数学式子的（  D  ）
INPUT N
T=1：S=0
FOR I=1 TO 2*N+1 STEP 2
  T=T*I
  S=S+T
NEXT I
PRINT S
A)1+3+5+…+2N+1    B)1*3*5*…*(2N+1)
C)1！+3！+5！+…+(2N+1)!    D)1+1*3+1*3*5+…+1*3*..*(2N+1)
26、如果要在命令按钮上显示图形文件，应设置命令按钮的___  B____
A) Style属性和Graphics属性           B) Style属性和Picture属性   
C) Picture属性                              D) Graphics属性 
27、运行下面程序后的输出结果是____B____
FOR I=1 TO 4
  PRINT  I；
NEXT I
PRINT I
A)1  2  3  4        B) 1  2  3  4  5     
C)1  2  3  4  4      D)1；2；3；4；5
28、执行以下语句后a的值为___C___。
Dim a As Integer
a=1
Do Until a=100
a=a+2
Loop
A) 99            B) 100            C) 溢出                D) 101
29、在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示____B_____事件过程模板。
A)  Form_Click     B)Form_Load      C)Form1_Click    D)  Form1_Load   

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