填空题设计一个计时程序。该程序用户界面如图所示，由一个文本框(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
填空题已知变量bool Var是一个布尔型的变量，如果要给其赋值为Tree，则正确的赋值语句是______。
填空题在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数: ") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t=【11】 print t; Sum=Sum+t If t＜min Then min=t ElseIf max＜t Then max=t End If Next j 【12】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub
填空题设有程序：
Option Base 1
Private 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)＞Max Then{{U}} 【13】 {{/U}}
Next i
Print"最大值是:";Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
填空题数据结构分为逻辑结构和存储结构，线性链表属于______。