填空题以下循环的执行次数是 【9】 。 k=0 Do Until k＞=10 k=k+1 Loop
填空题在窗体上画一个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
Open"d:/temp/dat.txt"For Output As#1
Text1.Text:“”
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If
________
=13 Then
If UCase(Text1.Text1=
________
Then
Close#1
End
Else
Write#1，
________
Text1.Text=“”
End If
End If
End Sub
以上程序的功能是，在D盘temp目录建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCⅡ码是13)都把当前文本框中的内容写入文稿件dat.txt,并清除文本框中的内容；如果输入“END”，则结束程序。请将程序补充完整。
填空题在面向对象方法中，类之间共享属性和操作的机制称为{{U}} 【2】 {{/U}}。
填空题数据库管理系统常见的数据模型有层次模型、网状模型和{{U}} 【5】 {{/U}}3种。
填空题要想改变一个窗体的标题内容，则应设置______属性的值。
填空题在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体 隐藏，显示Form2窗体，程序如下，请补充完整。
Private Sub Disp_Click()
Me．Hide
Form2.【 】
End Sub
填空题以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。
Private Sub Cemmand1_Click()
n = InputBox (“请输入一个整数”)
k = Int(Sqr(n))
i = 2
Flag = 0
do while i＜= k And Flag = 0
if{{U}} 【6】 {{/U}} = 0 then
Flag = 1
Else
i= i+ 1
End if
Loop
if{{U}} 【7】 {{/U}}then
MsgBox “这是一个素数!”，vbOKOnly，“提示”
Else
MsgBox “这不是一个素数!”，vbOKOnly，“提示”
End if
End Sub
填空题文件的打开和关闭语句分别是 【10】 和 【11】 。
填空题下列程序的功能是：单击窗体时将随机生成10个0～99之间的随机数，并赋值给数组A，然后利用选择法排序；并把排序后的结果输出。
Private Sub Form_Click()
Dim A(9) As Integer,i As Integer
Dim j As Integer,k As Integer
Randomize
For i=0 To 9
A(i)=Int(100*Rnd)
Next i
For i=0 To 8
k={{U}} 【9】 {{/U}}
For j=i To 9
If(A(k)＞A(j))Then
{{U}} 【10】 {{/U}}
End If
Next j
If k＜＞i Then
t=A(k)：A(k)=A(i)：A(i)=t
End If
Next i
For i=0 To 9
Print A(i)，
Next i
Print
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 max=an(1) For i%=2 to 10 ifan(i%)＞max then max=an(i%) End If Next Print max End Sub
填空题有如下SUB过程： Sub s(x As Single，y As Single) t =x x=t / y Y=t Mod y End Sub在窗体上添加一个命令按纽，然后编写如下事件过程： Private Sub Form_ Click() Dim a As Single Dim b As Single a=5 b=4 s a，b Print a，b End Sub则程序运行后，单击命令按纽，输出的结果为： 【13】 。
填空题关系模型的数据约束通常由3类完整性约束提供支持，以保证数据的一致性和完整性。3类完整性指的是实体完整性、域完整性和{{U}} 【5】 {{/U}}。
填空题下列语句的输出结果是 (8) 。 Print Format$(1258.6, "000,000.00")
填空题软件生命周期一般可以分为以下阶段：问题定义、可行性研究、 【3】 、设计、编码、测试、运行和维护。
填空题窗体、图片框或图像框中的图形通过对象的______属性设置。
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/fun({{U}}【13】{{/U}})/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLongx=1Fork=1Tont=t*kNextfun=tEndFunction
填空题下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。 Option Base 1 Private Sub Form_Click() m=Input Box(“输入行数”):n=InputBox(“输入列数”) [11] a(m,n)AS Integer,b(n,m)AS Integer ForI=1 to m Forj=1 to n a(I,j)=Int(Rnd*90)+10 Next:Next ForI=1 to m Forj=1 to n b(j,1)= [12] Next:Next End Sub
填空题模块级变量的声明关键字是Dim或______。
填空题如果在立即窗口中执行以下操作：
a=8
b=9
print (a＞b);
则输出结果为______。
填空题设有以下程序： Option Base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(12,435,76,24,78,54,866,43) 【14】 = arr1(1) For i = 1 To 8 If arrl(i)＞Max Then 【15】 Next i Print "最大值："； Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。