填空题运行下列程序，单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是
________
和
________
。
Private Sub Command1_Click()
t=1:x=2:y=3:z=4
If t＞0 Or t=x And x ＜＞ y Or y＞z Then
t=fun1(t，z)
Print t
Else
t = fun1(x, y)
Print t
End If
Print x
Print y
End Sub
Function funl(ByVal x As Integer, ByVal y As Integer)As Integer
Do While y ＜＞ 0
t=x/y
x=y
y = t
Loop
fun1 = x
End Function
填空题数据库系统的三级模式分别为 【4】 模式、内部级模式与外部级模式。
填空题从上一题建立的视图中查询使用数量最多的2个零件的信息，应该使用的SQL语句是 SELECT * 【14】2 FROM item-view【15】数量 DESC。
填空题执行下面的程序段后，S的值为 【7】 。 s=5 For i=2.6 To 4.9 Step 0.6 S=S+1 Next i
填空题当执行______ 时，程序将占用全部CPU时间，不允许执行其他事件过程，使系统处于无限循环中，没有任何反应。为此，Visual Basic 提供了一个______ 语句。当执行闲置循环时，可以用它把控制权交给周围环境使用，然后回到原来程序继续执行。
填空题下列程序的功能是：当X＜50时，y=0.8×x；当50≤x≤100时，y:0.7×X；当x＞100时，没有意义。请填空。
Private Sub Commandl_Click() Dim x
As Single x=InputBox("请输入x的值!")
______ Case Is
＜50 Y=0.8*x
Case 50 To 100
Y=0.7*x ______
Print"输入的数据出界!" End Select
Print x，y End Sub
填空题本程序实现文本加密。先给定序列：a1,a2,…,an，它们的取值范围是1～n，且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”，使文本长度为n后再加密。 例如若给定序列a1，a2，…，a7分别为2，5，3，7，6，1，4 当文本为“PROGRAM”时，加密后的文本为“APOMRRG” 当文本为“PROGRAMMlNG”时，加密后的文本为“APOMRRGMING” 当文本为“THANK”时，加密后的文本为“*TA*HKN” 下面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)a1，a2，a3，…的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍放在变量mystr中。请填空。 Option Base 1 Private Sub code(a()As Integer,mystr As String) Dim ch As String，cl As String n=Ubound(a)-Len(mystr) If n＞0 Then mystr＝mystr&string(n,"*") End If ch=mystr For k=______To Ubound(a) c1=Mid(mystr,k,1) n=______ Mid$(ch,n)=c1 Next k mystr=ch End Sub
填空题测试是保证软件质量的重要措施，一般测试过程所产生的文档应包括：测试计划、测试过程和 【4】 。
填空题假定有一个菜单项，名为Menultem，为了在运行时使该菜单项失效(变灰)，应使用的语句为______。
填空题以下程序段中Do...Loop 循环执行的次数为{{U}} 【9】 {{/U}}。程序执行完毕后，n的值为{{U}} 【10】 {{/U}}。
Private Sub Command1_Click()
n =5
Do
If n Mod 2= 0 Then
n =n /2
Else
n =n* 3 + 1
End If
Loop Until n=1
End Sub
填空题下列程序段的运行结果是______。 Dim num As Integer, a As Integer, b As Integer a=88：b=24 Do While b ＜＞0 num=a Mod b a=b b=num Print a Loop
填空题设A=2，B=-2，则表达式A/2+1＞B+5 or B*(-2)=6的值是______。
填空题下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open 【11】 As #1 For i=1 To 10 【12】 Next i Close #1 End Sub
填空题在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change()事件和Dir1_Change()事件，在这两个事件中执行的语句分别是______和______。
填空题在面向对象的程序设计中，类描述的是具有相似性质的一组
________
。
填空题执行下面的程序段后，i的值为 【14】 ，s的值为 【15】 。 s=2 For i=3.2 To 4.9 Step 0.8 s=s+1 Next i
填空题对软件是否能达到用户所期望的要求的测试称为 【3】 。
填空题软件测试分为功能测试和结构测试两类，路径测试是属于 【3】 的一种。
填空题编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。 Private Sub subl(b()As Integer, ByVal n As Integer) Dim i As Integer, j As Integer, t As Integer 【13】 j=n Do While i＜j t=b(i):b(i)=b(j):b(j)=t i=i+1:j=j-1 Loop End Sub Private Sub Command1_Click() Dim a(1 To 10)As Integer, i As Integer Randomize For i=1 To 10 a(i)=Int(100*RnD) +1 Next i For i= 【14】 Print a(i); Next i Print Call 【15】 For i=i To 10 Print a(i); Next i Print n End Sub
填空题软件工程的出现是由于______。