填空题以下程序的功能是：从键盘上输入若干个学生的成绩，计算出乎均成绩，并输出低于平均分的学生成绩，用输入负数结束输入。 Dim x(10)，sum，ave，a，n，i n=0 sum=0# a=InputBox("Enter mark:") Do While a＞=0 And n＜10 sum= 【12】 x(n)= 【13】 n=n+1 a=InputBox("Enter mark：") Loop ave= 【14】 Print "Output:" Print "ave="；ave For i=0 To n-1 If 【15】 Then Print x(i) End If
填空题下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。
Private Sub Form_Click()
Dim i As Integer
Open______As#1
For i=1 To 10
Print #1，i
Next
Close #1
End Sub
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Inteeer
Sinx As Single
Cosx As Single
End Tyre
Dim Ksc As Ane
Private Sub Form Click()
Dim Y As Single
Open“c:/Data1.txt”For Random As #2 Len=10
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc=Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
{{U}} 【15】 {{/U}}
Next
Close #2
End Sub
填空题在Visual Basic中，所有窗体或控件的大小都是以______为单位的。
填空题窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。PrivateSubForm_Load()Fori=1To100IfiMod7=0Then{{U}}【3】{{/U}}EndIbfNextEndSubPrivateSubCommand1_Click()Sum=0Fori=0To{{U}}【4】{{/U}}Sum=Sum+{{U}}【5】{{/U}}NextText1．Text=SumEndSub
填空题下面程序是用来打印九九乘法表的，请填空。 Dim i As Integer,j As Integer, Str1$ Str1=”” For i=1 To 9 For i=1 To 9 If (12) Then Str1:Str1+Str$(j)+“×”+Str$(i)+“=”+Str$(Va1(i)j) Else Str1:Str1＆Chr(13) (13) End If Next Next Print Str1
填空题在菜单编辑器中，菜单-项前面的4个小点的含义是
______
符号。
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) 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 程序运行后，单击命令按钮，输出结果是 【13】 。
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub Form_KeyDown(KcyCode As Integer,Shift As Integer) Print Key Code； End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Key Ascii End Sub 程序运行后，如果按下A键，则在窗体上输出的数值为 【11】 和 【12】 。
填空题设有程序：
Option Base 1
Pfivme Sub Command1_Click( )
Dim arr1，Max as Integer
arr1=Array(12，435，76，24，78，54，866，43)
{{U}} 【12】 {{/U}}=arr1(1)
For i=1 To 8
If arr1(i)＞MaxThen{{U}} 【13】 {{/U}}
Next i
Print"最大值是："；Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1 Click()
Dim a(10)As Integer
For i = 1 To 10
a(i)= i
Next
Call swap(______)
For i=1 To 10
Print a(i)；
Next
End Sub
Sub swap(b()As Integer)
n = ______
For i=1 To n/2
t = b(i)
b(i)= b(n)
b(n)= t
______
Next
End Sub
上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(”与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
填空题下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:/a1．txt文件中的所有小写字母。
Private Sub Form_Click()
Dim Ch As String*1
Open"c:/a1．txt"For Input As #10
Do While{{U}} 【13】 {{/U}}
Ch=Input(1，#10)
If{{U}} 【14】 {{/U}}Then
Print Ch；
End If
Loop
{{U}}【15】 {{/U}}
End Sub
填空题如果要在文本框中显示垂直滚动条，则必须把 【8】 属性设置为2，同时还应把Multiline属性设置为True。
填空题把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click( )
Open"d：/test/smtext1．txt"For lnput As#1
Text1.Fontsize=14
Text1.FontName=“幼圆”
Do While Not EOF(1)
________
whole＄=whole $ aspect $+Chr$(13)+Chr $(10)
Loop
Text1.Text=
________
。
Close
Open"d：/test/smtext2．txt"For Output As#1
Print #1
________
Close
End Sub
填空题一元二次方程ax2+bx+c=0有实根的条件是a≠0,并且b2-4ac≥O，表示该条件的布尔表达式是______。
填空题在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的Multiline属性设置为True，然后编写如下的事件过程，请在空白处填上适当的内容，将程序补充完整。 Private Sub Form_Click() Open”d:/test/smtext1.txt" For input As#1 Do While Not EOF() Line Input#1，aspect$ whole $=whole $+aspect $+Chr $(13)+Chr $(10) Loop Text1.text=whole$ Close#1 Open "d:/test/smtext2.txt" For output As#1 Print#1， (15) Close #1 End Sub
填空题在SQL的SELECT查询中使用【9】子句消除查询结果中的重复记录。
填空题程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本。 程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。 Option Explicit Private 【12】 Dim k As Integer For k=1 to 100 If k Mod 20 Then 【13】 Else Text1.Text="" End lf Print“程序运行完毕，可再双击窗体” End Sub
填空题有如下程序，该程序的执行结果是
________
。
Private Sub Command1_lick()
For i= 1 To 4
x= 4
For j =1 To 3
x =3
For k=1 To 2
X= K+5
Next k
Next j
Next i
Print x
End Sub
填空题下列程序运行后的输出结果是______。
Private Sub f(k，s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i，s)
Sum=Sum+s
Next
Print Sum
End Sub