填空题

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click()
Open"c：\test.dat"For Output As #1
For I=1 to Len(Text1.text)
______
Next I
Close #1
End Sub

【参考答案】

Print #A,Mid(textA.text,I,A)

<上一题目录下一题>

热门试题

填空题

阅读下面的程序： PriVate Sub Form_C1ick() Dim Check As Booleau，Counter As Integer Check=True Counter=5 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=FalSe EXit Do End If Loop Loop Until Check=FalSe Print Counter End Sub 程序运行后，单击窗体，输出结果为______。

填空题

下面程序代码实现单击命令按钮Command1时输出如下结果： 1 -1 -1 1 1 -1 1 1 1 该程序不完整，请填空。 Private Sub Command1_Click() DimX(3,3) For I=1 To 3 ForJ=1 To 3 If______Then X(I,J)=1 End If If I＜J Then X(I,J)=-1 End If Next J NextI ForI=1 To 3 ForJ=1 To 3 PrintX(I.J)； NextJ Print NeXtI End SUb

相关试题