填空题

下列程序的功能是：将数据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
______
Next
Close#1
End Sub

【参考答案】

Print#1，i

<上一题目录下一题>

热门试题

填空题

函数Int(Rnd*10)+10的值的范围是______。

填空题

有如下函数过程： Function gys(By Val x As Integer，By Val y As Integer) As Integer Do While y preminder=x y x=y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是______。 Private Sub Command1_Click() Dim a As Integer，b As Integer a=10:b=2 x=gys(a，b) Print x End Sub

相关试题