高职班计算机类专业基础知识3
一、选择题（30*4分=120分）
20.在Visual Basic设计界面中不能隐藏的窗口是( )。 A.工程窗口 B.属性窗口 C.立即窗口 D.窗体窗口
21.以下可以构成语句的一项是 ( ) 。 A.对象名.属性 B.对象名.方法名 C.对象名.事件名 D.对象名.函数名
22.以下不是 Visual Basic 的特点的选项是( ) 。 A.可视编程 B.算法设计 C.事件驱动 D.面向对象
23.在Visual Basic中通过属性来设置字体的大小( ) 。 A.FontColor B.ClipControl C.FontSize D.ShowColor
24.确定一个窗体在屏幕上的位置的属性是________。 A、Width或Height B、Width 和Height C、Top或Left D、Top和Left
25.要使标签中的文本靠右显示，则应将其Alignment属性设置为 A.0 B.1 C.2 D.3
26.表达式8 / 3 Mod 8 \\ 2值为（ ） A、1 B、2 C、 3 D、0 27.下列语句中正确的是 。
A.txt1.Text+txt2.Text=txt3.Text B.Command1.Name=cmdOK C.12Label.Caption=1234 D.Text1=\"123\"
28.VB表达式Int(Rnd(x)*3+1)产生区间（ ）内的随机整数
A、[1，4] B、(1，4) C、（2，3） D、[1，3] 29.语句X=X+1的正确含义是 。
A.变量X的值与X+1的值相等 B.将变量X的值存到X+1中去 C.将变量X的值加1后赋给变量X D.变量X 的值为1 30.表达式X And Y > X + 1是()
A、算术表达式 B、非法表达式 C、逻辑表达式 D、关系表达式 二、填空题（20*4分=80分）
16.只能通过属性窗口设置的属性称为 ____( 2 )_______。 17.VB中应用程序的开发主要是在___(3)_____设计器上完成的。
18.在VB中，要将窗体Form1从内存中卸载，应该使用语句 (4) 19.写出代数式 所对应的VB表达式 (5) 。
20.VB表达式-2^2+2^-2+2.6 / 2对应的值为____(6 )_____ 三、程序阅读（4*10分）
1、下面程序的运行结果为___(1)____ 。 Private Sub Command1_Click() Dim a As Integer a=2
For i=1 To 3 Print F(a) ； Next i End Sub
Private Function F(a As Integer) b=0 Static c b=b+1 c=c+1 f=a+b+c
End Function
2、下列程序输出结果为 (2) 。 Private Sub Command1_Click() Dim a(1 To 4) As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8 P a()
For i=1 To 4 Print a(i) ， Next i End Sub
。 。 1
Private Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub
3、下列程序输出结果为 (3) 。 Private Sub Command1_Click() a%=10 b%=5
Change a,b Print a,b End Sub
Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub
4、下述程序的运行结果是 (4) 。 Private Sub Command1_Click() a=1.5 b=1.5
Call fun(a,b) Print a,b End Sub
Private Sub fun(x,y) x=y*y y=y+x End Sub 5、下列VB程序是用来计算S=1!+2!+3!+........+n!的程序，请将程序补充完整。（说明：N!=1*2*3*4*......*N） Private Sub Form_Click N= Inputbox(“请输入N”) S=0
FOR I=1 TO ___(5)__ _______(6)________ S=S+T NEXT I
PRINT “S=”；S END
SUB fact(N，T) T=___(7)___
FOR J= 1 TO ____(8)__ (9) NEXT J
___(10)______
四、程序填空（4*10分）
1、已建立了一个工程，该工程包括两个窗体，其名称（Name 属性）分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在（1）和（2）处将程序补充完整。
Private Sub Command1_Click() （1） Form1 Form2. （2） End Sub
2、数据过滤程序：从左边文本框输入任意文本，如果是数字字符，则显示在右边文本框中。运行结果如下图（文本框开始时为空）。
（1）设置对象属性 （2）编写代码 对名 属性名 Private Sub _____(3)______ If ____(4)_______ Then ______(5)_________ End If End Sub 属性值 数据过滤 Form1 Caption 输入数据： Label1 Caption 过滤后的数据： Label2 Caption Text1 Text Text2 Text 3、下面的程序是用选择交换法将10个数排为升序（例如输入：1、20、7、35，输出
2
1、7、20、35），请在 （6） 、（7） 、（8） 、（9） 、 （10） 处将程序补 充完整。
Private Sub Command1_Click() Dim a(10) As Integer 排序前 排序后 1 1 20 7 7 20 35 35 For i = 1 To 10
a(i) = Val(InputBox(\"Enter \" & i)) Print a(i); Next i Print
For i = ____(6)___ k = i
For j = ____(7)______
If _____(8)_____Then ___(9)_____ Next j
If ___(10)__Then b = a(i) a(i) = a(k) a(k) = b End If Next i
For i = 1 To 10 Print a(i); Next i Print End Sub
3
参： 一、选择题：
1、C 2、B 3、C 4、C 5、B 6、D 7、 D 8、D 9、D 10、B 11、B 12、D 13、A 14、A 15、C 16、C 17、B 18、D 19、B 20、A 21、B 22、B 23、C 24、D 25、B 26、C 27、D 28、D 29、C 30、C
二、填空题
1、二进制数 2、二进制位（或者位、比特） 3、4756 4、8 5、算术和逻辑 6、应用软件 7、 1024×1024 8、控制总线 9、丢失 10、激光打印机 11、多媒体 12、图形
13、只读 14、固定 15、Enabled 16、只读属性17、窗体
18、Unload Form119、Log(x)*Exp(2*X)/(Sqr(c)+sin(7*3.14/180) 20、 -2.45
三、程序阅读（4*10分） 1 4 5 6 6 Call fact( i, T) 2 2 4 6 8 7 1 3 10 10 8 N 4 2.25 3.75 9 T=T*J 5 N或Val(N) 10 End Sub 四、程序填空（4*10分） 1 Unload 6 1 To 9 2 Show 7 i + 1 To 10 3 Text1_KeyPress(KeyAscii As 8 a(k) > a(j) Integer) 4 (或<=57) KeyAscii >=48 And KeyAscii 9 k = j <58 5 Text2.Text=Text2.Text+Chr(KeyAscii) 10 k <> i
4
