在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Clic

admin2010-03-30 21

问题在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String * 20 End Type Private Sub Command1_Click() Dim MaxSize，NextChar，MyChar Open"D:\temp\female.txt"For Input As # 1 Max Size=LOF(1) For Next Char=1 To MaxSize Seek # 1，NextChar MyChar=Input(1，# 1) Next NextChar Print EOF(1) Close # 1 End Sub 程序运行后，单击命令按钮，其输出结果为 ______。

选项 A、True
B、False
C、0
D、Null

答案1

解析该程序对指定路径下的文件进行Input操作，由于是遍历整个文件，则最后的EOF(1)必为真。

转载请注明原文地址:https://jikaoti.com/ti/J3q0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类