填空题建立随机文件F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在 【14】 和 【15】 处将程序补充完整。 Type worker name As String*10 pay As Single End Type Dim workl AS worker Open"F1.dat"For Random As#1 Len=Len(workl) Work1.name="LiuMin"：work1.pay=400# 【14】 Close#1 Open"F1.dat"For Random As#1 Len=Len(work1) 【15】 Print"work1："，workl.name Print"work1："，workl.pay C10se#1
填空题在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ()
n = 6
f = 1
s = 0
For i = 1 To n
f ={{U}} 【4】 {{/U}} s = s + f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1/2+1/3+…+1/n的值。请填空。
填空题用窗体的Caption属性可以设置窗体的______。
填空题阅读程序：OptionBase1PrivateSubFormClick()Dima(3)AsIntegerPrint"输入的数据是；"；Fori==1To3a(i)=InputBox("输入数据")Printa(i)；NextPrintIfa(1)＜a(2)Thent=a(1)a(1)=a(2)a(2)=______EndIfIfa(2)＞a(3)Thenm=a(2)Elselfa(1)＞a(3)Thenm=______Elsem=______EndIfPrint"中间数是："；mEndSub程序运行后，单击窗体，在输入对话框中分别输入3个整数，程序将输出3个数中的中间数，如图所示。请填空。
填空题在有n个结点的二叉树的llink-rlink法存储表示中，n个结点所含有的2n个指针中，必有 【2】 个为空指针。
填空题设A=2，B=-4，则表达式3*A＞5orB+8＞0的值是______。
填空题程序执行结果s的值是 【7】 。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_click() Dim i As Integer i=3 Call sub1(i) if i＞4 then i=i mod 2 Print cstr(i) End Sub
填空题在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在 Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click() Dim str As String，s As String，c As String str=UCase(Textl) s = " " c = "Z" While c＞="A" If InStr(str，c)=0 Then s = ______ End If c = Chrs(Asc(c) ______) Wend If s＜＞" " Then Text1 = s End If End Sub
填空题在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程：
Private Sub Command1 Click(
)
Text1.Text = InputBox("请输入数据1")
Text2.Text = InputBox("请输入数据2)
End Sub
程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为
7
和
8
。
填空题设有如下程序：
Option Base 1
Private Sub Commandl Click()
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12,435,76,-24,78,54,866,43)
Min={{U}} 【12】 {{/U}}
For i=2 To 8
If arrl(i)＜Min Then{{U}} 【13】 {{/U}}
Next
Print"最小值是:";Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
填空题软件文档是软件工程实施中的重要成分，它不仅是软件开发的各阶段的重要依据，而且影响软件的{{U}} 【3】 {{/U}}。
填空题下列程序的功能是：单击窗体时将随机生成10个0～99之间的随机数，并赋值给数组A，然后利用选择法排序；并把排序后的结果输出。 Private Sub Form_Click() Dim A(9) As Integer,i As Integer Dim j As Integer,k As Integer Randomize For i=0 To 9 A(i)=Int(100*Rnd) Next i For i=0 To 8 k= 【9】 For j=i To 9 If(A(k)＞A(j))Then 【10】 End If Next j If k＜＞i Then t=A(k)：A(k)=A(i)：A(i)=t End If Next i For i=0 To 9 Print A(i)， Next i Print End Sub
填空题以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(i)到A(10)依次赋给B(1，1)到B(1，10)，把A(11)到A(20)依次赋给
B(2，1)到B(2，10)，……，把A(91)到A(100)依次赋给B(10，1)到B(10，10)。请填空。
Option Base 1
Private Sub Form_Click()
Dim i As Integer，j As Integer
Dim A(1 To 100)As Integer
Dim B(1 To 10,1 To 10)As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To {{U}}【9】 {{/U}}
For j＝1 To {{U}}【10】 {{/U}}
B(i,j)＝{{U}} 【11】 {{/U}}
Print B(i,j)；
Next j
Print
Next i
End Sub
填空题设有如下程序： Private Sub Form_Cliok() Dima As Integer,S As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是 [7] ；程序运行后，单击窗体，输出结果为 [8] 。
填空题Jackson结构化程序设计方法是英国的M.Jackson提出的，它是—种面向 【3】 的设计方法。
填空题为了把—个Visual BASIC应用程序装入内存，只要装入 【6】 文件即可。
填空题某程序列表框中有许多项，现在用Timer控件控制时间，100ms删除一项，直到删完为止。用一滚动条来显示已删除的项目，完成此程序。 Private Sub Command1_Click() Hscroll1.Min=0 HScroll1.Max=______ HScroll1.Value=0 Timer1.______=100 Timer1.Enabled=True End Sub Private Sub Timer1_Timer() If List.ListCount＞0 Then List1.Removeltem(0) HScroll1.Value=______-List1.ListCount Else Timer1.Enabled=False MsgBox”全部删除!” End If End Sub
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。 Private Sub Form 【6】 (Button As Integer，Shift As Integer，X As SinSle，Y As SinSle) If Button=2 Then 【7】 mnuEdit End If End Sub
填空题类是具有共同属性、共同操作方法的对象的集合，所以类是对象的{{U}} 【3】 {{/U}}。