单项选择题

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.tXt文件中：
Private Sub Command1_Click()
Open"out.txt"For Output As # 2
Print"Text1"
Close # 2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是( )

A．把Print"Text1"改为Print # 2,Text1
B．把Print"Text1"改为Print Text1
C．把Print"Text1"改为Write"Text1"
D．把所有#2改为#1

<上一题目录下一题>

热门试题

单项选择题

窗体上有一个名为Command1的命令按钮．并有下面的程序： Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next k prog arr() For k=1 To 5 Print arr(k); Next k End Sub Sub prog(a()As Integer) n=UBound(a) For i=n To 2 step-1 For j=1 To n-1 if a(j)＜a(j+1) Then t=a(j):a(j)=a(j+1);a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是( )

A．12345
B．54321
C．01234
D．43210

单项选择题

窗体上有List1、List2两个列表框，List1中有若干列表项(见下图)，并有下面的程序： Private Sub Command1_Click() For k=List1.ListCout-1 To 0 SteD-1 If List1.Selected(k)Then List2.Addltem List1.List(k) List1.Removeltem k End If Next k End Sub 程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是( )

A．在List2中插入了“外语”、“物理”两项
B．在List1中删除了“外语”、“物理”两项
C．同时产生A和B的结果
D．把List1中最后1个列表项删除并插入到List2中

相关试题