建立一个文本文件，输入一段短文，编写一个程序，统计文件中字符的个数，并将结果写入另一个文件

在窗体上画一个文本框，名称为Textl，然后编写如下程序：

Private Sub Form_Load()

Open”d：＼temp＼dat．txt”For Output As1

Textl．Text=“”

End Sub

Private Sub Textl KeyPress(KeyAscii As Integer)

IfKeyAscii=13 Then

If UCase(Textl．Text)=【 】Then

Close1

End

Else

Write1，【 】

Textl．Text=…

End If

End If

End SUb

以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。

（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：

Private Sub Form_Load()

Open "d:\temp\dat.txt" For Output As #1

Text1.Text=""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

If UCase(Text1.Text)= 【14】 Then

Close #1

End

Else

Write #1, 【15】

Text1.Text=""

End If

End If

End Sub

以上程序的功能是：在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按

回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入

文件，直接结束程序。请填空。

A. 打开一个已存在的二进制文件，只能读取数据

B. 打开一个文本文件，只能写入数据

C. 打开一个已存在的文本文件，只能读取数据

D. 打开一个二进制文件，只能写入数据

函数calculate ,统计这个字符串中的数字字符、小写英文字符、大写英文字符、其它字符的个数; 3、 编写一个函数del ,找出该字符串中所有英文字符,组成一个新的字符串; 4、 编写一个output函数 ,将要求2中的统计结果和要求3中新产生的字符串输出。 5、在main函数中调用上述自己编写的函数:input, calculate、del、output。使程序能正常运行

A.打开一个已存在的二进制文件，只能读取数据

B.打开一个文本文件，只能写入数据

C.打开一个文本文件，只能写入数据

D.打开一个二进制文件，只能写入数据

用SQL语句查询课程成绩在60分以上的学生姓名，并将结果按姓名降序存入表文件res.dbf中。

(2)编写my.prg程序，实现的功能：先为“学生成绩”表增加一个“学生平均成绩”字段，类型为 N(6，2)，根据“学生选课”表统计每个学生的平均成绩，并写入“学生成绩”表新的字段中。