填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivmeSubCommand1_Click()n=5f=1s=0Fori=1Tonf=f{{U}}【12】{{/U}}s=s+fNextPrintsEndSub该事件过程的功能是计算的值。请填空。
填空题窗体上有一个组合框，其中已输入了若干项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图5中的“重庆”，则与“北京”交换，得到图6的结果。下面是可实现此功能的程序，请填空。PrivateSubCombo1_Click()Dimtemptemp=Combo1.Text______=Combo1.List(0)Combo1.List(0)=tempEndSub
填空题软件测试方法中，黑盒测试法和白盒测试法是常用的方法，其中黑盒测试法主要是用于测试{{U}} 【3】 {{/U}}。
填空题以下过程的作用是将26个小写字母逆序打印出来，请补充完整。
Sub Inverse()
For i=122 To 【 】
Print 【 】 ；
Next i
End Sub
填空题设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As string*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时， 在顺序文件Person.txt中写入一条记录。该操作的事件过程是 【15】 。
填空题下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As Integer,x2 As Integer,x3 As Integer 【9】 For i=100 To 999 x=i x1= 【10】 个位数字 x2=x/10 Mod 10 x3=x/100 If 【11】 Then Print i End If Next i End Sub
填空题每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对
象的类型，如Form的前缀为frm，则Image的前缀为{{U}} 【8】 {{/U}} ，Picture的前缀为{{U}} 【9】 {{/U}} 。
填空题下面程序的功能是统计字符串中“i”的个数请填空。
Sub COU( )
Dim n As Integer
a$ =" Beijing University of Technology"
n = Len(a$)
For i = 1 To n
b$ ={{U}} 【15】 {{/U}}
If b$ ="i" Then x=x+1
Next
Print" x="; x
End Sub
填空题窗体和控件的大部分属性可以通过______设置，也可以通过______设置。
填空题下面程序运行的结果为 1 11 12 21 22 23 31 32 33 34 请在画线处填上适当的内容使程序完整。 Private Sub Form_Click() Call [13] End Sub Private Sub Pl6() End Sub Private Sub p16() ForI=1 to 4 Forj=1 to I a= [14] Print Tab(j-1)*5+1)；a； Nextj Print NextI End Sub
填空题随机文件以 (14) 为单位读写，随机文件的记录是 (15) 记录。
填空题下面的程序代码执行之后，输出如下结果，请填写空白处将程序补充完整：PrivateSubCommand1_Click()Dimx(3,3)Fori=1To3Forj=1To3If______Thenx(i,j)=1If______Thenx(i,j)=-1NextjNextiFori=1To3Forj=1To3Printx(i,j);Nextj______NextiEndSub
填空题下列程序的运行机结果是{{U}} 【15】 {{/U}}。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub
填空题在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_CIick()
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
程序运行后，单击命令按钮，输出结果是{{U}} 【8】 {{/U}}。
填空题下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。
Private Sub MoveRight (x() As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = UBound (x)
j = x(i)
For k = i To{{U}} 【7】 {{/U}}Step -1
{{U}}【8】 {{/U}}
Next k
x(LBeund(x)) = j
End Sub
Private Sub Command1_click()
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 0 To 10
a(i) = i
Next i
j = Val(Text1. Text)
k=0
Do
k=k+1
Call MoveRight(a)
Loop Until k = j
For i = 0 To 10
Print a(i);
Next i
End Sub
填空题下面程序用来计算：PrivateSubCommand1_Click()A=Val(Text1.Text)B=Val(Text2.Text)SelectCaseACase【11】N=A+BCaseIs=5N=B/ACaseIs＜5N=0EndSelectText3.Text=NEndSub
填空题随机生成的10个两位数，求出它们的总和与平均数。产生两位数采用的算法如下：分别产生个位数(0～9)和十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。 说明：在窗体上有一个Commandl按钮，单击它将计算10个随机数的和与平均数， 并在窗体上输出平均数。 Private Sub Commandl Click() Dim m As Integer, n As Integer, sum As Integer Dim i As Integer, k As Integer, aver As Single sum=0 Randomize For i＝1 To 10 m＝Int(9*RnD) +1 n= 【9】 k=m*10+n sum= 【10】 Next i aver= 【11】 Print aver End Sub
填空题二叉树的遍历可以分为三种：前序遍历、______遍历和后序遍历。
填空题在窗体上画一个命令按钮，其名称为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 Arr(k)＞0 Then ______ Else ______ End If Next k Print pos,neg End Sub 以上程序的功能是计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。
填空题阅读程序：
Private Sub Form_Click()
msg 1$＝"继续吗?"
msg 2$="操作对话框"
r＝MsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$)
End Sub
程序运行后，单击窗体，将产生一个信息框。此时如果直接按Enter键，则相当于用鼠标单击信息框中的{{U}} 【10】 {{/U}}按钮。