填空题

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt，复制到 D盘，并取名为a2.txt。
Private Sub Form_Click()
Dim Ch As String
Open "c:\a1.txt" For 【8】 As #10
Open "d:\a2.txt" For Output As #20
Do While 【9】
Line Input #10, Ch
【10】
Loop
Close #10
Close #20
End Sub

【参考答案】

Input Not EOF(10) Print #20
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click () n = 6 f = 1 s = 0 For i = 1 To n f = 【4】 s = s + f Next Print s End Sub 该事件过程的功能是计算s=1+1 2+1 3+…+1 n的值。请填空。
填空题
在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer, y As Integer) As Integer M = IIf(x＞y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2 b = 5 Print M(a, b) End Sub 程序运行后，单击命令按钮，输出结果为 【5】 。
相关试题