首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为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()
admin
2018-09-19
21
问题
在窗体上画一个名称为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/pbFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,其功能是:①单击“读数据”按钮,则将考生文件夹下in5.dat文件中的100个正整数读入数组a中,同时在Text1文本框中显示。②单击“分组”按钮,则将数组a中所有是3的倍数的元素存人数组b中,
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click()Fori=1To10Item="Item"&iList1.AddItemItem
通过语句X=InputBox("输入数据","示例","0")对变体类型的变量X输入数据,程序运行后,如果在对话框的输入区中输入数值100并按回车键,则下列叙述中正确的是
如果过程的首行是:PrivateSubproc(xAsControl),则调用此过程时使用的实际参数应该是
结构化程序设计中,下面对goto语句使用描述正确的是
某二叉树共有12个结点,其中叶子结点只有1个。则该二叉树的深度为(根结点在第1层)
若要把一个窗体从内存中删除,应该使用的方法是
在数据库设计中,描述数据间内在语义联系得到E-R图的过程属于
下面描述中不属于数据库系统特点的是
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load() Shape1.Top=0 Timer1.Interval=100
随机试题
屈原整合楚地歌谣,开创出的新诗体是()
在确定因果关系的标准中必不可少的标准是
A.槟榔B.榧子C.芦荟D.鹤虱E.花椒
不属于建设工程施工劳务分包合同中关于劳务报酬采用的方式的是()。
经营者应当向消费者提供有关商品或服务的真实信息,不得作()。
2015年中国公民黄某在韩国取得劳务报酬收入40000元,按该国税法规定缴纳了个人所得税6500元;取得偶然所得10000元,按该国税法规定缴纳了个人所得税3000元。回国后,黄某应缴纳个人所得税()元。
下列行为中属于民事代理的是()。
唐朝时期,马可.波罗来到中国,他的《马可.波罗游记》激发了欧洲人对东方的向往。()
下列关于栈的叙述正确的是
Whydon’tpeoplejustsaywhattheymean?Thereasonisthatconversationalpartnersarenotmodemsdownloadinginformationin
最新回复
(
0
)