首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
admin
2017-08-22
76
问题
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序( )。
Private Type student
StuName As String*10
StuGrade As String*10
StuAge As Integer
End Type
Privme Sub Form_Click()
Dim s As student
Open"c:Mtudent.txt"For Random As #1
Len=Len(s)
For i=l To 5
s.StuName=InputBox("请输入姓名")
s.StuGrade=InputBox("请输入年级号")
s.StuAge=Val(1nputBox("请输入年龄"))
____________
Next i
Close #1
End Sub
选项
A、Print #1,s
B、Print #1,i
C、Put #1,,s
D、Put#1,,i
答案
C
解析
本题考查文件操作。题目中要求以随机的方式(Random)打开一个文件,打开文件的格式为:Open FileName For Random As #文件号[Len=记录长度],然后以Put命令写入一条记录,格式为:Put[#]文件号,[记录号],变量名。若省略记录号,表示在当前记录号下写入记录型变量,逗号(,)不可以省略。
转载请注明原文地址:https://kaotiyun.com/show/rtGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:PrivateSubCommandl一Click()x!==Val(Textl.Text)SelectCasexCas
下列程序段的执行结果为______。K=0ForI=1To3A=I^I^KPrintA;NextI
下列叙述中正确的是______。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)M=пf(x>y,x,y)EndFunctionPrivateSub
下列叙述中,正确的是______。
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
以下叙述不正确的是______。
下列程序实现的功能是:当在窗体上单击时,将输出a1.txt文件中的数字字符的个数。PrivateSubform_Click()DimChAsString*1DimnAsIntegerOpen"c:\a1.txt"for
在一个容量为32的循环队列中,若头指针front=3,尾指针rear=2,则该循环队列中共有______个元素。
随机试题
(2012年04月,2008年04月)_________是最古老也最常见的市场营销组织形式。它强调市场营销各种职能如销售、广告和调研等的重要性。它把销售职能当成市场营销的重点。
转移癌最常转移的部位是
A、氢氧化钙糊剂B、氧化锌丁香油糊剂C、聚羧酸水门汀D、甲醛甲酚E、磷酸水门汀乳牙深龋去净腐质选择垫底药物
中国药典中,检查维生素E的生育酚杂质所采用的检查方法是
荆防颗粒的功能主治是
对于表示不同的内容的图线,其宽度6(也称为线宽),应在0.16~3.00mm线宽组中选取,由于工程图纸之间的差异较大,要根据图样的复杂程度、比例大小和线条密度来确定基本线条的宽度,并由粗、中、细线条组成线条组。()
下列()建筑、场地和设备,属于军事设施。
海关最基本的任务是(),海关的其他任务都在该工作的基础上进行。
癞皮病是由于缺乏()。
A、Delightful.B、Meaningless.C、Terrible.D、Cruel.A
最新回复
(
0
)