填空题

下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请将程序补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt"For Output As#1
For i=1 To 8
(11)
Next
Close#1
End Sub

【参考答案】

Print#1，i

<上一题目录下一题>

热门试题

填空题

下列程序运行后的输出结果是 (9) Private Sub f(k,s) s=1 For i=1 To k s=s*i Next End Sub Private Sub Command1_Click() Sum=0 For i=1 To 3 Call f(i,s) Sum=Sum+s Next Print Sum End Sub

填空题

下面程序运行后，单击命令按钮，输出的结果是 (6) 。 Private Sub Command1_Click() Dim aYo(1 To 5)，i%，s# For i=1 To 5 a(i)=i Next s=Fun(A) Print“s=”;s： End Sub Function Fun(a() As Integer) Dim t# .i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next Fun=t End Function

相关试题