填空题下列软件系统结构图的宽度为________
填空题在窗 体上画 1 个命令按钮 和 1 个通用对话框， 其名称分别 为 Command1 和CommonDialog1，然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1. _________ = "打开文件"" CommonDialog1.Filter = "All Files(*.*)|*.*" CommonDialog1.InitDir = "C:/" CommonDialog1.ShowOpen
End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示"打开"文件对话框，其标题是" 打开文件"，在"文件类型"栏内显示"All Files(*.*)"，并显示C盘根目录下的所有文件， 请填空。
填空题对象的有些属性取值是有限的，对于这样的属性，可以在______中选择所需要的属性值。
填空题下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是{{U}} 【9】 {{/U}}。
a=InputBox("请输入第一个整数")
b=InputBox("请输入第二整数")
Print a＋b
填空题建立随机文件TEST.DAT，存放学生的姓名和总分，然后把该文件中的数据读出来显示。请在
________
和
________
处填适当的内容，将程序补充完整，
Type Record
Student As String*20
Score As Single
End Type
Dim Class As Record
Open"TEXT.DAT"For
________
As #1 Len=Len(Class)
Class.Student=“LiuMin”：Class.Score=596
Put #1，1，Class
Close #1
Open"TEXT.DAT"For Random As #1 Len(Class)
________
Print"STUDENT："，Class.Student
Print"SCORE："，Class.Score
Close #1
End
填空题在Selectcase结构中应至少包含一个______子句。
填空题程序执行结果s的值是{{U}} 【7】 {{/U}}。
Private Sub subl(Byval p As Integer)
p=p*2
End Sub
Private Sub Commandl_Click()
Dim i As Integer
i=3
Call subl(i)
ifi＞4 then i=i mod 2
Print cstr(i)
End Sub
填空题以下循环的执{{U}} 【9】 {{/U}}。
k=0
Do Until k＞=10
k=k+1
Loop
填空题软件是______、数据和文档的集合。
填空题负责数据库中查询操作的数据库语言是______。
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。 Private Sub Form______ (Button As Integer， Shift As Integer，X As Single， Y As Single) If Button=2 Then ______ mnuEdit End If End Sub
填空题组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和{{U}} [12] {{/U}}。在这3种不同类型的组合框中，只能选择而不能输入数据的是{{U}} [13] {{/U}}。
填空题数据库的逻辑模型设计阶段的主要任务是将______转换成关系模型。
填空题在VB6.0中，InputBox函数用于产生______对话框。
填空题下面程序是用来打印九九乘法表的，请补充完整。 Dim i As Integer，j As Integer，Strl$ Str1=" " For i=1 To 9 For j=1 To 9 If [9] Then Str1=Str1+Str$(j)+"×"+Str$(i)+"="+Str$(Val(i*j)) Else Str1=Str1 & Chr(13) [10] End If Next j Next i Pnnt Str1
填空题下列程序的执行结果是上______。 t=0 m=1 Sam=0 Do t=t+m Sum=Sum+t m=m+2 Loop Whilem＜=9 Print Sum
填空题下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678，45，324，528，439，387，87，875，273，823) For i= 【8】 For j= 【9】 If a(i) 【10】 a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub
填空题设有整型变量s，取值范围为0～100，表示学生的成绩，有如下程序段： If s＞=90 Then Level="A" Else If s＞=75 Then Level="B" Else If s＞=60 Then Level="C" Else Level="D" End If 下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同，请填空。 Select Case s Case (9) ＞=95 Level="A" Case 75 To 90 Level="B" Case 60 To 74 Level="C" Case (10) Level="D" (11)
填空题在窗体画一个命令按钮，然后编写如下过程:
Function fun(ByVal num As Long)As Lone
Dim k As Long
k=1
num=Abs (num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n= InputBox (“请输入一个数”)
n=CLng (n)
r=fun (n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为
________
。
填空题在窗体上画1个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim m As Integer, x As Integer Dim flag As Boolean flag=False n=Val(InputBox("请输入任意1个正整数")) Do While Not flag a=2 flag= (7) Do While flag And a＜=Int(Sqr(n)) If n/a=n/a Then flag=False Else (8) End If Loop If Not flag Then n=n+1 Loop Print (9) End Sub