填空题软件设计模块化的目的是______。
填空题以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。 Dim arr(1 To 20) For i=1 To 20 arr(i)= 【12】 Next i Sum=0 For Each X In 【13】 If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；“Sum＝”；Sum
填空题把“Visual Basic程序设计”添加到列表框lstBooks的语句为______。
填空题为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的{{U}} 【6】 {{/U}}属性设置为{{U}} 【7】 {{/U}}。
填空题在窗体上画一个命令按钮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结构中应至少包含一个______子句。