填空题在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form_Click() Open"d:/test/smtext1.txt"For Input As # 1 Do While Not______ Line Input # 1,aspects wholes=wholes+aspects+Chrs(13)+Chrs(10) Loop Text1.Text=wholes ______ Open"d:/test/smtext2,txt"For Output As # 1 Print # 1，______； Close # 1 End Sub 运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.tXt。请填空。
填空题假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click( ) Static x As Integer Cls Print "Mousepointer Property is now "; x Forml. 【12】 =x x=-x+1 If x = 15 Then x = 0 End Sub
填空题在KeyPress事件过程中，KeyAscii是所按键的 【6】 值。
填空题在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click() Dim p As Integer p=m(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer)As Integer Static s As Integer Fork=1 To n s=s+1 Next m=s End Function 运行程序，单击命令按钮Command1后的输出结果为______。
填空题窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对listl中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。PrivateSubForm_Load()Fori=1To100IfiMod7=0Then______EndIfNextEndSubPrivateSubCommand1Click()Sum=0Fori=0To______Sum=Sum+______NextText1：Text=SumEndSub
填空题若要求输入密码时文本框中只显示*号，则应当在此文本框的属性窗口中设置______属性。
填空题 【5】 是数据库应用的核心。
填空题下面程序段的输出结果为 (6) 。 Dim S1(5) As Integer,S2(5) As Integer,S3(5) As Integer N=4 For I=1 To N S1(I)=I L=N+1-I S2(I)=L Next I S3(5)=0 For K=1 To N S3(K)=S1(K)*S2(K) S3(5)=S3(5)+S3(K) Next K Print S1(3); S1(5); S1(2) Print S2(4); S3(1); S3(5)
填空题在Visual FoxPro中释放和关闭表单的方法是【7】。
填空题在窗体上有一个命令按钮，然后编如下事件过程：Function SR( x As Double)As Double Select Case Sgn(x) Case 1 SR=Sqr(x) Exit Function Case 0 SR=0 Case-1 SR=-1 End SelectEnd FunctionPrivate Sub Command1 _ Click( ) Dim Msg，SRN Dim N AS Double N=InputBox("请输入要计算平方根的数") Msg=N&"的平方根" Select Case SR(N) Case 0 Msg=Msg &"是0" Case-1 Msg=Msg&"是一个虚数" Case ElSe Msg=Msg &"是"& SR(N) End Select MsgBox MsgEnd Sub程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是 【15】 。
填空题以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。 Private Sub Form_Click() Dim a(10)As Integer, i AS Integer Randomize i=0 Do num=Int(Rnd*90)+10 For j=1 To i '检查新产生的随机数是否与以前的相同，相同的无效 If num=a(j) Then Exit For End If Next j If j＞i Then i=i+1 a(i)= (10) End If Loop While i＜10 For i=1 To 9 For j= (11) To 10 If a(i)＞a(j)Then temp=a(i): a(i)=a(j): (12) Next j Next i For i=1 To 10 Print a(i) Next i End Sub
填空题符合结构化原则的三种基本控制结构是选择结构、循环结构和 (4) 。
填空题在Visual Basic中，将一个窗体加载到内存进行预处理但不显示所使用的语句是 【7】 。
填空题下列程序用来计算1+2+…n，当和大于100时停止计算，请填空。 Private Sub Form_Click() Dim n as integer，S as integer，I as integer，k as integer s=0 k=0 n=inputbox(”请输入n的值) For i=1 to 100 k=k+1 s=s+1 ______ Next 1 Print s End Sub
填空题下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。 Sub TOF( ) Randomize Dim s As Double Dim a(10) As lnteger For i=0 To 9 【10】 Next For i=0 To 9 If 【11】 Then Print a(i) s=s+a(i) 【12】 Next i Print Print "S=" ; s End Sub
填空题若要求在菜单中包含分隔条，则设计时，在菜单的标题属性中应设置为______。
填空题以下程序段的输出结果是 【14】 。 a=0 : b=0 Do a=a+l b=b+a Print b; if b＞=10 Then Exit Do Loop
填空题下面程序是用来打印九九乘法表的，请填空。 Private Sub Form_Click() Dim flag As Integer,i As Integer,j As Integer,Str1$ Str1＝“” For i＝1 To 9 【11】 For j＝1 To 9 If 【12】 Then str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j)) Else str1＝str1 & Chf(13) Exit For End If Next j Next i Print str1 End Sub
填空题{{U}}【3】 {{/U}}的功能是显示当前过程所有局部变量的当前值。
填空题在Visual Basic的中断模式下，要想“逐语句”调试程序，可按______键；要想“逐过程”调试程序，可按______键。