填空题在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim arr(4) arr(4)=x End If Me.Print(arr(4)-arr(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
填空题在窗体上画一个命令按钮，名称为command1，然后编写如下程序： Private Sub Command1_Click() Dim ct As String Dim nt As Integer Open "e:/stud. txt" (13) Do While True ct=InputBox("请输入姓名:") If ct= (14) Then Exit Do nt=Val(InputBox("请输入总分:")) Write #1, (15) Loop Close #1 End Sub 以上程序的功能是，程序运行后，单击命令按钮，则向e盘根目录下的文件stud. txt中添加记录(保留已有记录)，添加的记录由键盘输入；如果输入“end”，则结束输入。每条记录包含姓名(字符串型)和总分(整型)两个数据。请填空。
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open"Num.txt"For Output As #1
For i=1 To 8
______
Next
Close #1
End Sub
填空题设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30)As Integer For i=1 To 30 a(i)=i Next For Each arrItem 【13】 a If arrItem Mod 7=0 Then Print arrItem： If arrItem＞90 Then Exit For Next End Sub 请填空。
填空题为了提高程序的易读性，同的为减少错误，提高软件开发效率，编码时应注意养成良好的 【2】 。
填空题在概念设计阶段可用E-R图，其中“矩形框”表示实体，{{U}} 【5】 {{/U}}表示实体间联系。
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1,2,3,... ,90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click( )
Dim Y As Single
Open{{U}} 【15】 {{/U}}
Y=3. 14159 / 180
For i=1 To 90
Ksc. K=i
Ksc. Sinx = Sin ( i * Y)
Ksc. Cosx = Cos ( i * Y)
Put #2, i, Ksc
Next i
Close #2
End Sub
填空题新建一个工程时，系统自动把创建的______作为启动窗体。
填空题在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按钮的控件数组，名称为Optionl，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4中，程序运行情况如图所示。请在______处填入适当的内容，将程序补充完整。PrivateSubCommand1_Click()Fori=0To3If______=TrueThenopt=Option1(i).CaptionEndifNextSelectCase______Case"+"Result=Val(Text1.Text)+Val(Text2.Text)Case"-"Result=Val(Text1.Text)-Val(Text2.Text)Case"*"Result=Val(Text1.Text)*Va1(Text2.Text)Case"/"Result=Val(Text1.Text)/Val(Text2.Text)EndSelect______=ResultEndSub
填空题为了定义自己的鼠标光标，首先应把MousePointer属性设置为{{U}} 【11】 {{/U}}，然后把{{U}} 【12】 {{/U}}属性设置为一个图标文件。
填空题执行下面程序，第一行输出结果是 【12】 ，第二行输出结果是 【13】 。 Option Explicit Private Sub Form_Click( ) Dim A As Integer A=2 Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x＜10 Then Call Sub1(x) End If x=x,2+1 Print x End Sub
填空题下列表达式有错误，正确的写法应该是{{U}} 【6】 {{/U}}。
[(a+B) +e]/80-5÷(d+e)
填空题在修改列表框内容时，RemoveItem方法的作用是
______
。
填空题表示“A和B之一为零但不同时为零”的VB表达式为______。
填空题下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
SubPR() Randomize Dim a(10)
For j=1 To 10 a(i)=Int({{U}} {{U}} 12
{{/U}} {{/U}}) If {{U}} {{U}} 13 {{/U}}
{{/U}}Then k=k+1 Print a(j) Next j
Print Print k/10 Fnd Sub
填空题在Selectcase结构中应至少包含一个______子句。
填空题在数据库的外模式、模式和内模式三级模式的体系结构中，存在两级映像：外模式到模式的映像定义了外模式与模式之间的对应关系；模式到内模式的映像定义了数据库的逻辑结构与
________
之间的对应关系。
填空题设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为{{U}} 【9】 {{/U}}
填空题下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。
Private Sub Command1_click()
Text1.Text=""
For n=3 to 100
k=Int(Sqr(n))
i=2
Flag=0
Do While i＜= ______And Flag=0
If n Mod i=0 Then
Flag=1
Else
i=i+1
End If
Loop
Lf ______Trhen
Text1.Text=Text1.Text & Str(n) & Chr(13) & Chr(10)
End If
Next n
End Sub
填空题DIM a(3, -3 to 0, 3 to 6)AS STRING语句定义的数组元素有 【6】 个。