窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下: Private Sub Command1_Click() Open "c:1.txt" For Input As #1 Open "c:2.txt" For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中,错误的是 ________ 。
举一反三
- 窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下: Private Sub Command1_Click() Open "c:f1.txt" For Input As #1 Open "c:f2.txt" For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中,错误的是 ________ 。
- 窗体上有一个名称为Command1的命令按钮,一个名称为List1的列表框。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open "c:f1.txt" For Input As #1 Do While Not EOF(1) Input #1, str1 List1.AddItem str1 Loop Close End Sub 对于上述程序,以下叙述中错误的是________。
- 窗体上有一个名称为 Command1 的命令按钮。要求编写程序,把文件 f1.txt 的内容写到文件 f2.txt 中,然后将 f1.txt 删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open "c:f1.txt" For Input As #1 Open "c:f2.txt" For Output As #2 Do While Not EOF(2) Line Input #1, str1 Print #2, str1 Loop Close Kill "c:f1.txt" End Sub 该程序运行时发生错误,应该进行的修改是 ________ 。
- 窗体上有一个名为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() i = 0 Do While i < 8 For j = 1 To i n = n + 1 Next i = i + 1 Loop Print n End Sub 运行程序,单击命令按钮,则输出结果是______。
- 在窗体上有一命令按钮Command1,其Click事件代码如下: Private Sub Command1_Click() Dim a%, b%, i%, n% For i = 1 To 10 n = InputBox("请输入一个整数", "输入数据框", 2) If n Mod 2 = 0 Then a = a + 1 Else b = b + 1 End If Next i MsgBox ("运行结果a=" & str(a) & ", b=" & str(b)) End Sub