填空题

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

【参考答案】

Print #1，i

<上一题目录下一题>

热门试题

填空题

在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。Sub SORT( )Dim a(1 To 10)For i=1 To 10a(i)=Val(InputBox( ，，0))Next iFor i=【】 k=iFor j=【】 If a(k)＞a(j)Then 【】 If k＜＞i Thenb＝a(k)a(k)＝a(i)a(i) =bEnd IfNext jNext iFor k=1 To 10Print a(k)Next kEnd Sub

填空题

在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click( )num=Val(Text1．Text)If【】ThenPrint numElseText1．Text= 【】End IfEnd Sub

相关试题