填空题下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a = Array (678,45,324,528,439,387,87,875,273,823) For i = 【12】 Forj =0 To 9 Ifa (i)＜a(j) Then Tmp = a(i): a(i) = a(j) i a(j) = Tmp End If Next j,i For i = 0 To 9 Print a(i) Next End Sub
填空题有以下程序：
Private Sub Form_Activate()
Fori=1 to 3
x=3
For i=i to 2
x=x+6
Next
Next
Print X
End Sub
程序运行后，窗体上显示的结果为
________
填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single，y As Single Open"NM1.txt"For Input As #1 Open"NM2.txt"For Input As #2 Do While Not EOF(1) (14) Print x y=x^2 (15) Print y Loop Close #1,#2 End Sub
填空题下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用TAB键来切换。请填空。
Private Sub{{U}} [11] {{/U}}KeyDown(KeyCode As Integer,Shift As
Integer) If KeyCode{{U}} [12] {{/U}}vbKeyRetum
Then Text2.SetFocus End If End
Sub
填空题下列程序的功能是：将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev(str1) As String B=Mid(______,1, 1) If B= "" Then rev="" Else rev=rev(Mid(str1, 2)) +______ End If End Function Private Sub Form_Click() old ="abcde" Print rev(old) End Sub
填空题窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如单击图1中的“重庆”，则与“北京”交换，得到图2的结果。下面是可实现此功能的程序，请填空。PrivateSubCombo1_Click()Dimtemptemp=Combo1.Text______Combo1.List(0)Combo1.List(0)=tempEndSub
填空题42.{{U}} {{/U}}是数据库应用的核心。
填空题3所示的软件系统结构图的宽度为______。
填空题下列程序的功能是将数组中的奇数相加。给定的程序不完整，请将程序补充完整。
Option Base 1
Private Sub form_Click()
Dim k As Integer
Dim Total As Integer
Dim n
n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For k = 1 To UBound(n)
If{{U}} 【13】 {{/U}}Then
Total = Total + n(k)
End If
Next k
Print Total
End Sub
填空题请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。 Private Sub Command1_Click() Dim s (6,6) For i=1 To 6 For i=1 To 6 If i=j Then ______ Else ______ End If Print______ Next j Print Next i End Sub
填空题在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。
Private Sub Command1_Click()
CommonDialog1．Filter={{U}} 【12】 {{/U}}
CommonDialog1．ShowOpen
PCSTextBox．Text={{U}} 【13】 {{/U}}
End Sub
填空题下列程序的运行机结果是 【15】 。 Private Sub Form_ Click() Dim k As Integer n= 5 m= 1 k= 1 Do m=m+2 k= k+1 Loop While k＜=n Print mEnd Sub
填空题在Visual Basic中，将一个窗体加载到内存进行预处理但不显示所使用的语句是______。
填空题下列程序运行时，若输入123，输入对话框的提示信息是______。 Private Sub Command1_Click() X1=InputBox("请输入") MsgBox(X1) End Sub
填空题在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。 Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Single t1 = Timer Do t2 = Timer If t2 ＜ t1 Then t2 = t2 + 86400 If t2 - tl ＞ n Then Exit Do 【12】 Loop End Sub Sub main( ) Form2. Show dlys 【13】 【14】 Form1. Show End Sub
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中。请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3:fun(n)/funf____________)/funfr)EndSubFunctionfun(nAsInteger)AslongDimtAsLong____________Fork=1Tont=t*kNextfun=tEndFunction
填空题假定当前日期为2002年12月16日，星期一，则执行以下语句后，输出结果是16、12、 2002______。
PrintDay(Now)＜CR＞
PrintMonth(NOW)＜CR＞
PrintYear(Now)＜CR＞
PrintWeekday(NOW)＜CR＞
填空题以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Integer Dim z As Double z= 【8】 For i=1 To y z=z*x Next i 【9】 End Function Private Sub Command1_Click() Dim m As Double Dim n As Integer Dim t As Double m=InputBox("输入x数:") n=InputBox("输入次方数:") t=funl(m, n) Print Str(m)+"^"+Str(n)+"="; 【10】 End Sub
填空题以下程序的功能是：程序运行后，单击命令按钮，输出结果为： 1 4 7 2 5 8 3 6 9 请填空。 Private Sub Command1_Click( ) Dim Arr(3，3)As Integer For i = 1 To 3 For j = 1 To 3 Arr(i， j)= ______ Print Arr(i， j); Next j Print Next i End Sub
填空题若A＝20，B＝80，C＝70，D＝30，则表达式A+B＞160 Or(B * C＞200 And Not D ＞60)的值是{{U}} 【8】 {{/U}}。