填空题下列程序计算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的值：") n=InputBox("请输入n的值!") DO Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 ______ Debug.Print a,n,Sn End Sub
填空题在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。
Private Function fun(m As Integer) As Integer
Dim k As Integer, n As Integer
do
n ={{U}} 【10】 {{/U}}
k=k+ n
m= m/10
Loop until m = 0
fun = k
End Function
Private Sub form_ Click()
Dim n As Integer
n = Val(Text1. Text)
Print{{U}} 【11】 {{/U}}
End Sub
填空题在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim a(5) For i=0 To 4 a(i)=i+1:t=i+1 If t=3 Then a(t-1)=a(i-2) ElseIf i=4 Then Exit For Else a(t)=a(i) End If Next i End Sub 程序运行后，单击命令按钮，数组a的元素值是______。
填空题下列程序用于输出一个主对角线上元素值为“*”，其他元素值为“#”的5×5阶的方阵，试将程序补充完整。
Private Sub Command1_Click()
Dim x(5, 5)
For i = 1 To 5
For j = 1 To 5
If ______ Then
x(i, j) = "*"
Else
______
End If
Print ______
Next j
Print
Next i
End Sub
填空题下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请填空。 Option Base 1 Private Sub Form_Click() Dim x x=Array(57，-9，17，42，-31，46，11，8，6，-4，3，90) Max=1 For k=2 To 10 Step 1 If x(k)＞x(Max)Then ______ End If Next k y=______ Print Max，y End Sub
填空题请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶
矩阵。
Private Sub Command1 Click()
Dim s(6，6)
For i=1 To 6
For j=1 To 6
If i=j Then
{{U}} 【7】 {{/U}}
Else
{{U}} 【8】 {{/U}}
End If
Print{{U}} 【9】 {{/U}}
Next j
Print
Next i
End Sub
填空题下列程序是用来计算1+2+3……+10的程序段，请补充该程序。
Dim i, s, k As Integer
s =0: k = 0
For{{U}} 【9】 {{/U}}To 1
k=k+1
s=s+ k
Next i
Print s
填空题逻辑常量值为True或______。
填空题设有如下程序：
Private Sub Form_Click()
Dim n As Integer, s As Integer n = 8
s = 0
Do
s = s + n n = n - 1
Loop While n > 0
Print s
End Sub
以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。
填空题执行下面的程序段后，i的值为 【7】 ，s的值为 【8】 。 s=2 For i=3.2 To 4.9 Step 0.8 s=s+1 Next i Print i, s
填空题下面程序运行后，单击命令按钮，输出的结果是
________
Private Sub Command1_Click()
Dim a%(1 To 4)，b%(2 To 6)，i%，str1#，str2#
For i=1 To 4
a(i)=i
Next
For i=2 To 6
b(i) =i
Next
str1 = YAG(a)
str2 = YAG(b)
Print "str1 ="; str1; "str2 ="; str2
End Sub
Function YAG (a ( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
YAG = t
End Function
填空题下图是应用程序的窗体，要求用户选中复选框Check1后，文本框Text1中的文字以粗体显示，选中复选框Check2后，文本框Text1中的文字以斜体显示，单击“关闭”按钮Command1后结束应用程序运行。PrivateSubCheck1_Click()if{{U}}【11】{{/U}}thenText1.FontBold=TrueElseText1.FontEold={{U}}【12】{{/U}}EndifEndSubPrivateSubcheck2_click()if{{U}}【13】{{/U}}thenText1.FontItalic=FalseElseText1.FontItalic=TrueEndifEndsubPrivateSubCommand1_Click(){{U}}【14】{{/U}}MeEndSub
填空题Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是{{U}} 【14】 {{/U}}。
填空题在程序运行时，可以通过______方法来移动滚动条的位置。
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num．txt中，请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open"Num．txt"For Output As #1
For i=1 To 8
【 】
Next i
Close #1
End Sub
填空题窗体上有两个控件：一个是驱动器列表框Drive1，另一个是目录列表框Dir1，现在要使目录列表框跟随驱动器列表框的变化而变化，则需在Drive1_Change事件过程中填入语句{{U}} 【7】 {{/U}}。
填空题数据库在经过一定时间运行后，其性能会逐步下降，这时需要对数据库进行数据库 【5】 。
填空题设某循环队列的容量为60，头指针front=10(指向队头元素的前一位置)，尾指针rear=29(指向队尾元素)，则该循环队列中共有______个元素。
填空题语句Print Format(Int(12345.6789*100+0.5)/100,"0000,0.00")的输出结果是______。
填空题在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的操作。窗体上有文本框Text1和若干复选框，其中复选框Check1设置文本框Text1上显示的文本是否加下画线。Check1的单击事件过程如下： Private Sub Check1_Click() ______ Text1.FontUnderLine=True Elself______ Text1.FontUnderLine=False End If End Sub