填空题有如下函数过程。
Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
S=x/y
x=y
y=S
Loop
UNC=x
End Function
以下事件调用该函数，程序运行结果是{{U}} 【7】 {{/U}}。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC(a，b)
Print x
End Sub
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…a，其中最后一项为n个。 例如：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的值:" ) 【9】 Do Tn =Tn * 10 + a Sn = Sn + Tn Cout = Cout + 1 【10】 Debug. Print a, n, Sn End Sub
填空题数据库理论中，数据的独立性一般可分为 【4】 和逻辑独立性。
填空题设有如下程序：
Private Sub search(a()As Variant，ByVal key As Variant，index%)
Dim I%
For i=LBound(A) To UBound(A)
If key=a(I)Then
index=I
Exit Sub
End If
Next I
index=-1
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
程序运行后，输出结果是{{U}} {{U}} {{/U}} {{/U}}。
填空题Visual BASIC应用程序通常由3类模块组成，即窗体模块、______和类模块。
填空题软件测试是由一系列的测试所组成，而其最基本的测试是 【3】 。
填空题与数学表达式cos2(a+b)/3x+5 对应的Visual Basic表达式是【 】。
填空题数据模型通常由3部分组成，它们是{{U}} 【5】 {{/U}}，数据操作和完整性约束。
填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。PrivateSubCommand1_Click________DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=________Fork=________To6IfmaxText1(k)Thenmin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=(________)/5EndSub
填空题假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。
Private Sub Form_Click()
Static x As Integer
Cls
Print"Mousepointer Property is now"；x
Form1.
_________
=x
x=x+1
If x=15 Then x=0
End Sub
填空题在窗体上画一个名称为Label1的标签和一个名称为list1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签kabel1中显示所选中的项目，如图所示。请在【14】和【15】处填入适当内容，将程序补充完整。PrivateSubForm_load()List1.Addltem"北京"List1.Addltem"上海"List1.Addltem"河北"EndSubPrivateSub【14】()Label1.Caption=【15】EndSub
填空题下面的程序执行时，可以从键盘中输入一个正整数，然后把该数的每位数字按逆序输出。例如输入7685，则输出5867，输入1000，则输出0001。请填空。 Private Sub Command1_Click() Dim x As Integer x=InputBox("请输入一个正整数") While x＞______ Print x Mod 10 x=x/10 Wend Print______ End Sub
填空题在结构化分析使用的数据流图(DFD)中，利用______对其中的图形元素进行确切解释。
填空题软件工程学中除软件开发技术需重视外，另一重要组成内容是软件的{{U}} 【3】 {{/U}}。
填空题下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。
请填空。
Sub PrintOutO
Dim aAs Integer
a=MsgBox("输出结果?"，vblnformation+vbYesNo，"提示：")
If a=______Then
Print "Myresult"
EndIf
EndSub
填空题数据元素之间______的整体称为逻辑结构。
填空题运行下列程序：
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，输出的结果是
________
。
填空题窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip。请填空。PrivateSubForm_Load()Picture1.Picture=LoadPieture("c:/MyDocuments/图片/Qian1_Icon02.ico")______EndSubPrivateSubTimer1_Time()Staticx,yAsIntegerx=x+300y=y+300Picture1.Movex,yEndSub
填空题以下程序的功能是将字符串“12345”逆序打印出来。请在画线处填上适当的内容使程序完整。
Function rev(newl)As String b=Mid({{U}} {{U}} 11
{{/U}} {{/U}},1,1) if b=" "then rev="
" else rev=rev(Mid(new 1,2))+{{U}}
{{U}} 12 {{/U}} {{/U}} end if End
Function Private Sub Form_Click()
old="12345" Print old Print rev(old)
End Sub
填空题设有如下程序： Private Sub Form_Click() Dim a As Integer,S As Integer n=8:S=0 Do S=S+n:n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是计算1-8的和。程序运行后，单击窗体，输出结果为 (10) 。