填空题有如下程序： Private Sub command1_Click() a=1：b=1 Print"a="；a；"，b="；b Call mult((a)，b) Print "a="；a；"，b=";b 语句 End Sub Sub mult(x，y) K=2 * k y=3 * k Print "x="；x；"，y="；y End Sub 运行后，标有“语句”的Print语句的输出结果是 【12】 。
填空题设有如下程序：
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
以上程序的功能是{{U}} 【10】 {{/U}}。程序进行后，单击窗体，输出结果为{{U}} 【11】 {{/U}}。
填空题启动窗体在 【15】 对话框中指定。
填空题如图2所示的软件系统结构图的宽度为______。
填空题在程序运行期间，增加和删除列表框(或组合框)的方法是Addltem和{{U}} 【6】 {{/U}}。
填空题下面程序的功能是把文件file1.txt中重复字符去掉后(即若干多个字符相同，则只保留一个)写入文件file2.txt。请填空。 Private Sub Command1_Click() Dim inchar As String, temp As String, outchar As String outchar="" Open"filel.txt" For Input As#1 Open"file2.txt" For Input As# (12) n=LOF( (13) ) inchar=Input $ (n，1) For k=1 To n temp=Mid(inchar,k,1) If InStr(outchar, temp)= (14) Then outchar=outchar＆temp End If Next k Print #2， (15) Close#2 Close#1 End Sub
填空题阅读程序： Sub p(b( ) As Integer) For i=1 To 4 b(i)=2*i Next i End 5ub Private Sub Command1_C1ick( ) Dima(1 To 4)As InteSer a(1)=5 a(2)=6 a(3)=7 a(4)=8 caU p(a) For i=1 To 4 Pdnt a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为【15】。
填空题阅读以下程序： Private Sub Form_click() Dim k,n,m As integer n=10 m=1 k=1 Do While k＜=n m=m+2 k=k+1 Loop Print m End Sub 单击窗体程序的执行结果是 【10】 。
填空题数据库逻辑结构在计算机存储空间中的存放形式称为数据的{{U}} {{U}} {{/U}} {{/U}}。
填空题语句FontSize=FontSize*2的功能是______。
填空题假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer Cis Print"Mousepointer Property is now:;X Forml 【12】 =x X=K+1 If x=15 Then x=0 End Sub
填空题试的目的是暴露错误，评价程序的可靠性；而【 】的目的是发现错误的位置并改正错误。
填空题在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，请填空。 Private Sub Form_Load( ) List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click( ) Dim L1 As Integer L1= (12) If L1＞=0 Then List1.RemoveItem (13) Labe11.Caption= (14) Else MsgBox"请选择要删除的项目” End If End Sub
填空题文件根据数据性质，可分为 【12】 文件和 【13】 文件。
填空题在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim arr()As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为{{U}} 【10】 {{/U}}。
填空题采用结构化程序设计方法能够使程序易读、易理解、{{U}} 【2】 {{/U}}和结构良好。
填空题为了使标签能自动调整大小以显示全部文本内容，应将标签的{{U}} 【10】 {{/U}}属性设置为True。
填空题为了建立窗体的Click事件过程，即Form_Click，应先在代码窗口的 【6】 栏中选择Form，然后在 【7】 栏中选择Click。
填空题下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值。请完善下列程序。
Function SumD(n As Integer)As Single
s=1
i=1
Do
i=i+1
S=S+1/i
Loop Until ______
SumD=s
End Function
Private Sub Form_Click
____
sum1=SumD(100)
Print "sum1=" : sum1
End Sub
填空题工程中有Form1和Form2两个窗体。Form1窗体外观如图5所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Command1)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图6所示。如果单击命令按钮，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。PrivateSubCommand1_Click()IfText1.Text=""ThenMsgbox"请输入半径!"ElseIfNotIsNumeric((6))ThenMsgBox"请输入数值数据!"Elser=Val((7))Form2.Show(8).Print"圆的面积是"&3.14*r*rEndIfEndSub