填空题设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As string*20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，
在顺序文件Person.txt中写入一条记录。该操作的事件过程是{{U}} {{U}} {{/U}} {{/U}}。
填空题在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。 Private Sub Form_ Click() Open “C：StuData.txt” For OutPUt As #1 For i=1 To 5 StuNo=InputBox(“请输入学号”) StuName=InputBox(“请输入姓名”) StuEng=Val(InputBox(“请输入英语成绩”)) 【15】 Next i Close #1 End Sub
填空题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：
Private Sub Form_Load()
Show
Textl.Text=""
Text2.Text=""
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Integer)
Textl.Text=Textl.Text+Chr(KeyCode-4)
End Sub
程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为{{U}} 【11】 {{/U}}。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个a。 例如，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的值：”) (7) Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 (8) Print a．n．Sn End Sub
填空题执行语句Print”25+32＝”，25+32的输出结果是{{U}} 【6】 {{/U}}。
填空题下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR( )
Randomize
Dim a
For j=1 To 10
a(i)=Int( 【 】 )
If 【 】Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAseii As Integer)
Print KeyAscii
End Sub
程序运行后，如果将CapsLock 键锁定在大写的状态，这时按下A键时，则：在窗体上输出的输出结果为{{U}} 【10】 {{/U}}和{{U}} 【11】 {{/U}}。
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form{{U}} 【7】 {{/U}}(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
{{U}} 【8】 {{/U}}mnuEdit
End If
End Sub
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() x=1 Result=1 While x＜=10 Result=______ x=x+1 Wend Print Result End Sub 上述事件过程用来计算10的阶乘。请填空。
填空题数学不等式a≤x＜b的VB表达式为{{U}} 【9】 {{/U}}。条件4＜|x|≤6的VB表达式为{{U}} 【10】 {{/U}}。
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Fonn2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click() ______Form1 Form2.______ End Sub
填空题算法的基本特征是可行性、确定性、{{U}} 【1】 {{/U}}和拥有足够的‘隋报。
填空题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1_Click() Dim inData As String Text1. Text="" Open "d: /myfile. txt "For______As #1 Do While ______ Input # 1，inData Text1. Text=Text1. Text+inData Loop Close #1 End Sub 程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。
填空题有如下SUB过程： Sub s(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Form_Click() Dim a As Single Dim b As Single a=5 b=4 s a,b Print a,b End Sub 则程序运行后，单击命令按钮，输出的结果为______。
填空题在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。 PrivateSubCombo1_Click( ) CallShowItem(Combo1,Label1) EndSub PrivateSubCombo2_Click________ CallShowItem(Combo2,Label2) EndSub PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel) ________.Caption=________.Text EndSub
填空题下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。
Function SumF(n As Integer)As Single
s = 0
For i=1 To n
s={{U}} 【12】 {{/U}}
Next i
SumF=s
End Function
Private Sub Form_Click()
Sum1=SumF(100)
Print
Print"sum1="； sum1
End Sub
填空题假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为{{U}} 【6】 {{/U}}。
填空题阅读下面的程序： Private Sub Form_Click( ) Dim Check As Boolean，Counter As Integer Check=Tree Counter=5 DO DO While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End if Loop Loop Until Check=False Print Counter End Sub 程序运行后，单击窗体，输出结果为 【9】 。
填空题在代码窗口对窗体的BorderStyle、MaxBuaon属性进行了设置，但运行后没有效果的原因是这些属性______。
填空题在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change()
Picturel.Print"VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是 ______，而在图片框中显示的内容是 ______。