填空题下面的程序用冒泡法将数组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=______
For j=______
If a(i)______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
填空题在修改列表框内容时，RemoveItem方法的作用是【 】。
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是{{U}} 【7】 {{/U}}。
填空题运行下列程序：
Dim t As Integer
Private Sub Form_C1ick
____
t=2
x=Val(InputBox("输入一个整数5"))
Print funl(x)；t
End Sub
Private Function funl(v)
If y＞0 Then
fun1=1:t=10
Else If y=0 Then
fun1=0:t=20
Else
fun1=-1:t=30
End If
End Function
从键盘为变量x输入数据5，输出的结果是______。
填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click() Text1.Text = "VB程序设计"
End Sub
Private Sub Text1_Change() Picture1.Print "VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是 _________，而在图片框中显示 的内容是 _________。
填空题已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim pp (65 To 90)
For i = 65 To 90
pp(i) =0
Next
x$ = InputBox(" Enter a string", x$ )
x$ = UCase$ (x$)
For i = 1 To Len (x$)
n =Asc(Mid$ (x$, i, 1) )
If n＞= 65 And n＜ = 90 Then
{{U}} 【11】 {{/U}}
End If
Next
For i = 65 To 90
Ifpp(i)＞0Then
Print Chr$ (i) ; pp (i)
End If
Next
填空题下列程序弹出对话框中按钮的个数为______。 MsgBox"确认!",vbAbortRetrylgnore+vbMsgBoxHelpButton+vbQuestion,"提示/
填空题长度为n的顺序存储线性表中，当在任何位置上插入一个元素概率都相等时，插入一个元素所需移动元素的平均个数为{{U}} 【1】 {{/U}}。
填空题下面程序段的输出结果是{{U}} 【6】 {{/U}}。
p = 0
s = 0
Do
p = p + 2
s = s + p
Loop While p＜11
Print “s=”; s
填空题如下图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。
Private Sub Commandl_CliCk() Dimk As Integer，n As
Integer，found As Boolean found=False
n=Len{{U}} [8] {{/U}} k=0
Whlek＜LiStl.ListCount And Not found If
Text1=Left$(Listl.List(k)，n)Then Tex2={{U}}
[9] {{/U}} found=True
End If k=k+1 Wend
If Not found Then Text2=“查无此人”
End If End Sub
填空题线性表是最简单的一种数据结构，有顺序和链接两种存储方式。线性表按链接方式存储时，对每个结点的存储包括{{U}} 【1】 {{/U}}两部分。
填空题要选择多个不相邻的控件，按住______或SHIFT键不放，再单击要选择的控件。
填空题窗体上有名称为Command1的命令按钮事件过程及2个函数过程如下：
Private Sub Command1_Click()
Dim x As Integer，y As Integer，z
x=3
y=5
z=fy(y)
Print fx(fx(x)),y
End Sub
Function fx(ByVal a As Integer)
a=a+a
fx=a
End Function
fy=a
Function fy(ByRef a As Integer)
a=a+a
fy=a
End Function
运行程序，并单击命令按钮，则窗体上显示的2个值依次是______和______。
填空题在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如下图所示。请在空白处填入适当的内容，将程序补充完整。PrivateSubForm_Load()List1.AddItem”北京”List1.AddItem“上海“List1.AddItem“河北”EndSubPrivateSubListLDblclick()Label1.Caption=(6)EndSub
填空题下列软件系统结构图的宽度为________
填空题软件的需求分析阶段的工作，可以概括为四个方面： 【4】 、需求分析、编写需求规格说明书和需求评审。
填空题下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。
Private Sub Form_Click()
Dim i As Integer
Open{{U}} 【11】 {{/U}} As #1
For i=1 To 10
{{U}} 【12】 {{/U}}
Next i
Close #1
End Sub
填空题系统符号常量的定义可以通过______获得。
填空题设有下列循环：
x=1
Do
x=x+2
Print x
Loop Until 【 】
要求程序运行时执行3次循环体，请填空。
填空题以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。 OptionBase 1 Private Sub Command1_Click(Index As Integer) Dima(1 To 20,1 To 10) Dim b() ReDimb(1 To 200) For i=1 To 20 For j=1 To 10 A(i,j)=i*j Next j Next i Tran a,20,10b End Sub Sub Tran(a()an,n,b()) Dim i As Integer For i=1 To m For j=1 To n ______=a(i,j) Next j Next i End Sub