填空题Private Sub Form_Activate( ) For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为 【14】 。
填空题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1
_______
()
Command1.Enabled=True
End Sub
填空题程序执行结果s的值是 【7】 。 Private Sub subl(Byval p As Integer) p=p * 2 End Sub Private Sub Command1_Click( ) Dim i As Integer i=3 Call sub1 (i) if i＞4 then i=i mod 2 Print cstr(i) End Sub
填空题下列程序计算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的值:")
{{U}} [14] {{/U}}
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
{{U}} [15] {{/U}}
Debug.Print a，n，Sn
End Sub
填空题下列程序段的输出结果为______。 Dim S1(5)As Integer,S2(5)As Integer,S3(5)As Integer N=4 ForI=1 To N S1(I)=I L=N+i-I S2(I)=L NextI S3(5)=0 ForK=1 To N S3(K)=S1(K)*S2(K) S3(5)=S3(5)+S3(K) NextK PrintS1(3)=S1(5)；S1(2) PrintS2(4)=S3(1)；S3(5)
填空题在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer Sum=0 n=InputBox("Enter a number") n=Val(n) For i=1 To n Sum= (9) Next i Print Sum End Sub Function fun(t As Integer) As Long p=1 For i=1 To t p=p*i Next i (10) End Function 以上程序的功能是：计算11 +2! +3!+…+n!，其中n从键盘输入，请填空。
填空题在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。
Private Sub Command1_Click( )
CommonDialog1．Filter={{U}} 【13】 {{/U}}
CommonDialog1．FilterIndex={{U}} 【14】 {{/U}}
CommonDialog1．ShowSave
Info．Text={{U}} 【15】 {{/U}}
End Sub
填空题下面程序的功能是找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容，将程序补充完整。 Option Base 1 Private Sub Form_Click0 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
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
a= Val(InputBox(“请输入一个整数”))
b=Val(InputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
填空题具有80个结点的完全二叉树的深度为{{U}} 【2】 {{/U}}。
填空题有如下函数过程： Function gys(ByVal x As Integer，ByVal y As Integer)As Integer Do While y＜＞0 preminder=x/y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 【9】 。 Private Sub Command1_Click() Dim a As Integer，b As Integer a=10：b=2 x=gys(a，b) Print x End Sub
填空题在窗体上画一个名称为Command1的命令按钮，编写如下事件过程
Private Sub Command1_Click( )
Dim a As String
a={{U}} 【11】 {{/U}}
For i=1 To 5
Print Space(6-i)；Mid $(a，6-i，2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
请填空。
填空题在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。 Pfivate Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1______ Command1.Enabled=True End Sub
填空题下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。
Private Sub Command1_Click( )
Dim a, Tmp As Integer
a = Array (678,45,324,528,439,387,87,875,273,823)
For i ={{U}} 【12】 {{/U}}
Forj =0 To 9
Ifa (i)＜a(j) Then
Tmp = a(i): a(i) = a(j) i a(j) = Tmp
End If
Next j,i
For i = 0 To 9
Print a(i)
Next
End Sub
填空题以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和，请补充完该程序。 Dim n As Integer Dim i As Integer Dim j As Long Dim s As Long n=100 j=0 s=0 For i=1 To 【12】 J= 【13】 s= 【14】 Next i Print s
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填上合适的代码，将程序补充完整。 Private Type Ang KA3 Integer Sinx As Single Cosx As Single End Type ______'定义Ang类型的变量Ksc Private Sub Form Click() Dim Y As Single Open"C:/Data1.txt"For Random As #1 Len=10 Put #1,1,Ksc Y=3.14159/180 For i=1 To 90 Ksc.K=i ______=Sin(i*Y)'给变量Ksc的正弦函数值赋值 Ksc.Cosx=Cos(i*Y) Next i Close #1 End Sub
填空题设有下列二叉树：对此二叉树前序遍历的结果为{{U}}【4】{{/U}}
填空题有下列程序：
Private Sub Command1_Click()
Dim i As Integer
Dim arrY(5)As Integer
For i = 0 To 4
arrY (i) = 5
Next i
Dim arrZ(5)As String
For i = 0 To 4
arrZ(i)= "hello"
Next i
Dim arrX(2)AS Variant
arrX(1)=arrY()
arrX(2)=arr2()
Text1.Text=arrX(1) (2)
Text2.Text=arrX(2) (3)
End Sub
程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是{{U}} 【14】 {{/U}}和{{U}} 【15】 {{/U}}。
填空题在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入321和456，则输出结果为 【6】 。 Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请再输入一个整数") Print a+b End Sub
填空题VB6.0的主要特点是具有面向对象的______设计工具，非常适用于用户界面的编程方式。