填空题下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678，45，324，528，439，387，87，875，273，823) For i= 【8】 For j= 【9】 If a(i) 【10】 a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub
填空题设有整型变量s，取值范围为0～100，表示学生的成绩，有如下程序段： If s＞=90 Then Level="A" Else If s＞=75 Then Level="B" Else If s＞=60 Then Level="C" Else Level="D" End If 下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同，请填空。 Select Case s Case (9) ＞=95 Level="A" Case 75 To 90 Level="B" Case 60 To 74 Level="C" Case (10) Level="D" (11)
填空题在窗体画一个命令按钮，然后编写如下过程:
Function fun(ByVal num As Long)As Lone
Dim k As Long
k=1
num=Abs (num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n= InputBox (“请输入一个数”)
n=CLng (n)
r=fun (n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为
________
。
填空题在窗体上画1个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim m As Integer, x As Integer Dim flag As Boolean flag=False n=Val(InputBox("请输入任意1个正整数")) Do While Not flag a=2 flag= (7) Do While flag And a＜=Int(Sqr(n)) If n/a=n/a Then flag=False Else (8) End If Loop If Not flag Then n=n+1 Loop Print (9) End Sub
填空题阅读下面的程序：
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
该程序的运行结果是______。