填空题

下列程序的功能是：将数据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

<上一题目录下一题>

热门试题

填空题

在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load()Open d: temp dat.txt For Output As #1Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If _________= 13 ThenIf UCase(Text1.Text) = _________ThenClose #1 End Else Write #1, _________Text1.Text = End If End If End Sub以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入 END ，则结束程序。请填空。

填空题

以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。Dim x，amax,amin As Singlex=InputBox( Enter a score )amax=xamin=xDo While【】 If x>amax Thenamax=xEnd IfIf【】Thenamin=xEnd Ifx=InputBox( enter a score )LoopPrint max= ；amax， min= ；amin

相关试题