填空题对于给定的一组关键字(12，2，16，30，8，28，4，10，20，6，18)，按照希尔排序(增量为5)算法进行递增排序，第一趟排序后得到的结果是{{U}} 【2】 {{/U}}。
填空题编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MultiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，请将程序补充完整。 Option Explicit Private Sub Form _Click() Dim ch1 As String，fn As Integer Dim Str As String fn= 【13】 Open "C:/Config.sys" For Input As fn Do While Not EOF( 【14】 ) Line Input #fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text = 【15】 End Sub
填空题在Windows95/98下，使用Visual Basic6.0至少需要______的内存。
填空题结构化程序设计力祛的主要原则可以概括为自顶向下、逐步求精、 【2】 和限制使用goto语句。
填空题Visual Basic识别对象靠的是对象的 【7】 属性。
填空题下面的程序是找出两个正整数a和b，使得a＜b、a+ b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。Option ExplicitDim a As Integer, b As Integer, n As Integer, c As IntegerPrivate Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer do c=a Mod b: a=b=c Loop 【13】 Gcd=aEnd FunctionPrivate Sub form_ Click() n=0 for a= 1 To 49 b= 【14】 c= Gcd (a, b) if c Mod 3= 0 then 【15】 Print a, b, c End if Next a Print nEnd Sub
填空题DIM a(3, -3 to 0, 3 to 6)AS STRING语句定义的数组元素有{{U}} 【6】 {{/U}}个。
填空题在窗体上画一个通用对话框，其名称为CommandDialog1，再画一个命令按钮，其名称为Command1。程序运行时，单击命令按钮，在对话框内只允许显示文本文件。将以下程序补充完整。
Private Sub Command1_Click()
CommandDialog1．Filter={{U}} 【15】 {{/U}}
CommandDialog1．ShowOpen
End Sub
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请输入一个整数") Print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为______。
填空题要想在文本框中显示垂直滚动条，必须把______属性设置为2，同时还应把Mulfiline属性设置为True。
填空题如果一个工人可管理多个设施，而一个设施只被一个工人管理，则实体“工人”与实体“设备”之间存在______联系。
填空题菜单编辑器可以分为3部分，即______、______、______。
填空题语句print"25+32=";25+32的输出结果是 【7】 。
填空题软件测试是保证软件质量的重要手段，而软件测试的主要和重要的测试方法是通过测试数据和______的设计来实现。
填空题下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。
Option Base 1
Private Sub Form_Click()
Dim a(20) As Integer,i As Integer
Dim t As Integer,j As Integer
Randomize
For i=1 To 20
a(i)=10+Int(90*Rnd)
Print a(i)；
Next i
Print
i=1：{{U}} 【9】 {{/U}}
Do While i＜j
t=a(i)：{{U}} 【10】 {{/U}}：a(i)=t
i=i+1：j=j-1
Loop
For i=1 To 20
Print a(i)；
Next i
Print
End Sub
填空题下面程序是用来打印九九乘法表的，请补充完整。 Dim i As Integer，j As Integer，Strl$ Strl=" " For i=1 To 9 Forj=1 To 9 If 【9】 Then Strl=Strl + Str$(j)+"X"+Str$(i)+"="+Str$(Val(i * j)) Else Strl=Strl & Chr(13) 【10】 End If Next j Next i Print Str
填空题在用菜单编辑器设计菜单时，必须输入数据的项目是{{U}} 【6】 {{/U}}。
填空题响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做______。
填空题函数Str$(256.36)的值是 【7】 。
填空题在窗体画一个命令按钮，然后编写如下过程:
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，输出结果为{{U}} 【12】 {{/U}}。