填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num．txt中，请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open"Num．txt"For Output As #1
For i=1 To 8
{{U}} 【15】 {{/U}}
Next i
Close #1
End Sub
填空题下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If 【11】 Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【12】 Else prime=False End If End Function
填空题一个变量未被显示定义，末尾也没有类型说明符，则该变量的隐含类型是上______类型。
填空题下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。PrivateSubCommand1_Click()DimxAsLong，yAsLong，iAsLongx=Val(Text1．Text)y=Val(Text2．Text)Text3．Text=Str(【13】)EndSubFunctionfun1(aAsLong，bAsLong)AsLongDimrAsLongDimtAsLongIf【14】Thent=aa=bb=tEndIfr=aModbDoWhiler＜＞0a=bb=rr=aModbLoop【15】EndFunction
填空题在Visual FoxPro中，如果要改变表单上表格对象中当前显示的列数，应设置表格的【10】属性值。
填空题在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的
MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click()
Open"d:/test/smText1.txt"For Input As #1
Do While Not{{U}} 【14】 {{/U}}
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:/test/smtext2.txt"For Output As #1
Print #1,{{U}} 【15】 {{/U}}
Close #1
End Sub
上述程序的功能是，把磁盘文件smText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
填空题窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击"打开"菜单项，则执行打开文件的操作，当选定了文件(例如，E:/VB/2010-9/in.txt)并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。标题名称内缩索引可见文件file无无Ture打开mnuOpen无Ture关闭mnuClose无Ture—mnu无Ture(空)FName无False以下是单击"打开"菜单项的事件过程，请填空。DimmnuCounterAsintegerPrivateSubmnuOpen_Click()CD1.ShowOpenIfCD1.FileName＜＞""ThenOpen(14)ForInputas#1mnuCounter=mnuCounter+1LoadFName(mnuCounter)FName(mnuCounter).Caption=CD1.FileNameFName(mnuCounter).(15)=TrueClose#1EndIfEndSub
填空题为了增加内存空间的利用率和减少溢出的可能性，由两个栈共享一片连续的内存空间时，应将两栈的栈底分设在这片内存空间的两端。这样，只有当两个栈的{{U}} 【1】 {{/U}}在栈空间的某一位置相遇时，才产生上溢。
填空题下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的data.txt文件中。请填空。
Private Sub Command1_Click()
Dim a As Integer
Open{{U}} 【9】 {{/U}}For Output As #100
Randomize
For i =1 To 10
a=100+Int(899*Rnd)
{{U}} 【10】 {{/U}}
Next i
Close #100
End Sub
填空题要求打开随机文件“C:/Example.txt”文件，文件号为1。实现的语句是______。
填空题在程序中添加一个命令按钮，并编写如下代码。己知程序的运行结果为如下矩阵，请在[10]和[11]处填上正确答案使程序完整。1000011001101001
填空题下列程序为求Sn=a+aa+aaa+……+aa…a(n个a)，其中a为一个随机数产生的1～9(包括1、 9)中的一个正整数，n是一个随机数产生的5～10(包括5、10)中的一个正整数，请在空格处填入适当的内容，将程序补充完整。 Private Sub Form_CUCk() Dima As Integer,n As Intege,S As Double，Sn As Double a=Fix(9*Rnd)+1 n=Pix(6*Rnd)+5 Sn=0 S=0 Fori=1 To [5] S=S+a*10^(i-1) [6] PrintSn Nexti End Sub
填空题在面向对象方法中，类之间共享属性和操作的机制称为 【2】 。
填空题算法的工作量大小和实现算法所需的存储单元多少分别称为算法的 【1】 。
填空题假设有如下事件过程：
Private Sub Command1_Click()
msg1$="Are You Continue to?"
msg2$="Open The Books"
r=MsgBox(msg1$，34，msg2$)
End Sub
运行该程序后，所出现的对话框的标题是{{U}} 【16】 {{/U}}。
填空题下列表式有错误，正确的写法应该是 【6】 。 [(a+B) +c]/80-5÷(d+e)
填空题运行下列程序：
Dim t As Integer
Private Sub Form_Click()
t = 2
x=Val(InputBox("输入一个整数5"))
Print funl(x); t
End Sub
Private Function fun1(y)
If y＞0 Then
fun1 = 1： t=10
Else If y=0 Then
fun1 = 0： t=20
Else
fun1 = -1： t=30
End If
End Function
从键盘为变量x输入数据5，输出的结果是{{U}} 【8】 {{/U}}。
填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single，y As Single Open "NM1.txt" For Input As#1 Open "NM2.txt" For Input As#2 Do While Not EOF(1) [14] Print x y=x^2 [15] Print y Loop Close #1，#2 End Sub
填空题建立随机文件Workers．dat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。
Type Worker
name As String*8
number As Integer
End Type
Open"e:/Workers．dat"For Random As #1 Len=Len(Workerl)
Workerl．name="zn"：Worker1．number=100#
【 】
Close #1
Open"Workers．dat"For Random As #1 Len=Len(Worker1)
【 】
Print"Worker1："，Worker1．name
Print "Worker1："，Worker1．number
Close #1
填空题数据库系统的三级模式分别为 【4】 模式、内部级模式与外部级模拟。