填空题

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

【参考答案】

Print #1，i
<上一题 目录 下一题>
热门 试题

填空题
下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a = Array (678,45,324,528,439,387,87,875,273,823) For i = 【12】 Forj =0 To 9 Ifa (i)＜a(j) Then Tmp = a(i): a(i) = a(j) i a(j) = Tmp End If Next j,i For i = 0 To 9 Print a(i) Next End Sub
填空题
函数Str$(256.36)的值是 【7】 。
相关试题