Question

求助VB，急用

1、 初始窗体上有四个命令按钮两个文本框（如下图）。

要求：
1）建立文件名为“t1.txt”的顺序文件，内容来自文本框Text1。要求：每按一次回车键则将文本框Text1的内容写入文件，并清除文本框Text1的内容，直到文本框Text1内输入“END”字符串(不区分大小写)，关闭文件。
2）单击“复制文件”按钮，则把“t1.txt”的顺序文件的内容全部复制到新文件“t2.txt”中，并给出相应提示。（只能使用一个变量，不能使用控件。）（如下图）
3）单击“合并文件”按钮，则将“t2.txt”内容合并“t1.txt”末尾，给出相应提示。
4）单击“显示”按钮，则把“t1.txt”的内容读出来显示在Text2中。
注意：程序运行过程中，暂时不用的控件要隐藏或不可用(如下图)。

2、 窗体上有五个命令按钮标题分别为“建立文件”、“读取文件”、“计算”、“添加到文件”、“结束”和一个列表框（List1）。要求：

1）单击“建立文件”按钮，则随机产生任意个[100,500]的随机整数，存入数组A中，并把数组A的各元素值（按每行5个元素输出）写入文件MyList.dat中，同时也在窗体中显示出来。（数组的元素个数可通过Inputbox输入）
2）单击“读取文件”按钮，则将文件MyList.dat的数据读出来存放到数组B中，并把数组B中的元素，添加到列表框中。
3) 单击“计算”按钮，则计算并在窗体上输出数组B的最大值和平均值。
4）单击“添加到文件”，则将数组B的最大值和平均值添加到“MyList.dat”的末尾。
5）单击“退出”按钮，则退出应用程序。

Answer 1

这个是求救，这是任务？

Answer 2

VB2010的可以吗？
1）
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If UCase(Replace(Trim(Text1.Text), vbCrLf, "")) <> "END" Then
Open "d:\t1.txt" For Append As #1
Print #1, Text1.Text
Text1.Text = ""
Close #1
Else
Text1.Text = ""
End If
End If
End Sub

Answer 3

我也同求大神，来个脚印下次好找