填空题阅读下面的程序：
Private Sub Form_Click()
Dim Check As Boolean,Counter As Integer
Check=True
Counter=5
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为{{U}} 【9】 {{/U}}。
填空题在VB6.0中，要显示程序代码，必须在______窗口。
填空题已知B的ASCⅡ码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数。
Dim______
Fori=65 To 90
pp(i)=0
Next
x$=InputBox("Enter a string",K$)
x$=U Case$(x$)
Fori=1 To Len(x$)
n=Asc(Mid$(x$,i,1))
If n＞=65Andn＜=90Then
______
End If
Nexti
Fori=65 To 90
If pp(i)＞Then
Print Chr$(i);pp(i)
End If
Next
填空题如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 【13】 。
填空题为了在运行时把“d:/pie”文件夹下的图形文件“a. jpg”装入图片框Picturel，所使用的语句为{{U}} 【6】 {{/U}}。
填空题在窗体上面画一个命令按钮， 名称为 Command1， 然后编写如下程序：
以上程序的功能是
填空题下列表达式有错误，正确的写法应该是{{U}} 【6】 {{/U}}。
[(a+B) +xc]/80-5÷(d+e)
填空题在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为Listl、Commandl和Labell，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如下图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。PrivateSubCommandlClick()IfListl.ListIndex＞=______ThenListl.RemoveItem______Labell.Caption=______ElseMsgBox“请选择要删除的项目”EndIfEndSub
填空题建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为______、______、ShowColor、ShowFont和ShowPrinter。
填空题在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。 Private Sub Form_Load() Check1.Caption="显示粗体" Check2.Caption="显示斜体" Text1.Text="May you a happy day!" End Sub Private Sub Check1_Click() If______=1 Then Text1.FontBold=True Else Text1.FontBold=False End If End Sub Private Sub Check2_Click() If Check2.Value=1 Then Text1.______ EIse Text1.______ End If End Sub
填空题Visual Basic对象可以分为两类，分别为{{U}} 【6】 {{/U}}和{{U}} 【7】 {{/U}}。
填空题有下列程序，运行后变量x1、y1和z1的结果分别是 【13】 、 【14】 和 【15】 。 Private Sub fun1(s，m，n) s = m + 1 m = n + 2 n = s + 3 End Sub Private Sub form Click() Dim x1， y1 x1 = 1 ：y1 = 1 ：z1 = 1 Call fun1(x1，y1 + 1，(z1)) Debug．Print x1； y1； z1 End Sub
填空题下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。
Private Sub Form Click()
Dim Ch As String * 1
Open "c:/a1.txt" For Input As #10
Do While{{U}} 【8】 {{/U}}
Ch= Input(1, #10)
If{{U}} 【9】 {{/U}}Then
Print Ch;
End If
Loop
{{U}} 【10】 {{/U}}
End Sub
填空题关键字ASC和DESC分别表示 【5】 的含义。
填空题在程序的空白行处填写适当的语句，完成以下功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。
DoWhile List2.ListCount
________
List2.RemoveItem 0
Loop
填空题有如下函数过程：
Function gys(By Val 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
以下是调用该函数的事件过程：
Private Sub Command1_Click
Dim a As Integer,b As Integer
a=10；b=2
x=gys(a，b)
Print x
End Sub
该程序的运行结果是______。
填空题在Visual Basic的立即窗口内输入以下语句 X=65 ? Chr$(X) 在窗口中显示的结果是 【6】 。
填空题列程序的功能是将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open (13) As#1 For i=1 To 10 Print #1, i Next Close#1 End Sub
填空题在文件对话框中，假定有一个名为"fc．exe"的文件，它位于"d:/pp"目录下，则"FileName"属性 的值为 【14】 ；FileTifie属性的值为 【15】 。
填空题数据库理论中，数据的独立性一般可分为物理独立性和______