填空题数据库管理系统常见的数据模型有层次模型、网状模型和 【5】 三种。
填空题下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。Private Sub form_ Click() Dim Ch As String * 1 Dim n As Integer Open "c://a1. txt" for Input As #10 do while{{U}} {{/U}}Ch = Input(1, #10) if{{U}} {{/U}} then n=n+1 End if Loop{{U}} {{/U}}Close #10End Sub
填空题设有以下函数过程：
Function fun(m As Integer)As Integer
Dim k As Integer, sum As Integer
sum=0
For k=m To 1 Step-2
sum=sum+k
Next k
fun=stlm
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为{{U}} 【6】 {{/U}}。
填空题设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(a) To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load( ) Show Dim b( ) As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是 【15】 。
填空题单击命令按钮后，下列程序代码的执行结果是______ 。
Public Sub fun (Byval a () As Integer)
Static n As Integer
Do
a(n) = a (n) + a(n + 1)
n = n + 1
Loop While n ＜ 3
End Sub
Private Sub command1_ click()
Dim m As Integer, n As Integer, a(10) As Integer
For n = 0 To 2: a(n) = n + 1: Next n
For n = 1 To 2: Call fun(a): Next n
For n = 0 To 3: Print a(n): Next n
End Sub
填空题设有如下程序段： a$="BeujingShanghai" b$=Mid(a$，Instr(a$,"g")+1)。 执行上面的程序段后，变量b$的值为______。
填空题有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Commandl_Click() x=Val(Text1.Text) If [9] Then PrintX Else Text1.Text="" [10] End If End Sub
填空题阅读以下程序：
Private Sub Form_click()
Dim k,n,m As integer
n=10
m=1
k=1
Do While k＜=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是
______
。
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub FormPLoad() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single,Y As Single) PaintStart=True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer,_ X As Single,Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub FormMouseUp(Button As Integer, Shift As Integer,_ X As Single,Y As Single) (9) End Sub Private Sub Form_DblClick() Cls End Sub
填空题建立随机文件F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在
________
和
________
处将程序补充完整。
Type worker
name As String*10
pay As Single
End Type
Dim workl AS worker
Open"F1.dat"For Random As#1 Len=Len(workl)
Work1.name="LiuMin"：work1.pay=400#
________
Close#1
Open"F1.dat"For Random As#1 Len=Len(work1)
________
Print"work1："，workl.name
Print"work1："，workl.pay
C10se#1
填空题根据假定的条件，判断应该选择哪条途径来执行相应的程序语句序列，这样的程序结构是 【2】 。
填空题设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为 【9】
填空题下面程序的功能是把文件file1.txt中重复的字符去掉后(即若有多个字符相同，则只保留1个)写入文件file2.txt。请填空。
Private Sub Commana1_Click()
Dim inchar As String,temp As String,outchar As String
outchar=""
Open "file1.txt" For Input As #1
Open "file2.txt" For Oulput As{{U}} 【8】 {{/U}}
n=LOF({{U}} 【9】 {{/U}})
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
IfInStr(outchar,temp)={{U}} 【10】 {{/U}} Then
outchar=outchar & temp
End If
Next k
Ptint #2,{{U}} 【11】 {{/U}}
Close #2
Close #1
End Sub
填空题过程(Sub)和函数(Function)二者中，______可以直接返回值。
填空题请定义一个用户自定义类型，类型名为Teacher，有三个成员：教师名(No，长整型)、姓名(name，8个字符组成的字符串)、年龄(age，整型)。类型定义形式为{{U}} 【11】 {{/U}}。
填空题在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程：
Private Sub Command1_Click()
Dim p As Integer
p=m(1)+m(2)+m(3)
Print p
End Sub
Private Function m(n As Integer)As Integer
Static s As Integer
Fork=1 To n
s=s+1
Next
m=s
End Function
运行程序，单击命令按钮Command1后的输出结果为______。
填空题设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As string*20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，
在顺序文件Person.txt中写入一条记录。该操作的事件过程是{{U}} {{U}} {{/U}} {{/U}}。
填空题在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。 Private Sub Form_ Click() Open “C：StuData.txt” For OutPUt As #1 For i=1 To 5 StuNo=InputBox(“请输入学号”) StuName=InputBox(“请输入姓名”) StuEng=Val(InputBox(“请输入英语成绩”)) 【15】 Next i Close #1 End Sub
填空题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：
Private Sub Form_Load()
Show
Textl.Text=""
Text2.Text=""
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer)
Textl.Text=Textl.Text+Chr(KeyCode-4)
End Sub
程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为{{U}} 【11】 {{/U}}。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个a。 例如，a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer,n As Integer, Cout As Integer Dim Sn As Long．Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入a的值：”) (7) Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 (8) Print a．n．Sn End Sub