计算机技术基础-2.doc

一、单项选择题（每题2分，共70分）
1、 InputBox函数的返回值类型为（ ）。
A．数值 B．字符串 C．变体 D．数值或字符串（视输入的数据而定）
2、 可以同时删除字符串前导和尾部空白的函数是（ ）。
A． Ltrim B． Rtrim C． Trim D．Mid
3、 如果在立即窗口中进行下列操作：
a=8
b=9
print a>b
则输出结果是（ ）。
A．-1 B．0 C． False D． True

4、 用下面语句定义的数组的元素个数是（ ）。
Dim A (-3 To 5) As Integer
A．6 B．7 C． 8 D．9
5、 为了在按下ESC键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（ ）。
A． value B． Default C．Cancel D． Enabled
6、 以下语句输出的结果是（ ）。
Print Format $(32548.5,“000,00000”)
A．32548.5 B． 32,548.5 C． 032,548.50 D． 32,548.50
7、 执行以下程序段后，变量c$的值为 （ ）。
a$=“Visual Basic Programing”
b$=“Quick”
c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)
A． Visual BASIC Programing B． Quick Basic Programing
C． QUICK Basic Programing D．Quick BASIC Programing
8、 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ）。
A． Value B． Default C． Cancel D．Enabled
9、 设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为（ ）。
A． 5 B．6 C．0 D．-1
10、 执行下面的程序段后，x 的值为（ ）。
x=5
For i=1 To 20 Step 2
x=x+i\5
Next i
A． 21 B． 22 C．23 D． 24

11、 在窗体上画一个命令按钮，然后编写如下事件过程：

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
程序运行后，单击命令按钮，输出结果是 （ ） 。
A． 7 B． 15 C． 157 D． 538
12、 在窗体上画一个命令按钮，然后编写如下事件过程：
Prevate Sub Command1_Click()
x=0
Do Until x=-1
a = Val( InputBox(“请输入A的值”))
b = Val( InputBox(“请输入B的值”))
x = Val(InputBox(“请输入x的值”) )
a = a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ）。
A．2 B．3 C．14 D． 15
13、 阅读下面的程序段：
For i = 1 To 3
For j = 1 To i
For k = j To 3
a = a + 1
Next k
Next j
Next i
执行上面的三重循环后，a 的值为（ ）。
A．3 B．9 C．14 D．21
14、 在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是（ ）。
A． 在文本框Text1中输出55 B． 在文本框Text1中输出0
C． 出错 D．在文本框Text1中输出不定值
15、 在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
A．1和0 B．2和72 C．3和50 D．4和168
16、 以下程序的输出结果是
Option Base 1
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) * 2
Next i
Print k
End Sub
A． 33 B．28 C． 35 D． 37
17、 在窗体上面画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是（ ）。
A． 4321 B． 12 C．34 D．1234
18、 假定有如下的Sub过程：
Sub S（x As Single, y As Single）
t = x
x =t/y
y =t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为（ ）。
A． 5 4 B．1 1 C． 1.25 4 D． 1.25 1
19、 阅读程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为（ ）。

A． 4 B．4 C． 4 D． 4
       4        5       6       7
       4         6       8       9

20、 阅读程序：
Sub subP(b() As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a 3)=7
a (4)=8
subP a ()
For i =1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为（ ）。
A．2 B． 5 C．10 D．出错
      4    6    12
      6    7     14
      8    8    16
21、 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框则正确的属性设置为（ ）。
A． Label1. BackStyle=0
     Label1.Borderstyle=0
B． Label1.BackStyle=1
     Label1.Borderstyle=1
C． Label1.BackStyle=True
     Label1.BorderStyle=True
D． Label1.BackStyle=False
     Label1.Borderstyle=False
