2. 计算机
  3. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Type Record 　　ID As Integer 　　Name As String * 20 End Type Private Sub Command1_Click()

在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Type Record 　　ID As Integer 　　Name As String * 20 End Type Private Sub Command1_Click()

admin2015-08-28  25
问题 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
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
　　MaxSize＝LOF(1)
　　For NextChar＝MaxSize To 1 Step－1
　　　　MyChar＝Input(1， #1)
　　Next NextChar
　　Print EOF(1)
　　Close #1
End Sub
运行程序，单击命令按钮，其输出结果为(　　)。
选项 A、True
B、False
C、0
D、Null
答案A
解析 程序中以顺序输入方式打开d：\temp\female.txt文件。Lof函数取得打开文件的长度。EOF函数用来测试文件的结束状态。根据文件长度值，利用Input函数逐一取出文件中的字符，每读取一个字符，文件指针自动下移，指向下一个字符。当执行最后一次循环时，Input函数读取了最后一个字符，文件指针再向下移动就会指向文件的结尾。因此当EOF函数测试文件结束状态时，就会返回True。对于逻辑值，Print语句会直接输出"True"。因此答案为A。
转载请注明原文地址:https://kaotiyun.com/show/DpQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)