单项选择题

以下程序的功能是：把父目录下顺序文件smtext1.txt的内容读入内存，并在文本框Text3中显示出来。请选择适合横线处的语句( )。
Private Sub Command1_Click()
Dim inData As String
Text3.Text=""
Open "..\smtext1.txt"As#1
Do While
Input #1.inData
Text3.Text=Text3.Text & inData
Loop
Close #1
End Sub

A．For Input Not EOF(1)
B．For Output EOF(1)
C．For Append Not EOF(1)
D．For Random EOF(1)

<上一题目录下一题>

热门试题

单项选择题

为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click() a%=10:b%=20 Call swap(a,B) Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是( )。

A．调用swap过程的语句错误，应改为：Call swap a,b
B．输出语句错误，应改为：Print "a","b"
C．过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer)
D．swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

单项选择题

下列程序的功能是调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击“确定”按钮退出对话框，则文本框中将发生哪些变化( )。 Private Sub Command1_Click() CommonDialog1.CancelError=True CommonDialog1.Flags=3 On Error Resume Next CommonDialog1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.FontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.FontItalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.ForeColor=CommonDialog1.Color End Sub

A．Text1的文字下划线发生变化
B．Text1的字体发生变化
C．Text1的字体和颜色发生变化
D．程序出错

相关试题