填空题在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)
填空题在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序：
Function a(x As Integer, y As Integer) As Integer
a = IIf(x ＞ y, x, y)
End Function
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n = 10
m = 20
Print a(n, m)
End Sub
程序运行后，单击命令按钮，输出结果是______。
填空题在窗体上画一个文本框和一个命令按钮，如图2所示。编写如下程序：PrivateSubForm_Load() Show Text1.Text="" Form1.KeyPreview=False Text1.SetFocusEndSubPrivateSubCommand1_Click() KeyPreview=NotKeyPreview PrintEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger) PrintUCase(Chr(KeyAscii+1));EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger) PrintChr(KeyAscii+2); KeyAscii=0EndSub阅读以上程序，理解每个事件过程的操作，然后填空。程序运行后，直接从键盘上输入abc，程序的输出是(9)。程序运行后，单击一次命令按钮1，然后从键盘上输入abc，程序的输出是(10)。
填空题在窗体form1上有一个驱动器列表控件Drivel，一个目录列表控件Dirl，一个文件列表控件File1，一个富文本控件Richtexbox1。要求程序运行以后，用户可以利用。Drivel选择不同驱动器，同时Dirl中显示当前选中的驱动器的目录，用户利用Dirl选择文件所在的文件夹，在Filel控件中将显示当前选中的文件夹下的文件，用户选中其中某个文件(假设为文本文件)，则该文件的内容显示在控件Richtexboxl中。补充相应的语句，使之完成所述的功能。
Private Sub Dirl_Change()
{{U}} 【8】 {{/U}}
End Sub
Private Sub Drive1_Change()
{{U}} 【9】 {{/U}}
End Sub
Private Sub Filel _Click()
Dim fname AS String
If{{U}} 【10】 {{/U}}Then
fname=Filel．Path & Filel．FileName
Else
fname=Filel．Path& "/" & Filel．FileName
End If
RichTextBox1．LoadFile(fname)
End Sub
填空题软件生命周期一般可以分为以下阶段：问题定义、可行性研究、{{U}} 【3】 {{/U}}、设计、编码、测试、运行和维护。