1、退出Visual Basic的快捷键是（ C）。
A.Ctrl+Q B.Shift+Q C.Alt+Q D.Ctrl+Alt+Q 2、Visual Basic规定工程文件的扩展名是（C ）。 A．for B．frm C．vbp D．bas
3.下列关于变体类型的描述，其中正确的是___ C____。 A. 变体是一种没有类型的数据
B. 变体的空值就表示该变体的值为0
C. 一个变量没有定义就赋值使用，该变量即为变体类型
D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值 4.下列表达式中，表达式__A_ ____的运算结果与其它3个不同。 A. Int(-3.5)-1.5 B. Int(-4.5)+0.5 C. -Abs(-4.5) D. Fix(-4.5)-0.5 5.函数Mid(\的值是___ _A__。
A. \6.实现将小写字母转换成大写字母的函数是__C____。
A. Str( ) B. Upper( ) C. Ucase( ) D. Lcase( ) 7.函数Int(Rnd*5)+1产生的随机整数的范围是___D____。 A. [0,6] B. [1,6] C. [0,5] D. [1,5] 8.表达式Len(\程序设计ABC\的值是____A___。 A. 10 B. 14 C. 20 D. 17 9.与语句Dim abc%作用相同的语句是____A__。
A. Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date
10.在属性窗口中，属性有两种排列方式，分别是___D___。 A. 日期和时间 B. 事件和对象 C. 文件大小和名称 D. 字母顺序和分类顺序
11.对于窗体Form1，执行了Form1.Top=Form1.Top-100语句后，该窗体将___A___。
A. 上移 B. 下移 C. 左移 D. 右移
12、在窗体的单击事件里执行以下两个语句，结果将在窗体上显示_B___ Private Sub form_Click() Print \Print 80 + 100 End Sub
A.80+100=80+100 B.80+100= 180 C.180
D.80+100= 180
13、任何控件都具有__C__属性。 A)Text B)Caption
C)Name D)ForeColor
14.要使文本框成为只读文本框，可通过设置___C____属性值为True来实现。 A. ReadOnly B. Lock
C. Locked D. Enabled
15.若要设置定时器控件定时触发Timer事件的时间间隔，可通过____A___属性来设置。
A. Interval B. Value C. Enabled D. Text 16.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
a = InputBox(\ b = InputBox(\ Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是（ D ）
A.579 B.123 C.456 D.123456 17.MsgBox函数的返回值的类型是_A______。 A. 整型 B. 字符串 C. 逻辑值 D. 日期型
18. 循环结构 For i = 1 To 10 Step 1.5 的执行次数是____D__。 A. 10 B. 9 C. 8 D. 7 19.以下程序段的运行结果是____A___。 Private Sub Form_Click() Dim s As Long, f As Long
Dim n As Integer, i As Integer f = 1 n = 4
For i = 1 To n f = f * i s = s + f Next i Print s End Sub
A. 33 B. 34 C. 35 D. 36 20. 以下程序段的运行结果是___ C___。 a = 1 b = a
Do Until a >= 5 X = a * b
Print a & \ a = a + b b = b + a Loop
A. 1*1=1 3*3=9 B. 1*1=2 2*2=4 C. 1*1=1 2*3=6 D. 1*1=2 3*2=6
21．执行如下程序段时，从键盘输入-5，输出的结果是___A____。 x=-5
s=Val(InputBox(\请输入s的值:\Select Case s Case Is>0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y
A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5
22．判断输入的数T为大于6的偶数，表示该条件的表达式为___D ____。 A. T>6 or T /2=0 B. T>6 and T /2=0 C. T>6 or T Mod 2=0 D. T>6 and T Mod 2=0
23.用语句 Dim A(-2 to 2) As Long 定义的数组元素个数是___C____。 A. 3 B. 4 C. 5 D.6
24.在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click()
Dim arr1(10), arr2(10) As Integer n = 3
For i = 1 To 5 arr1(i) = i
arr2(n) = 2 * n + i Next i
Print arr1(n);arr2(n) End Sub
程序运行后，单击命令按钮，输出结果是___B____。 A. 11 3 B. 3 11 C. 13 3 D. 3 13
25.在窗体上画一个命令按钮Command1，然后编写如下代码： Option Base 0
Private Sub Command1_Click() Dim p(3) As Integer k = 1
For i = 0 To 3 p(i) = i k = k * p(i) Next i Print k End Sub
程序运行后，单击命令按钮，输出结果是__D____。 A. 12 B. 6 C. 5 D. 0 26.执行下面程序后，输出的结果是___B____。
Private Sub Form_Click() Dim a(10, 10) As Integer For i = 1 To 10 For j = 1 To 10 a(i, j) = i + j Next j Next i
Print a(1, 2) + a(2, 3) End Sub
A. 6 B. 8 C. 10 D. 12 27.在过程定义中用____C__表示形参的传值。
A. Var B. ByRef C. ByVal D. Value 28.以下程序段的运行结果是___C____。 Dim y As Integer
Private Sub Form_Click() Dim x As Integer x = 1:y = 1 z = bb(x) Print x; y;z End Sub
Public Function bb(n As Integer) y = y + 1 bb = n + y End Function
A. 1 1 1 B. 1 2 1 C. 1 2 3 D. 2 2 2 29、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub Command1_Click() Dim x, y, z As Integer x = 5 y = 7 z = 0
Text1.Text = \Call P1(x, y, z) Text1.Text = Str(x) End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是（A）。
A) 5 B) 12 C) Str(z) D) 7
30.下面（ D ）不是Visual Basic提供的访问模式.
(A)顺序访问模式 (B)随机访问模式 (C)二进制访问模式 (D)动态访问模式
相关推荐：
loading