填空题下列程序的功能是计算两个自然数的最大公约数，如图1所示。给定的程序不完整，将程序补充完整。PrivateSubCommand1_Click() DimxAsLong，yAsLong，iAsLong x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=Str((13))EndSubFunctionfun1(aAsLong，bAsLong)AsLong DimrAsLong DimtAsLong If(14)Then t=a a=b b=t EndIf r=aModb DoWhiler＜＞0 a=b b=r r=aModb Loop (15)EndFunction
填空题用二维表结构表示实体以及实体间联系的数据模型称为{{U}} 【5】 {{/U}}数据模型。
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和 Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。 Private Sub Command1_Click() 【14】 Form1 Form2. 【15】 End Sub
填空题下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2，如3和5，11和13等，请填空。 Private Sub Form_Click() Dim i As Integer For i=3 To 97 Step 2 If 【14】 Then Print i，i+2 End If Next i End Sub Public Function prime(ByVal n As Integer)As Boolean Dim i As Integer For i=2 To n-1 If 【15】 Then Exit For End If Next i If i=n Then prime=True Else prime=False End If
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是{{U}} 【3】 {{/U}}。
填空题表达式Fix(-48.65)+Int(-52.15)的值是 【6】 。
填空题下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输f“文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=1Val(Text1. Text) If______Then Print x Else ______ Text1.Text="" End If End Sub
填空题执行以下程序段，并输入1.23，则程序的输出结果应是 【15】 。 N=Str(InputBox(“请输入一个实数：”)) p=IiaStr(N，".") Print Mid(N，p)
填空题执行下面的程序段后，s的值为______。
s=5
For i=2.6 To 4.9 Step 0.6
s=s+1
Next i
填空题有下面一个程序段，从文本框中输入数据，如果该数据满足条件“除以4余1，除以5余2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click() x=Va1(Text1.Text) If (14) Then Print X Else Text1.Text=“” (15) End If End Sub
填空题阅读程序：
Private Sub Form_Click()
msg 1$＝"继续吗?"
msg 2$="操作对话框"
r＝MsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$)
End Sub
程序运行后，单击窗体，将产生一个信息框。此时如果直接按Enter键，则相当于用鼠标单击信息框中的
________
按钮。
填空题下列程序的功能是，单击命令按钮时随机生成15个100以内的正整数，放到3×5的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。
Option Base 1
Private Sub Command1_Click()
Dim a(1 To 3, 1 To 5) As Integer, n As Integer, m As Integer
Dim maximum As Integer, max n As Integer, max_m As Integer
Randomize
For m=1 To 3
For n = 1 To 5
a(m, n)={{U}} 【3】 {{/U}}
Next n
Next m
maximum＝a(1, 1)
max n=1 : max m=1
For i = 1 To 3
For j=1 To 5
If{{U}} 【4】 {{/U}}Then
maximum=a(i, j)
max m=i
max_n=j
End If
Next j
Next i
Print maximum, max m, max n
End Sub
填空题在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：
Dim Save All As String
Private Sub Commandl_C1iCk()
Text1.Text=Left(UCase(SaveAU)，4)
End Sub
Private Sub Textl_KeyPress(KeyAscii As Intege)
SaveA11=Save All+Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
填空题执行下面的程序段后，b的值为 【6】 。 a=300 b=20 a=a+ b b=a-b a=a-b
填空题控件数组的名字由Name属性指定，而数组中的每个元素由 【7】 属性指定。
填空题当用 【12】 方式打开文件时，如果对文件进行与操作，则写入的数据附加到原来文件的后面。
填空题程序执行结果s的值是 【7】 。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call sub1(i) if i＞4 then i=i mod 2 Print cstr(i) End Sub
填空题如果存在如下过程：
Private Function FMax(a( )As Integer)
Dim First As Integer，Last As Integer，i As Integer
First=LBound(A)
Last=UBound(A)
Max=a(First)
For i=First To Last
If a(i) ＞ Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click( )
ReDim m(1 To 4) As Integer
m(1)=20：m(2)=30：m(3)=50：m(4)=100
c=FMax(m)
Print c
End Sub
单击命令按钮，其输出结果为【 】。
填空题有以下程序： Private Sub Form_Activate() Fori=1 to 3 x=3 For i=i to 2 x=x+6 Next Next Print X End Sub 程序运行后，窗体上显示的结果为______
填空题把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程：
Private Sub Form_Click( )
Open"d：/test/smtext1．txt"For lnput As#1
Text1.Fontsize=14
Text1.FontName=“幼圆”
Do While Not EOF(1)
{{U}}【8】 {{/U}}
whole＄=whole $ aspect $+Chr$(13)+Chr $(10)
Loop
Text1.Text={{U}} 【9】 {{/U}}。
Close
Open"d：/test/smtext2．txt"For Output As#1
Print #1{{U}} 【10】 {{/U}}
Close
End Sub