填空题在窗体上画一个名称为Command1的命令按钮，然后编写下列程序：
Option Base_1
Private Sub Command1_Click()
Dim a(10)As Integer
For i=1 To 10
a(i)=i
Next
Call swap( 【 】 )
For i=1 To 10
Print a(i)；
Next
End Sub
Sub swap(b()As Integer)
n= 【 】
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
【 】
Next
End Sub
上述程序的功能是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换， a(2)与a(9)的值互换，……，请填空。
填空题关系模型的数据操纵即是建立在关系上的数据操纵，一般有 【5】 、增加、删除和修改四种操作。
填空题设有如下程序： Prirate Sub Form_Click() Dim a As Integer,b AS Integer a=20:b=50 p1 a,b p2 a,b p3 a,b Print"a="；a,"b=";b End Sub Sub p1(x As Integeh By Val y As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer,y As Integer) x=x+10 y=y+20 End Sub Sub p3 (ByVal x As Integer,ByVal y As Integer) x=x+10 y=y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a= (11) 和b= (12) 。
填空题用Line Input语句从顺序文件读出数据时，每次读出一行数据。一行是指遇到______分隔符，即认为一行的结束。
填空题设有如下程序： Private Sub Form_Click( ) Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是 【10】 。程序进行后，单击窗体，输出结果为 【11】 。
填空题要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Click( ) Dim b( ) Randomize (12) Do x = Rnd If x ＞ 0.5 Then y = 1 Else y = -1 t = y * Int(Rnd * 100)+ 1 (13) Do While k If t ＜＞ b(k)Then k = k + 1 Else Exit Do End If Loop If k = j Then ReDim Preserve b(k) b(k)= t Print b(k); j = j + 1 End If Loop Until j ＞ 50 Print (14) Max = b(1) For n = 2 To 50 If b(n)＞ Max Then (15) p = n End If Next n Print "最大数是："; Max Print "位置在第"; p; "个" End Sub
填空题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub 程序运行后，如果在Text2文本框中输入“eFghi”，则Text1文本框中的内容为 【11】 。
填空题在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数绍各元素的值累加，然后将计算结果显示在Label2中。请填空。 PrivateSubCommand1_Click() Sum=0 Fori=0To4 Sum=Sum+{{U}}【11】{{/U}} Next {{U}}【12】{{/U}}=Sum EndSub
填空题下面的程序用“冒泡”法将数组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
填空题下列程序用于在带垂直滚动条件的文本框Text1中输出3～100字间的全部素数。请填空。 Privat Sub Command1_Click() Text1.Text="" For n=3 To 100 k=Int(Sqr(n)) i=2 Flag=0 Do While I＜=______And Flag=0 If n Mod i=0 Then Flag=1 Eise i=i+1 Else loop If ______ Then Text1.Text=text1. Text ＆ Str(n) ＆ Chr(13) ＆ Chr(10) End If Next n End Sub
填空题下列程序运行时，单击窗体，执行结果为{{U}} 【12】 {{/U}}。
说明：在窗体上有一Label控件，名为lblDate。
Dim Y As Integer,m As Integer,d As Integer,w1 As Integer
Dim Rq As Date
Dim W2 As String
Private Sub Form_Click()
Rq=Date
Y=Year(Rq): m=Month(Rq)∶d=Day(Rq)
w1=Weekday(x)
Select Case w1
Case 1
W2="日"
Case 2
W2="一"
Case 3
W2="二"
Case 4
W2="三"
Case 5
W2="四"
Case 6
W2="五"
Case 7
W2="六"
End Select
bldate.Caption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&W2
End SUb
填空题菜单编辑器可分为3个部分，即数据区、
________
和菜单项显示区。
填空题Visual Basic程序在运行过程中，用户可通过按{{U}} 【8】 {{/U}}键进入中断状态。
填空题语句Static x(7，8)As Double定义了 【13】 个元素。
填空题在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块，其中的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。
填空题“编辑”菜单中“粘贴”命令所对应的快捷键是______。
填空题在窗体上画一个名为Label1的标签和一个名为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图16-1所示。请在【9】和【10】处填入适当的内容，将程序补充完整。(2002年9月)PrivateSubForm_load()List1.AddItem"北京"List1.AddItem"上海"List1.AddItem"河北"EndSubPrivateSub【9】()Label1.Caption=【10】EndSub
填空题为了在运行时将“d:/pic”文件夹下的图形文件“a.jpg”装入图片框Picture1，所使用的语句为 【9】 。
填空题在Visual Basic中按文件的编码方式不同，可将文件分为{{U}} 【15】 {{/U}}。
填空题在窗体上画一个名称为Commmld1的命令按钮，编写如下事件过程 Private Sub Command1 Click() Dim a As String a=______ For i = 1 To 5 Print Space(6-i)；Mid$(a， 6-i， 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。