22、 在窗体中添加一个命令按钮，并编写如下程序：
Private Sub Command1_Click()
X=1:Y=2:Z=3
X=Y:Y=Z:Z=X
Print Z
End Sub
程序执行后，输出的结果是（ ）。
A．4 B．3 C． 2 D． 1
23、 .下列叙述不正确的是（ ）。
A．注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译
B．注释语句可以放在代码中的任何位置
C．注释语句不能放在续行符的后面
D．代码中加入注释语句的目的是提高程序的可读性
24、 Rnd函数不可能产生（ ）值。
A．0 B．1 C．0.1234 D．0.00005
25、 数学式子sin30°写成VB表达式是（ ）。
A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180)
26、 下列属性中，能限定文本框中内容长度的属性是（ ）。
A．MultiLine B．Maxlength C．SelLength D．SelStart
27、 以下程序的输出结果是
Option Base 1
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) * 2
Next i
Print k
End Sub
A．33 B．28 C．35 D．37
28、 表达式5＾2 Mod 5＾2的值是（ ）。
A．1 B．0 C．6 D．4
29、 设有数组声明语句：
Option Base 0
Dim B(-1 To 10,2 To 9,20) As Integer
则数组B中共有( )个元素。
A．1800 B．1848 C．2016 D．2310
30、 在VB语言中，6个关系运算符在运算过程中优先级从高到低的顺序是()
A．=→<>→<→>→<=→>= B．>→>=→=→<→<=→<>
C．<=→<→=→>=→>→<> D．不分先后顺序
31、 有如下程序：
Private Sub Command1_Click()
For m = 1 To 3
For j = 1 To m
For k = j To 3
n = n + m + j - k
Next k
Next j
Next m
Print n
End Sub
程序运行后，按Command1键，n的值是（ ）。
A．3 B．14 C．9 D．20
32、 下列赋值语句中，( )是错误的。
A． x=x+1 B．.x=x+y C．x+y=x D．x=4＞6
33、 在以下四个逻辑表达式中，其逻辑值为“真”的是（ ）。
A．Not(3+5＜4+6) B．2＞1 And 3＜2
C．.1＞2 Or 2＞3 D．Not(1＞2)
34、 下面程序的循环次数为（ ）。
For I=10 To 40 Step 6
Print I
Next I
A.5 B.6 C.32 D.33

二、填空题（每空2分，共30分）
1、 在VB中，无论何控件都具有的属性是 (1) 。
2、 在Visual Basic中，用来描述一个对象外部特征的量称之为对象的 (2) 。
3、 以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被 5 整除的数并求出它们的和。请填空。  
  Private Sub Commandl_C1ick() 
　 S=0
  Fori ＝ 1To 20 
  Randomize
  x ＝ Int(_ _(3)_ +200) 
  If__ (4) _   ＝ 0 Then 
  Print x 
     S ＝  (5)
  End If 
  Next i 
  Print  “ Sum ＝”： S 
  End Sub 
4、 下面是一个体操评分程序， 20位评委，除去一个最高分和一个最低分，计算平均分  (  设满分为  10  分  )  。
Private Sub Command1_Click()
Max=0
Min=10
For I=1 TO 20
    N=Val(InputBox( “   请输入分数：   ” ))
IF (6) Then  Max=N
IF __ __(7)_ ____Then Min=N
    S=S+N
Next I
S=_ __(8) _____
P=S/18
Print-  最高分：  -  ；  Max
Print-  最低分：  -  ；  Min
Print-  最后得分：  -  ；  P
END Sub.
5、 一个工程可以包括多种类型的文件，其中，扩展名为  .VBP  的文件表示 (9) 文件；扩展名为  .FRM  的文件表示窗体文件；
6、 如果要改变窗体的标题，则需要设置的属性是 (10) 。
7、 要在运行时不能对文本框中的内容进行编辑，则应将文本框的 (11) 属性设置为True。
8、 下图为某一程序运行界面，请根据显示的内容完成程序。

Private Sub Command1_Click()
Dim i%, j%
Dim Express As String
For i = (12)
For j = (13)
Express = (14)
Picture1.Print Tab((j - 1) * 10 + 1); Express;
Next j
(15)
Next i
End Sub