Text1.Text = S$ End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7)) End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 “VisualBasic”，则在标签中显示的内容是【6】。
输入答案，中间不含空格:7.
在窗体上画一个命令按钮，其名称为Command1,然后编写如下事件过程： Private Sub Command1_Click()
a$ = \ Computer Rank Examination\ n = Len(a$) S = 0
For I = 1 To n b$ = Mid(a$, I, 1) If b$ = \ Then S = S + 1 End If Next I Print S End Sub
程序运行后，单击命令按钮，输出结果是【7】。
输入答案，中间不含空格:8.
为了在运行时把d:\\pic文件夹下的图形文件a.jpg装入图片框Picture1,所使用的语句为【8】
输入答案，中间不含空格:9.
设有如下程序：
Private Sub Form_Click() Cls
a$ = \ For I = 1 To 6
Print Tab(12 - I); 【9】 Next I End Sub
程序运行后，单击窗体，结果如图所示，请填空。
输入答案，中间不含空格:10.
在窗体上画一个命令按钮，其名称为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
【10】 Else
【11】 End If Next k
Print pos, neg End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg,请填空
输入答案，中间不含空格:11.
上一题【11】的答案为
输入答案，中间不含空格:12.
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer Sum = 0
n = InputBox(\ a number\ n = Val(n) For i = 1 To n Sum = 【12】 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 【13】 End Function
以上程序的功能是，计算1!+2!+3!+...+n!,其中n从键盘输入，请填空。
输入答案，中间不含空格:13.
上面第【13】空的答案是：
输入答案，中间不含空格:14.
在窗体上画一个文本框，名称为Text1,然后编写如下程序： Private Sub Form_Load()
Open \ For Output As #1 Text1.Text = \ End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
If UCase(Text1.Text) = 【14】 Then Close #1 End Else
Write #1, 【15】 Text1.Text = \
