填空题以下程序用来产生20个100以内的随机整数，并将其中的偶数在窗体上显示，请填空。
Randomize
Fori=1 To 20
x=______
If x/2=______Then
PrintX
End If
Nexti
填空题设一棵完全二叉树共有700个节点，则在该二叉树中有______个叶子节点。
填空题在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实际联系的是{{U}} 【5】 {{/U}}框。
填空题下列程序段的作用是控制窗体的显示与隐藏。请填空。
Private Sub Form_Click()
Dim msg As Integer
Me.{{U}} 【5】 {{/U}}
MsgBox "单击Ok显示窗体"
Form1.{{U}} 【6】 {{/U}}
End Sub
填空题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Colnmand1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮command1变为可用。请将程序补充完整。
Private Sub Form_Load()
Command 1.Enabled=False
End Sub
Private SubText1{{U}} 【2】 {{/U}}()
Command1.Enabled=True
End Sub
填空题下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。 Option Base 1 Private Sub Form_Click() Dim X x=Array(23,-5,17 ,38,-31,46,11,8,5,-4) Max=1 k=1 10k=k+1 if x(k)＞x(Max) then (14) End if If k＜10 then goto 10 y= (15) Print y,Max End Sub
填空题下面程序是用来打印九九乘法表的，请填空。
Dim i As Integer, j As Integer, Strl $
Strl =" "
For i = 1 To 9
For j = 1 To 9
If{{U}} 【11】 {{/U}}Then
Strl =Strl +Str$ (j) +" x" +Str$ (i) +" =" +Str$ (Val(i*j))
Else
Strl = Strl & Chr( 13 )
{{U}} 【12】 {{/U}}
End If
Next
Next
Print Strl
填空题Visual Basic的对象是______和控件的总称。
填空题为了显示一个窗体，所使用的方法为 (8) ；而为了隐藏一个窗体，所使用的方法为 (9) 。
填空题要打印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＜j 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
填空题以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。PrivateSubCommand1_Click()DimA(3，3)ForM=1To3ForN=1To3IfN=MOr【7】ThenA(M，N)=1Else【8】=0EndIfNextNNextMForM=1To3ForN=1To3PrintA(M，N)；NextNPrintNextMEndSub
填空题随机文件以
________
为单位读写，随机文件的记录是
________
记录。
填空题下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d：/stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。
Type student
No As Long
Name As String * 20
English As Integer
End Type
Private Sub form_ Click ()
Dim k As student, i As Integer
{{U}}【8】 {{/U}}
Open "d:/stu1. dat" for Random As #10 Len = Reclen
for i = 1 To 5
k. No= InputBox(“请输入学号”)
k. Name = InputBox (“请输入姓名”)
k. English= InputBox (“请输入英语成绩”)
{{U}} 【9】 {{/U}}
Next i
{{U}}【10】 {{/U}}
Print k. No; k. Name; k. English
Close #10
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
14
Else
15
End If
Print
16
Next j
Print
Next i
End Sub
填空题概要设计说明书是软件 【4】 阶段的主要成果。
填空题软件需求分析阶段的工作可以概括为4个方面：______、需求分析、编写需求规格说明书和需求评审。
填空题建立随机文件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个数中的中间数，如图所示。请填空。