单项选择题

某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中
　　Private Sub Comand1_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

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

单项选择题
下面程序运行时，若输入395，则输出结果是（） Private Sub Comand1_Click() Dim x% x=InputBox( 请输入一个3位整数 ) Print x Mod 10,x 100,(x Mod 100) 10 End Sub

A．3 9 5
B．5 3 9
C．5 9 3
D．3 5 9
单项选择题
若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type rec Code As Integer Caption As String End Type Dim arr(5) As rec 则下面的输出语句中正确的是（）

A．Print arr.Code(2),arr.Caption(2)
B．Print arr.Code,arr.Caption
C．Print arr(2).Code,arr(2).Caption
D．Print Code(2),Caption(2)
相关试题