单项选择题

在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click( ) Dim MaxSize, NextChar, MyChar Open "d:\vb\tt. txt" For Input As #1 MaxSize = LOF(1) For NextChar = MaxSize To 1 Step - 1 Seek # 1, NextChar MyChar = Input(1, # 1) Next NextChar Print EOF(1) Close $1 End Sub 假设文件d:\vb\tt. txt 的内容为 Hello eveybody! 那么程序运行后，单击命令按钮，其输出结果为 ______。

A．True
B．False
C．0
D．Null

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load( ) Show Text1. Text = Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _ As Single) Print 程序设计 End Sub Private Sub Text1_Ke!tDown(KeyCode As Integer,Shift As Integer) Print Visual Basic ; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。

A．Visual Basic
B．程序设计
C．A程序设计
D．Visual Basic程序设计

单项选择题

对窗体编写如下代码，当程序运行后，按回车键，输出结果为 ______。 Option Base 1 Private Sub Form KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = all) m2= 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i)＞m1 Then m1 = a(j) m2= i End If Next i End If Print m1 Print m2 End Sub

A．48 4
B．237 1
C．498 5
D．498 4

相关试题