填空题

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

【参考答案】

For Input
<上一题 目录 下一题>
热门 试题

填空题
窗体中有图片框(Picturel)和计时器(Timed)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向下、向右移动100twip。请填空。 Private Sub Form_Load() Prcture1_Picture=LoadPicture( c pic mouth.ico ) ______.Interva=2000 End Sub Prinvate Sub Timer1_Timer() Static x,y As Integer x=x+100 y=y+100 Pictuer1.Move[x，y] End Sub
填空题
执行下列程序，输入数字3，则输出结果为______。 Private Sub Command1_Click() a=inputBox( Input a Number ) If a＞5 Then GoTo L5 Else If a＞2 Then GoTo L2 Else GoTo L3 End If Exit Sub L5: Print a Mod 5 Exit Sub L3: Print a Mod 3 Exit Sub L2： Print a Mod 2 End Sub
相关试题