填空题

以下程序的功能是：将当前目录下的顺序文件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
<上一题 目录 下一题>
热门 试题

填空题
运行下列程序，单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是 【14】 和 【15】 。 Private Sub Command1_Click() t=1:x=2:y=3:z=4 If t＞0 Or t=x And x ＜＞ y Or y＞z Then t=fun1(t，z) Print t Else t = fun1(x, y) Print t End If Print x Print y End Sub Function funl(ByVal x As Integer, ByVal y As Integer)As Integer Do While y ＜＞ 0 t=x y x=y y = t Loop fun1 = x End Function
填空题
斐波那契(Fibonacci)数列的构成规律是：数列的第1、2个数是1，从第3个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前12项值的过程，请完善程序。 Sub Fibonacci(N As Integer，s1) s1=0 f1=1 【11】 For i=1 To N 2 Print f1；f2； s1=f1+f2 f1=f1+f2 f2= 【12】 Next i Print End Sub Private Sub Command1_Click() Dim sum As Integer Call Fibonacci(12，sum) Print Sum= ；sum End Sub
相关试题