填空题

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

【参考答案】

[13]Input[14]Not EOF(10)[15]Print #20，Ch
<上一题 目录 下一题>
热门 试题

填空题
下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If 【11】 Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【12】 Else prime=False End If End Function
填空题
设C盘根目录下有一文件名为“a1.txt”，若该文件还没有打开，现在要知道它的长度，可使用命令 【6】 。
相关试题