填空题

以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框 Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Textl.Text=" "
Open ".\smtext1.______ As #1
Do While ______
Input #1，inData
Text1.Text=Text1.Text&inData
Loop
Close #1
End Sub

【参考答案】

For Input
Not EOF(1)
<上一题 目录 下一题>
热门 试题

填空题
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如图所示。请填空。 Private Sub Commandl_Click() Dim k As Integer Dim sum As Single， max； As Single， min As Single sum=Text1(0) max=Text1(0) min= _____ For k= ______ To 6 If max＜Text1(k) Then max = Text1(k) End If If min＞Texl(k) Then min = Text1(k) End If sum=sum+Text1(k) Next k Text2= (______) 5 End Sub
单项选择题
有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click() total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total＞=10 Then Exit Do End If Loop While Counter＜=10 End Sub
A．5
B．10
C．12
D．20
相关试题