Question

请VB中真正的高手帮忙解答一下！先谢谢啦！

三．综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Text1，可多行显示；有一个名称为CD1的通用对话框；还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“打开文件”、“转换”、“存盘”，如图所示。
命令按钮的功能是：“打开文件”——弹出打开文件对话框，默认打开文件类型为“文本文件”。选择考生文件夹下的in5. txt文件后，该文件中的内容显示在Text1中；“转换”——把Text1中的所有小写英文字母转换成大写；“存盘”--把Text1中的内容存入考生文件夹下的out5. dat文件中。在窗体中已经给出了部分程序，要求：
1） 请去掉程序中的注释符，把程序中的？改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。
2） 编写“转换” 按钮的Click事件过程。最后把修改后文件按原文件名存盘。
注意：
考生不得修改已有的程序和控件的属性。必须对考生文件夹下的in5. txt文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的out5. dat文件中，否则无成绩。

Private Sub C1_Click()
Dim a As String
CD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文件|*.doc"
' CD1.FilterIndex = ?
CD1.FilterIndex = 2
CD1.Action = 1
Open CD1.FileName For Input As #1
Input #1, a
Close #1
' Text1.Text = ?
Text1.Text = a
End Sub

Private Sub C2_Click()
Text1.Text = UCase(Text1.Text)
End Sub

Private Sub C3_Click()
CD1.FileName = "out5.dat"
' CD1.Action = ?
CD1.Action = 2
Open CD1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Answer 1

你已经完成了所有的内容，只需把以“'”开头的行删除即可。

追问

以“'”开头的行后面都有问号没有补全呢！！！

追答

以“'”开头的行，上面或下面已经是答案了。