填空题在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序：
Private Sub Command1_Click()
Dim ave As Single, max As Integer, i As Integer, n As Integer
Dim min As Integer, Sum As Integer, s As String
Dim t As Integer
s=InputBox("输入一个正整数: ")
n=Val(s)
If n＞0 Then
max=n: min=n: Sum=0
For j=1 To n
t=【11】
print t;
Sum=Sum+t
If t＜min Then
min=t
ElseIf max＜t Then
max=t
End If
Next j
{{U}} 【12】 {{/U}}
ave=Sum/n
MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后"
End If
End Sub
填空题以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。PrivateSubformClick()Dims(5,5)AsIntegerforN=1To5forM=1To5if________Or________thenS(N,M)=1ElseS(N.M)=0EndifNextMNextNforN=1To5for________Picture1.PrintTab(M*3);s(N,M);NextMPrintNextNEndSub
填空题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load() Show Textl.Text="" Text2.Text="" Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer) Textl.Text=Textl.Text+Chr(KeyCode-4) End Sub 程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为 【11】 。
填空题在窗体上有三个控件：名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1，并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所示。PrivateSubform_Load()HScroll1.Max=form1.WidthHScroll1.Min=0HScroll1.LargeChange=50HScroll1.smallChange=10Text1.Text=HScroll1.ValueHScroll1,Value=0Label1.Left=HScroll1.ValueEndSubPrivateSubHScroll1{{U}}【11】{{/U}}Text1.Text=NScroll1.{{U}}【12】{{/U}}Label1.Left=HScroll1.ValueEndSub
填空题有时候需要暂时关闭计时器，这可以通过______属性来实现。
填空题在窗体上有一个名为Image1的图像框，现在要把“D：”盘根目录下的图片文件“Fox．bmp”在其中显示出来，使用的语句是______。
填空题Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______状态或______状态或______状态。
填空题在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open"c:/test.dat"For Output As#1 Fori=1 to Len(Text1.Text) (12) Next Close# i End Sub
填空题有如下函数过程： Function gys(By Val x As Integer，By Val y As Integer) As Integer Do While y<>0 preminder=x/y x=y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是______。 Private Sub Command1_Click() Dim a As Integer，b As Integer a=10:b=2 x=gys(a，b) Print x End Sub
填空题在程序设计阶段应该采取{{U}} 【2】 {{/U}}和逐步求精的方法，把一个模块的功能逐步分解，细化为一系列具体的步骤，进而用某种程序设计语言写成程序。
填空题在菜单编辑器中，菜单-项前面的4个小点的含义是{{U}} 【12】 {{/U}}符号。
填空题设有程序： Option Base 1 Private Sub Command1_Click() Dim arr1,Max as Integer arr1=Array(12,435,76,24,78,54,866,43) (14) =arr1(1) For i=1 To 8 If arr1(i)＞Max Then (15) Next i Print"最大值是：";Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
填空题在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中，例如，若在Tcxt1中输入的是abDfdb，则单击Commandl按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command_Click()
DimSring,s As String,s As String,c As String
Str=UCase(Text1)
S=""
C="Z"
WhileC＞="A"
If In Ster(str,c)=0 Then
s=______
End If
c=Chr$(Asc(c)-1)
Wend
If S＜＞""Then
Text1=S
End If
End Sub
填空题下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。 Option Base 1 Private Sub Form_Click() Dim a(10) As Integer，i As Integer Dim max As Integer，max_i As Integer Randomize For i=1 To 10 a(i)= 【12】 Next i max=a(1)：max_i=1 For i=1 To 10 If 【13】 Then max=a(i) max_i=i End If Next i Print max,max_i End Sub
填空题为了选择多个控件，可以按住 【6】 键，然后单击每个控件。
填空题标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块
Type comp
re As Single
im As Single
End Type
Public c As comp
窗体模块
Private Sub Command1_Click( )
Dim a As comp，b As comp
a．re=InputBox(“输入a的实部”)
a．im=InputBox(“输入a的虚部”)
b．re=tnputBox(“输入b的实部”)
b．im=lnputBox(“输入b的虚部”)
{{U}} 【6】 {{/U}}
Print“c=”； c．re；“+”；c.im；"i"
End Sub
Private Sub s({{U}} 【7】 {{/U}})
C.re=r1.re+r2.re
c.im=r1.im+r2.im
End Sub
填空题在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如下图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。PrivateSubCommand1_Click()IfList1.ListIndex＞=(14)ThenList1.RemoveItem(15)Label1.Caption=List1.ListCountElseMsgBox"请选择要删除的项目"EndIfEndSub
填空题在关系模型中，表A中的某属性集是某表B的键，则称该属性集为A的 【5】 。
填空题以下程序段的输出结果是{{U}} 【7】 {{/U}}。
num=0
While hum＜=2
num=num+1
Print num
Wend
填空题下列程序的作用是：打开顺序文件C:/stuData.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。
Private Sub Form_Click()
{{U}} 【15】 {{/U}}
Do While Not EOF(1)
Input # 1，StrNo，StuName，StuEng
Print StuNo；Tab(10)；StuName；Tab(20)；StuEng
Loop
Close #1
End Sub