填空题

下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open "smtext1.txt" 【13】 As 【14】 Do While 【15】 Input #2，inData Text1.Text=Text1.Text & inData Loop Close #2 End Sub

【参考答案】

[13]For Input [14]#2 [15]NOT EOF(2)
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名称为Command1的命令按钮，然后编写下列程序：Option Base_1Private Sub Command1_Click()Dim a(10)As IntegerFor i=1 To 10a(i)=iNextCall swap( 【8】 )For i=1 To 10Print a(i)；NextEnd SubSub swap(b()As Integer)n= 【9】 For i=1 To n 2t=b(i)b(i)=b(n)b(n)=t【10】 NextEnd Sub上述程序的功能是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换， a(2)与a(9)的值互换，……，请填空。
填空题
窗体上命令按钮Commandl的事件过程如下：Private Sub Command1_Click()Dim total As Integertotal=s(1)+s(2)Print totalEnd SubPrivate Function s(m As Integer)As IntegerStatic x As IntegerFor i=1 To mx=x+1Next is=xEnd Function运行程序，第3次单击命令按钮Command1时，输出结果为 【7】 。
相关试题