首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
admin
2017-03-26
58
问题
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序( )。
Private Type student
StuName As String*10
StuGrade As String*10
StuAge As Integer
End Type
Pfivate Sub Form_Click()
Dim s As student
Open"c:\student.txt"For Random As#1
Len=Len(s)
For i=1To5
s.StuName=InputBox("请输入姓名")
s.StuGrade=InputBox("请输入年级号")
s.StuAge=Val(InputBox("请输入年龄"))
______________
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/Y1Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrirateSubCommand1_Click()s=0Fori=1To13x=i*i-1
如果要改变窗体的标题,需要设置窗体对象的______属性。
以下语句可以实现将文件filename1复制为filename2的是______。
下列程序段的执行结果为______。A=0:B=0ForI=-1To-2Step-1ForJ=1To2B=B+1NextJA=A+1
从键盘上输入一个实数nu,利用字符串函数对该数进行处理,如果输出的内容不是字符End,则程序输出的内容是nu=InputBox("nu=")n$=Str$(nu)p=InStr(n$,".")ifp>0Then
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及经在原来12optionBase1PrivateSubForm_Click()Dimxx=Array(57,-9,17,42,-31,46,11,8,6,
有如下事件过程:PrivateSubForm_Active()DimScore(1to3)AsIntegerDimiAsIntegerDimtAsVariantFori=3To1step-1Score(i)
随机试题
下列哪种试剂不是果胶酸钙沉淀法测定罐头食品中果胶质含量时需要的()。
急性肾小球肾炎患儿首选护理诊断是
特发性血小板减少性紫癜的诊断标准不包括()
【2003年第80题】框架结构体系与剪力墙结构体系相比,以下何种说法正确?
监理工程师对初步设计质量审核的主要内容包括()
下图中甲图是某地区地质地貌演变过程示意图,乙图是某地地层剖面示意图。读图,回答问题。乙图中a、b地貌对应甲图中的()。
A县环保局在环境执法中,发现B企业存在私自排放污染物的行为,经过其上级环保行政主管部门C市环保局的批准,决定对B企业罚款10万元。罚款单盖上A县环保局的公章。B企业对此行政处罚不服,为此,B企业提起行政诉讼。被告是()。
简述债权人代位权的概念及成立条件
下列字符型常量的表示中,错误的是______。
Completetheformbelow.WriteNOMORETHANTWOWORDSORANUMBERforeachanswer.Healthclubcustomerrese
最新回复
(
0
)