填空题数据管理技术发展过程经过人工管理、文件系统和数据库系统3个阶段，其中数据独立性最高的阶段是 【4】 。
填空题在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和Word文档，然后在文本框控件中显示保存的文件名，请填空。 Private Sub Command1_Click( ) CommonDialog1．Filter= 【13】 CommonDialog1．Filter= 【14】 CommonDialog1．ShowSave TextBox．Text= 【15】 End Sub
填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如图所示。请填空。PrivateSubCommandl_Click()DimkAsIntegerDimsumAsSingle，max；AsSingle，minAsSinglesum=Text1(0)max=Text1(0)min=_____Fork=______To6Ifmax＜Text1(k)Thenmax=Text1(k)EndIfIfmin＞Texl(k)Thenmin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=(______)/5EndSub
填空题以下语句的输出结果是{{U}} 【8】 {{/U}}。
S$="China"
S$="Beijing"
print S$
填空题一棵二叉树第六层(根结点为第一层)的结点数最多为
________
个。
填空题在属性窗口中，属性列表可以按两种顺序排列，这两种顺序是{{U}} 【6】 {{/U}}和{{U}} 【7】 {{/U}}。
填空题运行下列程序后，单击命令按钮，输出结果为______ 。
Function Fin (a As Integer, b As Integer) As Integer
Fin = IIf (a ＜ b, a, b)
End Function
Private Sub Command1_ Click()
Dim a As Integer, b As Integer
a = 1
b = 2
Print Fin(a, b)
End Sub
填空题建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Private Type PerData Name1 As String Phon As String *11 Address As String *10 PostCd As String *6 End Type ______ '定义PerData类型的变量xData Private Sub Form_Load() Open "C:/phonBook.txt" For Random As 1 End Sub Private Sub Command1_Click() xData.Name1=Text1.Text xData.Phon=Text2.Text ______=Text3.Text '地址 xData.PostCd=Text4.Text Put #1,1,xData Text1.Text="":Text2.Text="" Text3.Text="":Text4.Text="" End Sub Private Sub Command2_Click() reno=LOF(1)/Len(xData) i=1 Do While i＜=reno Get #1,i,xData Debug.Print xData.Name 1,______,xData.Address,xData.PostCd i=i+1 Loop End Sub
填空题Visual Basic允许一个变量未加定义直接使用，这样Visual Basic即把它当作______类型的变量；若使用Dim语句定义这种类型的变量，则As后面应该使用______关键字。
填空题设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:/file, dat" For Random As #1 Len=Len( 【11】 ) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【12】 #1, i, stu Next i Close 【13】 End Sub
填空题在窗体上画—个命令按钮，其名称为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】 。
填空题下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)= 【10】 Next max=an(1) For i%=2 to 10 if an(i%)＞max then max=an(i%) End If Next Print max End Sub
填空题下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private
Sub Form_Click() Dim an (10) As Integer
Dim max As Integer Randomize For
i%=1 To 10 an(i%)=______ Next
i% max=an(1) For i%=2 To
10 if______then
max=an(i%) End If Next
i% print max End Sub
End Sub
填空题阅读程序：OptionBase1PrivateSubForm_Click()Dima(3)AsIntegerPrint"输入的数据是:"；Fori=1To3a(i)=InputBox(“输入数据”)Printa(i)；NextPrintIfa(1)＜a(2)Thent=a(1)a(1)=a(2)a(2)=[10]EndIfIfa(2)＞a(3)Thenm=a(2)ElseIfa(1)＞a(3)Thenm=[11]Elsem=a(1)EndIfPrint"中间数是："；mEndSub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如下图所示。请填空。
填空题程序运行后，若为“甲队”且成绩大于80分，则在窗体上显示“表现优良”，否则显示“表现普通”。 Private Sub Form_Activate() Dim team1 As String Dim fen As Integer team 1="乙队" fen=86 Print Print"球队=；"team1 Print"成绩=；"fen If team1="甲队"Then If fen＞=80 Then Print"表现优良!" Else ______ End If Else Print"表现普通"! End If End Sub
填空题下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来 10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。 Option Base 1 Private SubForm_Cfick() Dim X x=Array(23，-5,17,38，-31,46,11，8，5，-4) Max=1 k=1 10 k=k+1 ifx(k)＞x(max)then [13] End if Ifk＜10then goto 10 y= [14] Print Max，y End Sub
填空题为了使计时器控件Timer1每隔0.5s触发一次Timer事件，应将Timer1控件的Interva1属性设置为{{U}} 【6】 {{/U}}。
填空题新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮， Form1窗体消失，显示Form2窗体，程序如下：
Private Sub Command1_Click()
【 】
Form2 【 】
End Sub
试补充完整。
填空题下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。
Option Base 1
Private Sub Form_Click()
Dim a(10)As Integer,i As Integer
Dim sum As Integer,aver As Single
{{U}}【12】 {{/U}}
For i=1 To 10
a(i)=Int(100*Rnd)+1
sum=sum+a(i)
Next i
{{U}}【13】 {{/U}}
Print sum,aver
End Sub
填空题执行下面程序，第一行输出结果是{{U}} [11] {{/U}}，第二行输出结果是{{U}} [12] {{/U}}。
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