填空题如果存在如下过程： Private Function FMax(a()As Integer) Dim First As Integer，Last As Integer，i As Integer First=LBound(a) Last=UBound(a) Max=a(First) Fori=FirSt To Last Ifa(i)＞Max ThenMax=a(i) Nexti FMax=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Ptirate Sub Commandl_click() ReDimm(1 To4)As Integer m(1)=20:m(2)=30:m(3)=50:m(4)=100 C=FMax(m) Print C End Sub 单击命令按钮，其输出结果为______。
填空题已知变量boolVar是一个布尔型的变量，如果要给其赋值为True，则正确的赋值语句就是______。
填空题设有命令按钮Command1的单击事件过程，代码如下，请填空。 Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i) =i Next For Each arrItem______a If arrItem Mod 7=0 Then Print arrItem； If arrItem＞90 Then Exit For Next End Sub
填空题下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时, Private Sub Command1_Click() Dim x As Single x = InputBox("请输入x的值" ) Select Case x Case Is＜50 y=0.8 * x Case 50 To 100 y=0.7 * x 【12】 Print "输入数据出界!" End Select Print x, y End Sub
填空题下列软件系统结构图的宽度为________
填空题在窗 体上画 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