填空题在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如果存在，则在Label2中给出提示“输入项已在组合框中”。如下图所示：请将程序补充完整。PrivateSubCombo1(14)(KeyAsciiAsInteger) IfKeyAscii=13Then Fori=0ToCombo1.ListCount-1 IfCombo1.Text=(15)then Label2.Caption="输入项己在组合框中" ExitSub EndIf Nexti Label2.Caption="已成功添加输入项" Combo1.AddItemCombo1.Text EndIfEndSub
填空题执行下面的程序段后；变量S的值为{{U}} {{U}} {{/U}} {{/U}}。
S＝5
For i=2.6 To 4.9 Step 0.6
S＝S+1
Next i
填空题下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2的界面。如果输入的门令错误，则出现图3的信息框。单击图1中的“取消”按钮，则结束程序。PrivateSubiommand1_Click()DimpassworAsStringpassword=Text1.Textifpassword="Myname"then【12】form1.ShowElsed=MsgBox(【13】)RefreshEndifEndSubPrivateSubcommand2_Click()【14】EndSub在图1的窗体中，文本框对象的名称属性是【15】。
填空题在窗体上建立一个含有3个命令按钮的控件数组，当单击某个命令按钮时，分别执行不同的操作。请填写以下空白处，使程序完整。PrivateSubCommand2_Click(IndexAsInteger)FontSize=12If________ThenPrint"单击第一个命令按钮"ElseIf________ThenPrint"单击第二个命令按钮"ElseIf________ThenEndEndIfEndSub
填空题在3种不同类型的组合框中，只能选择而不能输入数据的组合框是{{U}} 【12】 {{/U}}。
填空题在Visual Basic 的立即窗口内输人以下语句 X=97 ? Chr＄ (X) 在窗门中显示的结果是 【6】 。
填空题当线性表采用顺序存储结构实现存储时，其主要特点是山______。
填空题表示“x＋y小于10，且x-y要大于0”的VB表达式为{{U}} 【1】 {{/U}}。
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommandl_Click()DimrAsInteger，nAsIntegern=Text1r=Text2Text3=fun(n)/fun(________)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLong________Fork=1Tont=t*kNextfun=tEndFunction
填空题面向对象的程序设计方法是把{{U}} 【13】 {{/U}}封装起来作为一个对象，并为每一个对象设置所需要的{{U}} 【14】 {{/U}}。
填空题下面程序的功能是统计字符串中"i"的个数，请填空。 Sub COU() Dim n As Integer a$="Beijing University of Technology" n=Len(a$) For i=1 To n b$=Mid$(a$,i,1) If ______ Then x=x+1 Next Print "x=";x End Sub
填空题程序有顺序、重复和条件三种基本控制结构，它们的共同特点是只有一个入口和______个出口。
填空题语句print"25+32=";25+32的输出结果是______。
填空题用 (5) 结构表示实体及实体之间联系的数据模型称为关系模型。
填空题以下程序的功能是，产生10个0～1000之间的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。
Option Base 1
Private Sub Form Click()
Dim Arr(10) As Integer
Dim Max As Integer
Randomize
For I = 1 To 10
Arr(i) = Int (Rnd * 1000)
Next i
Max= ______
For i = 2 To 10
If______ Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
填空题执行下面程序，第一行输出结果是
14
，第二行输出结果是
15
。
Option Explicit
Private Sub Form_Click()
Dim A As Integer
A=2
Call Subl(A)
End Sub
Private Subl(x As Integer)
x=x*2+1
If x＜10 Then
Call Subl(x)
End If
x=x*2+1
Print x
End Sub
填空题建立随机文件TEST.DAT，存放学生的姓名和总分，然后把该文件中的数据读出来显示。请在 【10】 和 【11】 处填适当的内容，将程序补充完整， Type Record Student As String*20 Score As Single End Type Dim Class As Record Open"TEXT.DAT"For 【10】 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) 【11】 Print"STUDENT："，Class.Student Print"SCORE："，Class.Score Close #1 End
填空题LOF函数的功能是返回某文件的字节数，LOF(2)是返回______。
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown(KcyCode As Integer,Shift As Integer)
Print Key Code；
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Key Ascii
End Sub
程序运行后，如果按下A键，则在窗体上输出的数值为
________
和
________
。
填空题下列程序段的执行结果为______。 DimA(10,10) Fori=2 To 4 Forj=4 To 5 A(i,j)-i*j Next j Next i PrintA(2,5)+A(3,4)+A(4,5)