填空题下列程序计算Sn的值。Sn=a+aa+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的值:" )
{{U}} 【9】 {{/U}}
Do
Tn =Tn * 10 + a
Sn = Sn + Tn
Cout = Cout + 1
{{U}} 【10】 {{/U}}
Debug. Print a, n, Sn
End Sub
填空题变量未赋值时，数值型变量的值为______，字符串变量的值为空串。
填空题表达式Fix(-32.68)+Int(-32.02)的值为 【10】 。
填空题下列程序实现的功能是：从键盘上输入10个整数，并把它们写到“D：”盘“a1．dat”文件中，然后从中读出第5个数并输出。
Private Sub Form_Click()
Dim k As Integer
Dim n As Integer，i As Integer
n=Len(k)
Open{{U}} 【13】 {{/U}}As#10 Len=n
For i=1 To 10
k=InputBox("请输入一个整数")
{{U}} 【14】 {{/U}}
Next i
{{U}}【15】 {{/U}}
Get #10，，k
Print k
End Sub
填空题设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请在【11】、【12】和【13】处填入适当的内容，将程序补充完整。OptionExplicitDimiPrivateSubCommand1_Click()i＝0Timer1.Interval=1000Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubForm_Click()【11】MeEndSubPrivateSubForm_Load()Timer1.Enabled=FalseText1.Text=0EndSubPrivateSubTimer1_【12】()i=i+1Text1.Text=【13】EndSub
填空题窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为"计算"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("输入数据"))Text1=Str(fun(x)+fun(x)+fun(x))EndSubPrivateFunctionfun(ByRefnAsInteger)IfnMod3=0Thenn=n+nElsen=n*nEndIffun=nEndFunction当单击命令按钮，在输入对话框中输入2时，文本框中显示的是______。
填空题执行下列程序，输入数字3，则输出结果为
________
。
Private Sub Command1_Click()
a=InputBox("Input a Number")
If a＞5 Then
GoTo L5
Else If a＞2 Then
GoTo L2
Else
GoTo L3
End If
Exit Sub
L5:
Print a Mod5
Exit Sub
L3:
Print a Mod 3
Exit Sub
L2:
Print a Mod 2
End Sub
填空题算法一般都可以用选择结构、循环结构和{{U}} {{U}} {{/U}} {{/U}}结构组合而成。
填空题斐波那契(Fibonacci)数列的构成规律是：数列的第一、二个数是1，从第三个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前12项值的过程，请完善之。 Sub Fibonacci(N As Integer， s1) s1 = 0 f1 = 1 (11) For i = 1 To N / 2 Print f1; f2; s1 = f1 + f2 f1 = f1 + f2 f2 = (12) Next i Print End Sub Private Sub Command1_Click( ) Dim sum As Integer Call Fibonacci(12， sum) Print "Sum = "; sum End Sub
填空题Visual Basic采用______驱动的编程机制，程序员只需要编写响应用户动作的程序，而不必考虑按精确次序执行的每个步骤。
填空题在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；
Function Fun(x As Integer,ByVhly As Inmgcr)As Integer
X=K+y If x＜0 Then
Fun=x Else
Fun=y End If End Function
Private Sub Cornmandl_Click() Dima As Integer,b As
Integer a=-10:b=5 Tcxt1,Text=Fun(a,b)
Text2,Text=Fun(a,b) End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上{{U}} [14] {{/U}}和{{U}}
[15] {{/U}}。
填空题在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open "C:/test.dat" For______As #1 For i=1 to Len(Text1.text) print #1，mid(Text1.Text,i,1) Next Close #1 End Sub
填空题以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。 Dim amax As Single，amin As Single x=InputBox("请输入数据") amax=x amin=x Do While 【8】 If x＞amax Then amax=x End If If 【9】 Then amin=x End If x=InputBox("请输入数据") Loop Print "Max="；amax；"Min="；amin End Sub
填空题当对象得到焦点时，会触发GotFocus事件，当对象失去焦点时将触发 (10) 事件。
填空题一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的______。
填空题完成下面的程序，使显示结果如下图所示。PrivateSubForm_Click()FontSize=18Samples="[8]"x=(ScaleWidth_TextWidth(Samples))/2y=(ScaleHeight_TextHeight(Samples))/2CurrentX=xCurrentY=y[9]Sample$EndSub
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序；
Function M(x As Integer,y As Integer)
M=IIf(x＞y,x,y)
End Function
Private Sub Commandl_Click()
Dim a As Integer,b As Integer
a=100
b=200
PrintM(a,B)
End Sub
程序运行后，单击命令按钮，输出结果为{{U}} 【15】 {{/U}}。
填空题下列语句的输出结果是
________
。
Print Format$(1258.6，"000，000.00")
填空题一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。PrivateSubCommand1_Click()Dima(10，10)AsIntegerFori=1To【11】Forj=1To10If【12】Then【13】=1Elsea(i，j)=0EndIfNextjNextiFori=1To10Forj=1To10Printa(i，j)；NextjPrintNextiEndSub