填空题

列程序的功能是将数据1，2，…，10写入顺序文件Base.txt中，请填空。
Private Sub Form_Click()
Dim i As Integer
Open (13) As#1
For i=1 To 10
Print #1, i
Next
Close#1
End Sub

【参考答案】

"Base.txt" For Output
<上一题 目录 下一题>
热门 试题

填空题
有一个事件过程，其功能是从已存在于磁盘D上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single,y As Single Open D: NM1.txt For Input As#1 Open D: NM2.txt For Input As#2 Do While Not EOF(1) (11) Print x y=x＾2 (12) Print y Loop Close#1, #2 End Sub
填空题
下面程序运行后，单击命令按钮，输出的结果是 (10) 。 Private Sub Command1_Click() Dim a%(1 To 5),1%,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
相关试题