填空题如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为{{U}} 【13】 {{/U}}。
填空题VB有两种类型的数组：固定大小的 【12】 和在运行时可以改变的动态数组。
填空题{{U}}【3】 {{/U}}和软件开发方式及技木的落后是诱发软件危机的根本原因。
填空题斐波那契(Fibonacci)数列的构成规律是：数列的第1、2个数是1，从第3个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前12项值的过程，请完善程序。
Sub Fibonacci(N As Integer，s1)
s1=0
f1=1
{{U}} 【11】 {{/U}}
For i=1 To N/2
Print f1；f2；
s1=f1+f2
f1=f1+f2
f2={{U}} 【12】 {{/U}}
Next i
Print
End Sub
Private Sub Command1_Click()
Dim sum As Integer
Call Fibonacci(12，sum)
Print "Sum="；sum
End Sub
填空题如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommand1_Click()DimkAsInteger，nAsInteger，foundAsBooleanfound=Falsen=Len(______)k=0Whilek＜List1.ListCountAndNotfoundIfText1=Lefts(List1.List(k)，n)ThenText2＝______found＝TrueEndIfk＝k+1WendIfNotfoundThenText2＝“查无此人”EndIfEndSub
填空题以下程序段的输出结果是{{U}} 【14】 {{/U}}。
a=0 : b=0
Do
a=a+l
b=b+a
Print b;
if b＞=10 Then Exit Do
Loop
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer, y As Integer) M=IIf(x＞y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=100 b=200 Print M(a, B) End Sub程序运行后，单击命令按钮，输出结果为 【15】 。
填空题本程序实现文本加密。先给定序列：a1，a2，…，an，它们的取值范围是1～n，且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文本长度为n后再加密。例如：若给定序列a1，a2，…a7却分别为2，5，3，7，6，1，4 当文本为“PROGRAM”时，加密后的文本为“APOMRRG” 当文本为“PROGKAMMING”时，加密后的文本为“APOMRRGMING” 当文本为“THANK”时，加密后的文本为“*TA*HKN”下面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)a(1，a2，a3，…的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍放在变量mysar中。请填空。Option BaselPrivate Sub code (a () As Integer, mystr As String) Dim ch AS String, cl As String n=UBound(a)- Len(mystr) If n＞0 Then mystr=mystr & String＄(n,"*") End If ch= mystr For k={{U}} 【14】 {{/U}}To UBound(a) c1=Mid(mystr,k,1) n={{U}} 【15】 {{/U}} Mid＄(ch, n)=c1 Next k mystr=chEnd Sub
填空题编写程序，当按下某个键时，在窗体上分别以十六进制和八进制形式输出该键的KeyCode码。请完善下列程序。
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)&"键的十六进制KeyCode码是"；
Print{{U}} 【10】 {{/U}}
Print"八进制KeyCode码是"；Oct(KeyCode)
End Sub
填空题表达式Len(Str(1.3))Mod 2的值为______。
填空题在窗体上有一个名称为Laell的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。PrivateSubForm_Load()List1.AddItem“北京”List1.AddItem“上海”List1.AddItem“河北”EndSubPrivateSubList1_Dblclick()Label.Caption={{U}}【12】{{/U}}EndSub
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()n=5f=1s=0Fori=1Tonf=【12】s=s+fNextPrintsEndSub该事件过程的功能是计算的值。请填空。
填空题下列程序段的运行结果是______。 Sub sele() Dimn as Integer i=21:n=3 DoWhilei＞n i=i-n Loop Printi End Sub
填空题软件结构是以{{U}} 【3】 {{/U}}为基础而组成的一种控制层次结构。
填空题下面程序是用来打印九九乘法表的，请填空。 Dim i As Integer，j As Integer，Str1 $ Str1="" For i=1 To 9 For j=1 To 9 If (12) Then Str1=Str1+Str$(j)+"×"+Str$(i)+"="+Str$(Val(i*j)) Else Str1=Str1&Chr(13) (13) End If Next Next Print Str1
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Fori=1 To 4 K=4 For j=1 To 3 K=3 For k=1 To 2 K=X+6 Next k Next j Next i Print X End Sub 程序运行后，单击命令按钮，输出结果是 【14】 。
填空题Visual Basic对象可以分为两类，分别为______和______。
填空题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后，单击命令按钮，输出结果是 (10) 。
填空题以下程序用于计算“1+1/3+1/5+…+1/(2n+1)”，直至“1/(2n+1)”小于10-4。阅读下面程序，请在【6】和【7】处填上正确内容。Private Sub Command1_Click() Sum = h: n = i do n={{U}} 【6】 {{/U}} term =1/ n Sum = Sum + term if term ＜0.0001 then{{U}} 【7】 {{/U}} Loop Text1.Text = n Text2 *Text = SumEnd Sub
填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 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}} {{U}} {{/U}} {{/U}}
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
{{U}} {{U}} {{/U}} {{/U}}
Next i
Close #2
End Sub