填空题假定当前日期为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}}。
填空题以下程序用来产生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个方面：______、需求分析、编写需求规格说明书和需求评审。