填空题在E盘当前目录文件夹下建立一个名为“Student．txt''’的顺序文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。
Private Sub Form _ Click( )
【 】
For i=1 To 5
StuName=InputBox("请输入姓名")
StuGrade=InputBox("请输入年级号")
StuAge=InputBox("请输入年龄")
【 】
Next i
【 】
End Sub
填空题能够将文本框控件隐藏起来的属性是______。
填空题有如图7所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框(见图7)。合法编号的组成是：前两个字符是大写英文字母，第三个字符是“-”，后面是数字字符(至少一个)。下面程序可实现此功能，请填空。PrivateSubText1_LostFocus()Dimk%,n%n=Len((13))Fork=1ToIIF(n＞3,n,4)c=Mid(Text1.Text,k,1)SelectCasekCase1,2Ifc＜"A"Orc＞"Z"ThenMsgBox("第"&k&"个字母必须是大写字母!")SetPositionkExitForEndIfCase3Ifc＜＞"-"ThenMsgBox("第"&k&"个字符必须是字符""-""")SetPositionkEndIfCaseElseIfc＜"0"Orc＞"9"ThenMsgBox("第"&k&"个字符必须是数字!")SetPositionkExitForEndIfEndSelectNextkEndSubPrivateSubSetPosition(posAsInteger)Text1.SelStart=pos-1Text1.SelLength=(14)Text1.(15)EndSub
填空题下列程序的输出结果为______。
Sub OnGousbGotoDemo()
Dim Number，MyString
Number=2
On Number GoTo Line1, Line2
Exit Sub
Line 1：
MyString="In Line 1"
Print MyString
Line2：
MyString="In Line2"
Prnt MyString
End Sub
填空题数据库恢复是将数据库从 【4】 状态恢复到某一已知的正确状态。
填空题下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1．txt复制到 D盘，并取名为a2,txt。
Private Sub Form_Click()
Dim Ch As String
Open "c：/a1．txt" For{{U}} 【13】 {{/U}}As #10
Open "d：/a2．txt" For Output As #r20
Do While{{U}} 【14】 {{/U}}
Line Input #10,Ch
{{U}} 【15】 {{/U}}
Loop
Close 10
Close 20
End Sub
填空题本程序的功能是利用随机数函数模拟投币，方法是；每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。PrivateSubCommand1_Click________Radomizen=CInt(Text1．Text)n1=0n2=0Fori=1To________r=Int(Rnd*2)Ifr=________Thenn1=n1+1Elsen2=n2+1EndIfNextNext2．Text=n1Next3．Text=n2EndSub
填空题在程序执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句，这样用户可以在获得系统的控制权后进行其他操作，这个语句是 【7】 。
填空题设有如下表达式：10*x^2+5*x-2*Sin(B)/2，它相当于代数式
________
。
填空题为了把寻个Visual BASIC应用程序装入内存，只要装入{{U}} 【6】 {{/U}}文件即可。
填空题设有如下程序：
Option Base 1
Private Sub Command1_Click() Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = _________
For i = 2 To 8
If arr1(i) < Min Then _________
Next
Print "最小值是："; Min
End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组 中各元素的最小值。请填空。
填空题以下程序段执行后y的值是 【1】 。 x=3.7 y=Int(x+0.6) Print y
填空题在运算过程中，能够使空表与非空表的运算统一的结构是 【1】 。
填空题关系式x≤-5或x≥5所对应的布尔表达式是______。
填空题在打开一个自定义对话框时，可以使用______方法来决定对话框窗体的显示模式。
填空题简述下列程序的功能：______。 Sub Form_Load() Dim d As Date d=Now Weekx=Weekday(d) Weeky=WeekdayName(Weekx) If Weekx=1 Or Weekx=7Then Debug.Print"今天是："; Weeky Debug.Print"今天是休息日!" Else Debug.Print"今天是："; Weeky Debug.Print"今天是工作日!" End If End Sub
填空题设栈的存储空间为S(1:40)，初始状态为bottom=0,top=0。现经过一系列入栈与出栈运算后，top=20，则当前栈中有【 2 】个元素
填空题为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须将该图像框的Stretch属性设置为{{U}} 【11】 {{/U}}。
填空题假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是{{U}} 【11】 {{/U}}。
填空题在Visual FoxPro中为表单指定标题的属性是【13】。