一、在名称为Form1的窗体上面画一个文本框窗体画一个文本框,名称为Text1,可以多行显示;有一个名称为CD1的通用对话框;还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“打开文件”、“转换”、“存盘”,如图3所示。
命令按钮的功能是 :“打开文件”――弹出打开文件对话框,默认打开文件的类型为“文本文件”。选择考生文件夹下的in2.txt文件后,该文件中的内容显示在Text1中;“转换”――把Text1中的所有小写英文字母转换成大写;“存盘”――把Text1中的内容存入考生文件夹下的out2.dat文件中。
编写的代码如下:
Private Sub C1_Click()
Dim a As String
CD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文件|*.doc"
CD1.FilterIndex = 2
CD1.Action = 1
Open CD1.FileName For Input As #1
Input #1, a
Close #1
Text1.Text = a
End Sub
Private Sub C2_Click()
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub C3_Click()
CD1.FileName = "out2.dat"
CD1.Action = 2
Open CD1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub
这段代码中,为什么菜鸟一运行到这里“open cd1.filename input as #1”就显错误代码62.