在Visual Basic 中按文件的访问方式不同，可以将文件分为顺序文件，随机文件和【】。

阅读以下程序：

Prlvate 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程序运行后，单击窗体，输出结果为【 】。

菜单项的唯一事件是【 】。

中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Commandl)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。

Private Sub Command1_Click()

IfText1．Text=””Then

MsgBox”请输入半径!”

ElseIf Not IsNumerie(【 】)Then

MsgBox“请输入数值数据!”．

Else

r=Val(【 】)

Form2．Show

【 】．Print”圆的面积是”&3．14”r*r

End If

End Sub

窗体上有名称为Commandl的命令按钮。事件过程及2个雨数过程如下：

Private Sub Commandl_Click()

Dim X As Integer，Y As Integer，z

x=3

Y=5

z=fy(Y)

Print fx(fx(x))，y

End Sub

Function fx(ByVal a As Integer)

a=a+a

fx=a

End Function

Function fy(ByRef a As Integer)

a=a+a

fy=a

End nlnction

运行程序，并单击命令按钮，则窗体上显示的2个值依次是【 】和【 】。

到A(10)依次赋给B(1，1)到B(1，10)，把A(11)到A(20)依次赋给

B(2，1)到B(2，10)，……，把A(91)到A(100)依次赋给B(10，1)到B(10，10)。请填空。

Option Base 1

Private Sub Form_Click()

Dim i As Integer，j As Integer

Dim A(1 To 100)As Integer

Dim B(1 To 10,1 To 10)As Integer

For i=1 To 100

A(i)=Int(Rnd*100)

Next i

For i=1 To【 】

For j＝1 To【 】

B(i,j)＝【 】

Print B(i,j)；

Next j

Print

Next i

End Sub

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1，标题为“计算”的命令按钮(如图2—1所示)。程序运行后，单击“计算”命令按钮，通过在对话框输入整数10，放入整形变量a中，然后计算a!，(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件out3.txt中。在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。

2．在名称为Form1的窗体上画一个驱动器列表框，其名称为Driver1，再画一个目录列表框，其名称为Dir1；然后添加一个文件列表框，名称为File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为exe的文件；如果双击文件列表框中的文件，则执行该文件(如图2—2所示)。程序中不得使用任何变量。已知；可以用Shell函数来运行可执行文件。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

若A＝20，B＝80，C＝70，D＝30，则表达式A+B＞160 Or(B * C＞200 And Not D ＞60)的值是【 】。

在属性窗口中为对象设置属性值，应在程序的【 】阶段进行。