填空题以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。在【12】和【13】处填入适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim x As Single，amax As Single，amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While{{U}} 【12】 {{/U}}
If x＞amax Then
amax=x
End If
If{{U}} 【13】 {{/U}}Then
amin=x
End If
x=InputBox("Enter a score")
Loop
Print"Max="；amax，"Min="；amin
End Sub
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer，y As Integer)As Integer M=IIf(x＞y，x，y) End Function Private Sub Command1_Click( ) Dim a As Integer，b As Integer a=100 b=200 Print M(a，b) End Sub 程序运行后，单击命令按钮，输出结果为 【12】 。
填空题在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos=0
neg=0
For k=1 To 10
If Art(k)＞0 Then
{{U}}【10】 {{/U}}
Else
{{U}}【11】 {{/U}}
End If
Next k
Print pos,neg
End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。
填空题下列程序运行后，在窗体上打印的结果是______。 Private Sub test(a， b， c) a = a + 1: b = b + 2: c = c + 3 End Sub Private Sub Command1_Click( ) x = 1: y = 2: z = 3 Call test(x， y + 3， (z)) Print "Main:"; x; y; z End Sub
填空题在将设计好的表单存盘时，系统将生成扩展名分别是SCX和【12】的两个文件。
填空题代码窗口分为左右两栏，左边一栏称为______，右边一栏称为过程框。
填空题设有如下程序：
Option Base 1
Pfivme Sub Command1_Click( )
Dim arr1
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54，866，43)
Min={{U}} 【12】 {{/U}}
For i=2 TO 8
If arr1(i)＜Min Then{{U}} 【13】 {{/U}}
Next i
Print“最小值是：”；Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。
填空题数据库系统中实现各种数据管理功能的核心软件称为{{U}} 【5】 {{/U}}。
填空题为了选择多个控件，可以按住 【6】 键，然后逐个单击每个控件。
填空题下列事件过程的功能是：在C盘根目录下，建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Ptivate Sub Form_Click() DimY As Single Open (14) Y=3.14159 /180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) (15) Next i Close #2 End Sub
填空题为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图片框的 Stretch属性设置为 【8】 。
填空题在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
R_ID As Integer
R_Name As String * 20
Ene Type
Private Sub Commandl_Click( )
Dim M _Sise, N_Char, M_Char
Open" c: /file. txt" For Input As #1
M_sise=LOF(1)
For N_Char = M_Sise To 1 Step - 1
Seek#1, Next Char
M_char = Input(1 ,#1)
Next
Print EOF(1)
Close#1
End Sub
程序运行后，单击命令按钮，其输出结果为{{U}} 【15】 {{/U}}。
填空题在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和 CommonDialogl，然后编写如下事件过程： Private Sub Commandl_CUck() CommonDialog1.______="打开文件" CommonDialog1.Filter="All Files(*.*)|*.*" CommonDialog1.InitDir="C:/" CommonDialog1.ShowOpen End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AllFiles(*.*)”，并显示C盘根目录下的所有件，请填空。
填空题Visual Basic6.0的集成开发环境有两种方式，第一种方式是{{U}} 【6】 {{/U}}，第二种方式是{{U}} 【7】 {{/U}}。
填空题有时候需要暂时关闭计时器，这可以通过{{U}} 【11】 {{/U}}属性来实现。
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/fun(【13】)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLongx=1Fork=1Tont=t*kNextfun=tEndFunction
填空题在菜单中，唯一能够识别的事件是
________
。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap( (11) ) For i=1 To 10 Print a(i) Next End Sub Sub swap(b() As Integer) n=Ubound(b) For i=1 To n/2 t=b(i):b(i)=b(n):b(n)=t (12) Next End Sub 上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。
填空题设有如下程序： Private Sub Form_Click() Dim a As Integer， s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是______。程序运行后，单击窗体，输出结果为______。
填空题运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效(变成灰色)，应使用语句______。