首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在E盘当前目录文件夹下建立一个名为“Student.txt”,的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程,请选择正确的语句完成程序(
在E盘当前目录文件夹下建立一个名为“Student.txt”,的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程,请选择正确的语句完成程序(
admin
2010-11-20
59
问题
在E盘当前目录文件夹下建立一个名为“Student.txt”,的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程,请选择正确的语句完成程序( )。
Private Type student
StuName As String*10
StuGrade As String*10
StuAge As Integer
End Type
Private Sub Form_Click()
Dim s As student
Open"c:\student.txt"For Random As#1 Len=Len(s)
For i=1 To 1
s.StuName=InputBox("请输入姓名")
s.StuGrade=InputBox("请输入年级号")
s.StuAge=Val(InputBox("请输入年龄"))
______
Next i
Close#1
End Sub
选项
A、Prim#1,s
B、Print#1,1
C、Put#1,,s
D、Put#1,,i
答案
C
解析
本题考查随机文件的读写,在For循环中,向随机文件中写入5个学生的信息,所以应该使用写操作语句,在随机文件中,写操作用Put语句,其格式为:Put#文件号,[记录号],变量。
转载请注明原文地址:https://kaotiyun.com/show/Himp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有数组定义:intMyIntArray[]={10,20,30,40,50,60,70};则执行下面几个语句后的输出结果是【】。ints=0;for(inti=0;i<MyIntArray.length;i++)s+=MyIntArra
下列程序的运行结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){inta=1;intb=1;
下列赋值语句中错误的是
Java源程序文件编译后产生的文件称为字节代码文件,其扩展名为【】。
下列说法中,不属于数据模型所描述的内容的是( )。
键盘键入字符串并在计算机屏幕上显示,这时的数据源是______。
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerFori=1To10a(i)=iNext
假定在窗体(名称为Form1)的代码窗口中定义如下记录类型: PrivateTypeanimal animalNameAsString*20 aColorAsString*10 EndType 在窗体上画一个名称为Command
在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
菜单编辑器可分为3个部分,即数据区、【】和菜单项显示区。
随机试题
治疗瘰疬、瘿瘤,常选用下列何药
关于类风湿皮下结节不正确的是
糖尿病酮症酸中毒的酮体包括
男性,66岁,慢支,肺气肿病史18年,近日呼吸困难加剧,咳嗽,咳痰。今日晨起一阵剧烈咳嗽后觉得喘憋加剧,无法平卧,胸痛剧烈,不敢呼吸。来诊,见其口唇发绀明显,表情痛苦,胸部叩诊呈鼓音
统计学中所说的总体是指
下列各项中,关于相关税金的会计处理正确的有()。
下列画横线成语中,使用正确的有()。
经习近平主席批准,中央军委印发的《加强实战化军事训练暂行规定》强调,()是军事训练的基本要求,是推进训练与实战达到一体化的重要保证,要求全军必须把实战化贯穿渗透于军事训练全过程各领域。
爱国、敬业、诚信、友善,这一价值追求回答了我们要培育什么样的公民的重大问题,是每一个公民都应当遵守的道德规范。爱国、敬业、诚信、友善,涵盖了()
Myfatheriscompletely______aftermovingallfurnituretothenewhomeatthethirdfloor.
最新回复
(
0
)