11集文字、图形、声音、活动图像于一身的计算机系统称为 多媒体 计算机。 12．Windowsxp是基于 用户 图形 界面的操作系统。
13．Windows 中的一个文件夹具有4种，它们是系统、存档、只读 和隐藏。 14．Windows 的对话框其形状是一个矩形框，其大小是 不能改变 的。
15.在程序运行中,要想使可操作的按钮变得不可操作,则应将该按钮的 enabled 属性设置为。
16.只能通过属性窗口设置的属性称为 __name__只读属性___。 17.VB中应用程序的开发主要是在_窗体__设计器上完成的。
18.在VB中，要将窗体Form1从内存中卸载，应该使用语句 unload form1 19.写出代数式 所对应的VB表达式 ??。
20.VB表达式-2^2+2^-2+2.6 / 2对应的值为___5.55_-2.45___ 三、程序阅读（4*10分）
1、下面程序的运行结果为456_ 。 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
FALSE。
Static c b=b+1 c=c+1 f=a+b+c End Function
2、下列程序输出结果为 2 4 6 8 。 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
Private Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub
3、下列程序输出结果为 10 10 。 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、下述程序的运行结果是 2.25 3.75 。 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 __n_ _callI fact (I ,t)_____ S=S+T NEXT I PRINT “S=”；S END
SUB fact(N，T) T=__1__
FOR J= 1 TO ____n__ __t = t *j __ NEXT J End sub___
四、程序填空（4*10分）
1、已建立了一个工程，该工程包括两个窗体，其名称（Name 属性）分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在（1）和（2）处将程序补充完整。
Private Sub Command1_Click() Unload _Form1 Form2. _show _ End Sub
2、数据过滤程序：从左边文本框输入任意文本，如果是数字字符，则显示在右边文本框中。运行结果如下图（文本框开始时为空）。
（1）设置对象属性 （2）编写代码 对名 名 属Private Sub _____Text1_KeyPress(KeyAscii As Integer)______ If ____(4)_______ Then ______(5)_________ End If
End Sub 属性值 FormCap数据过滤 1 tion LabelCap输入数据： 1 tion LabelCap过滤后的数据： 2 tion Text1 Tex t Text2 Tex t 3、下面的程序是用选择交换法将10个数排为升序（例如输入：1、20、7、35，输出1、7、20、35），请在（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(\
Print a(i); Next i Print
For i = _10 to 2 step -1_ k = i
For j = _1 to I -1________
If ____a(j )>a(j +1 )___Then ___a(j)=a(j+1)____ Next j
If ___(10)__Then b = a(i) a(i) = a(k) a(k) = b End If Next i For i = 1 To 10
6） 、（7）、 （
Print a(i); Next i Print End Sub