有一个ylc5.vbp，只有一个窗体Form1，需要创建Form2。在窗体Form1上建立Command1和Command2两个命令

和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。

在用通用对话框的ShowOpen显示“打开”文件对话框时，指定其中的文件类型为文本文件的格式为【 】。

Cmd1和Cmd2，标题分别为“计算”和“存盘”，文本框为空，如图3—1所示。程序的功能是在运行时，单击“计算”命令按钮，系统随机产生20个只有两位数的正整数，将其存入到一个数组中，再将这20个数相加的结果在文本框中显示出来。单击“存盘”命令按钮，将相加的结果存入“out5.txt”文件中。

要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能。

注意：不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的程序以原文件名存盘。

sjt5.frm文件内容如下：

Option Base1

Dim sum As Integer

Private Sub Cmd1_ClickO

Dim art(20)As Integer

'Dim f1 As?

Randomize

arr(1)=Int (Rnd * 90)+10

'sum=?

For i=3 To 20

Do

a=Int(Rnd * 90)+10

'f1=?

For j=1 To i—1

If arr(j)=a Then f1=True:Exit For

Next j

Loop While f1

arr(i)=a

sum=sum+arr(i)

Next i

Text1. Text=sum

End Sub

Private Sub Cmd2_Click()

'Call WriteData(?,sum)

End Sub

Sub WriteData(Filename As String,Num As Integer)

Open App.Path & "\"& Filename For Output As 1

Print 1,Num

Close 1

End Sub

下列表达式有错误，正确的写法应该是【 】。

[(a+B+e]/80-5÷(d+e)

阅读以下程序：

Private Sub Form_click()

Dim k, n, m As integer

n = 20

m = 1

k = 1

Do While k ＜= n

m=m+2

k = k + 1

Loop

Print m

End Sub

单击窗体程序的执行结果是【 】。

表达式Asc(“A”)&Chr(65)的值为【 】。

，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。

Option Base 1

Dim a(3，2，2)As Integer

Private Sub Command1_Click()

For i = 1 To 3

For j=1 To 2

______= i + j

Next j

Next i

End Sub

Private Sub Command2 Click()

For j=1 To 3

For i=1 To 2

s = s + ______

Next i

Next i

Text1.Text=______

End Sub

下面程序运行的结果为

1

11 12

21 22 23

31 32 33 34

请在画线处填上适当的内容使程序完整。

Private Sub Form_Click()

Call [13]

End Sub

Private Sub Pl6()

End Sub

Private Sub p16()

ForI=1 to 4

Forj=1 to I

a= [14]

Print Tab(j-

边一栏显示的是窗体左上角的坐标，右边一栏显示的是窗体的长X宽。