填空题下列程序的功能是将数组中的奇数相加。给定的程序不完整，请将程序补充完整。 Option Base 1 Private Sub form_Click() Dim k As Integer Dim Total As Integer Dim n n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For k = 1 To UBound(n) If 【13】 Then Total = Total + n(k) End If Next k Print Total End Sub
填空题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：
Private Sub Form_ Lead()
Show
Text1.Text = " "
Text2.Text = " "
Text2.SetFocus
End Sub
Private Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text + Chr (KeyCode - 4)
End Sub
程序运行后，如果在Text2文本框中输入efghi，则Text1文本框中的内容是______。
填空题3所示的软件系统结构图的宽度为______。
填空题当对象得到焦点时，会触发【 】事件，当对象失去焦点时将触发【 】事件。
填空题用树结构表示实体类型及实体间联系的数据模型称为 【2】 。
填空题以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。PrivateSubCommand1_Click()DimA(3，3)ForM=1To3ForN=1To3IfN=MOr______ThenA(M，N)=1Else______=0EndIfNextNNextMForM=1To3ForN=1To3PrintA(M，N)；NextNPrintNextMEndSub
填空题执行以下语句后，输出结果为______。
s$="ABCDEFG"
Print InStr(s$，"efg")
Print LCase$(s$)
填空题在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后将计算结果显示在Label2中。请填空。PrivateSubCommand1_Click()Sum=0Fori=0TO4Sum=Sum+{{U}}【11】{{/U}}Next{{U}}【12】{{/U}}=SumEndSub
填空题本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有3个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图16-12所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。PrivateSubCommand1_Click()Randomizen=CInt(Text1.Text)n1=0n2=0Fori=1To{{U}}【14】{{/U}}r=Int(Rnd*2)Ifr={{U}}【15】{{/U}}Thenn1=n1+1Elsen2=n2+1EndIfNextText2.Text=n1Text3.Text=n2EndSub
填空题下列程序的作用是求所有小于或等于30的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。注：自然数对是指两个自然数的和与差都是平方数(如8与17)。PrivateSubCommand1_Click()DimnAsLongDimmAsLongDimsAsSingleDimdAsStringForn=1To30Form=1To【9】s=n+m【10】IfSqr(s)=Int(Sqr(s))【11】Sqr(D)=Int(Sqr(D))ThenPrintn：mEndlfNextmNextnEndSub
填空题Visual Basic中的控件分为3类，它们是______、______和______。
填空题以下语句的输出结果是 【6】 。 Print Int(12345.6789*100+0.5)/100
填空题全局变量必须在{{U}} 【14】 {{/U}}模央中定义。
填空题工具栏的复制、剪切、粘贴按钮所对应的菜单命令放置于主菜单项______的下拉菜单中。
填空题一组具有相同名称，不同下标的下标变量称为{{U}} 【15】 {{/U}}。
填空题下列程序的功能是：将数据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
填空题Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向{{U}} 【3】 {{/U}}的设计方法。
填空题在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Commandl按钮后Text1中显示韵字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Commandl_C1ick()
Dim Str As String,s As String,c As String
str=UCase(Text1)
s=""
c="Z"
While c＞="A"
If InStr(Str,c)=0 Then
s={{U}} 【7】 {{/U}}
End If
c=Chr$(Asc(c){{U}} 【8】 {{/U}})
Wend
If s＜＞""Then
Text1=s
End If
End Sub
填空题软件测试的主要和重要的测试方法是通过测试数据和
________
的设计来实现。
填空题下列程序弹出对话框中按钮的个数为______。
MsgBox"确认!"，vbAbortRetryignore+vbMsgBoxHelpButton+vbinformation,"提示："