填空题下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click() Max=0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n＞Max Then Max=n If n＜Min Then Min=n s=s+n ______ s=s-Min-Max p=s/18 Print "最高分"; Max; "最低分"; Min Print "最后得分: "; pEnd Sub
填空题程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 Private Sub Form_load() Dim a(1 To 5)As Integer a(1)=20:a(2)=25:a(3)=10:a(4)=40:a(5)=15 n=5 ______ For z=1 To n-m If a(z)＞a(z+1)Then t=a(z):a(z)=a(z+1):a(z+1)=t End If Next z Next m End Sub
填空题执行下面的程序段后，变量S的值为______。 S=5 For i=2.6 To 4.9 Step 0.6 S=S+1 Next i
填空题设有如下程序：PrivateSubForm_Click()Clsa$="ABCDFG"Fori=1To6PrintTab(12-i);______NextiEndSub程序运行后，单击窗体，结果如图6所示，请填空。
填空题窗体对象可以识别KeyPress、KeyUp、KeyDown事件，在按下某键时，这3个事件发生的顺序是：______、______、______。
填空题将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性设置为______。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。
例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Comnmnd1_Click()
Dim a As Integer，n As Integer，Cout As Integer
Dim Sn As Long，Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox(“请输入a的值：”)
n=InputBox(“请输入n的值!”)
Do
Tn=Tn * 10 + a
Sn=Sn+Tn
Cout=Cout+1
________
Debug. Print a，n，Sn
End Sub
填空题要求打开随机文件“c:/Example.txt”文件，文件号为1，实现的语句是{{U}} 【8】 {{/U}}。
填空题下列这个Sub过程的功能是：统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。 Private Sub numCount() Dim num As Integer S$="software And hardware" num=Len(s$) For i=1 To num b$=______ Ifb$="a" Then x=x+1 Next i Print "x=";x End Sub
填空题按数据流的类型，结构化设计方法有两种设计策略，它们是变换分析设计和{{U}} 【3】 {{/U}}
填空题下面程序的功能是计算给定正整数序列中奇数之和y与偶数之和x，最后输出x平方根与 y平方根的乘积。请在画线处填上适当的内容使程序完整。 Private Sub Form_Click() a=Array(3，6，8，11，64，13，24，9，42，35，22) y=Fun1(a) print y End Sub Private Function Fun1(b) x=0：y=0 for k=0 to 10 If 【9】 Mod 2=0 then x=x+b(x) else y=y+b(x) End If Next Fun1=Sqr(x)*Sqr(y) End Function
填空题在窗体上画一个名称为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(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
填空题下列语句的执行结果是{{U}} 【7】 {{/U}}。
X=10
Print x＋2；x＋2；x＋6
填空题Visual Basic 提供了列表框控件，当列表框中的项目较多。超过了列表框的长度时，系统会自动在列表框边上加一个 【6】 。
填空题常用的黑盒测试有等价分类法、{{U}} 【1】 {{/U}}、因果图法和错误推测法4种。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("请输入a的值:") (10) Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 (11) Debug.Print a,n,Sn End Sub
填空题在窗体上面画一个命令按钮，然后编写如下程序：
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 = 2
b = 5
Print M(a, b)
End Sub
程序运行后，单击命令按钮，输出结果为{{U}} 【5】 {{/U}}。
填空题设当前日期为2008年4月28日，星期一，则执行下面语句后的输出结果为______。 Print Day(Now) Print Month(Now) Print Year(Now) Print Weekday(Now)
填空题在窗体上加上一个富文本控件Rich TextBox，画一个命令按钮，当单击命令按钮的时候，将显示“打开文件”对话框，设置该对话框只用于找开文本文件，然后在富文本控件中显示打开的文件内容。
Private Sub Command1_Click ( )
CommonDialog1. Filter = {{U}} 【11】 {{/U}}
CommonDialog1. ShowOpen
RichTextBox1. FileName = {{U}} 【12】 {{/U}}
End Sub
填空题在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文 件名。请填空。
Private Sub Command1_Click()
CommonDialog1．Filter=
______
CommonDialog1．ShowOpen
PCSTextBox．Text=
______
End Sub