填空题以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer Dim Max As Integer Randomize For i = 1 To 10 Arr(i)= Int(Rnd * 1000) Next i Max = (14) For i = 2 To 10 If (15) Then Max = Arr(i) End If Next i Print Max End Sub
填空题在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：
Dim Save All As String
Private Sub Commandl_C1iCk()
Text1.Text=Left(UCase(SaveAU)，4)
End Sub
Private Sub Textl_KeyPress(KeyAscii As Intege)
SaveA11=Save All+Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
填空题当用{{U}} 【12】 {{/U}}方式打开文件时，如果对文件进行与操作，则写入的数据附加到原来文件的后面。
填空题下列程序是用来计算1+2+3……+10的程序段，请补充该程序。 Dim i, s, k As Integer s =0: k = 0 For 【9】 To 1 k=k+1 s=s+ k Next i Print s
填空题以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框 Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Textl.Text=" "
Open "./smtext1.______ As #1
Do While ______
Input #1，inData
Text1.Text=Text1.Text&inData
Loop
Close #1
End Sub
填空题计时器事件之间的间隔通过______属性设置。
填空题如果类C继承类B，类B继承类A，则类C继承类A，这说明继承具 【3】 。
填空题运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t End Sub Private Function fun1(y) 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，输出的结果是 【8】 。
填空题程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 Ptivate Sub Form_load() Dima(1T05)As Integer,n=5 a(1)=20：a(2)=25：a(3)=10：a(4)=40：a(5)=15 ______ Forz=1 To n-m If a(z)＞a(z+1)Then t=a(z) a(z)=(z+1) a(z+1)=t End If NextZ Nextm End Sub
填空题设有如下程序：
Private Sub search(a()As Variant，ByVal key As Variant，index%)
Dim I%
For i=LBound(A) To UBound(A)
If key=a(I)Then
index=I
Exit Sub
End If
Next I
index=-1
End Sub
Private Sub Form_Load()
Show
Dim b() As Variant
Dim n As Integer
b=Array(1，3，5，7，9，11，13，15)
Call search(b，11，n)
Print n
End Sub
程序运行后，输出结果是{{U}} 【6】 {{/U}}。
填空题下列事件过程的功能是：通过Form _ Load事件给数组赋初值为35、48、15、22、67，Form_ Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。
Dim Arr ( )
Private Sub Form _ Load( )
【 】
End Sub
Private Sub Form _ Click( )
【 】
If Int(x/3)=x/3 Then
Print x
End If
Next x
End Sub
填空题通用对话框控件可通过调整其Action属性而改变成各种实用的对话框，但它不能改变成______对话框。
填空题设A=27，则Hex(A) =______ ,Oct(A) =______.
填空题执行以下程序段，并输入1.23，则程序的输出结果应是{{U}} {{/U}}。N= Str(InputBox(“请输入一个实数：”))p= InStr(N，".")Print Mid(N，p)
填空题应用程序结构指的是组织指令的______，即指令存放的______和指令的______顺序。
填空题以下程序的功能是统计字符串A中出现字符串B的次数，然后输出，请在填空[9]处填入适当的程序完成功能。
填空题下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open "smtext1.txt"{{U}} 【13】 {{/U}}As{{U}} 【14】 {{/U}}
Do While {{U}}【15】 {{/U}}
Input #2，inData
Text1.Text=Text1.Text & inData
Loop
Close #2
End Sub
填空题以下语句输出结果是 _________。Print Int(12345.6789 * 100 + 0.5) / 100
填空题随机文件以{{U}} [9] {{/U}}为单位读写，随机文件的记录是{{U}} [10] {{/U}}记录。
填空题设有如下程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1 Dim Min As Integer，i As Integer arrl=Array(12，435，76，-24，78，54，866，43) Min= 【12】 For i=2 TO 8 If arr1(i)＜Min Then 【13】 Next i Print“最小值是：”；Min End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。