填空题
以下程序的功能是:将当前目录下的顺序文件mText1.txt的内容读入内存,并在图片框 Picture1中显示出来。请完善程序。 Private Sub Command1_Click() Dim inData As String Open ".\mText1.txt"
【13】
As 1 Do While Not EOF(1) Input #1,inData Picture1.Print inData Loop Close #1 End Sub
【参考答案】
ForInput
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
斐波那契(Fibonacci)数列的构成规律是:数列的第1、2个数是1,从第3个数起,每个数是其前面两个数之和。据此,下面有求斐波那契前12项值的过程,请完善程序。Sub Fibonacci(N As Integer,s1)s1=0f1=1【11】 For i=1 To N 2Print f1;f2;s1=f1+f2f1=f1+f2f2= 【12】 Next iPrintEnd SubPrivate Sub Command1_Click()Dim sum As IntegerCall Fibonacci(12,sum)Print Sum= ;sumEnd Sub
点击查看答案&解析
填空题
在Visual Basic中,用于文件复制的命令是 【10】 。
点击查看答案&解析
相关试题
运行下列程序,单击Command1命令按钮后,...