首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
admin
2017-08-22
42
问题
在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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4Ifi=1Thenx=i
在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
下列程序段的执行结果为______。K=0ForI=1To3A=I^I^KPrintA;NextI
在程序的空白行处填写适当的语句,完成以下功能:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。DoWhileList2.ListCount________
如果要通过程序代码来一次性删除列表框中所有项目,则应使用的方法是______。
在窗体上画一个名称为Text1的文体框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图所示。以下能实现上述操作的程序段是
下列对于线性链表的描述中正确的是
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Forml和Form2,启动窗体为Forml。在Forml上画一个命令按钮Commandl,程序运行后,要求当单击该命令按钮时,Forml窗体消失,显示窗体Form2,请在横线处将程序补充
以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。PrivateSubForm_click()Dimx,yAsSingleDimzAsIntegerx=InputBox("E
随机试题
服务进口国的消费者直接到服务出口国来消费和享用服务被称为
阅读下面的文字:登兹楼以四望兮,聊暇日以销忧。览斯宇之所处兮,实显敞而寡仇。挟清漳之通浦兮,倚曲沮之长洲。背坟衍之广陆兮,临皋隰之沃流。北弥陶牧,西接昭丘。华实蔽野,黍稷盈畴。虽信美而非吾土兮,曾何足以少留!遭纷浊而迁逝兮,漫逾纪以迄今
A.5周以内B.10周以内C.11~14周D.14~24周E.24周以上
盆式支座竖向承载力试验正式加载前需对支座进行三次预压,预压初始荷载为该试验支座竖向设计承载力的()。
甲公司与乙银行订立一份借款合同,甲公司到期未还本付息。乙银行于还本付息期届满后1年零6个月时向有管辖权的人民法院起诉,要求甲公司偿还本金、支付利息并承担违约责任。乙银行的行为引起诉讼时效中断。()
Allofthe2019NobelPrizesinsciencewereawardedtomen.That’sareturntobusinessasusual,afterbiochemicalengineerFr
有表名为Employee的表结构(职工号,姓名,工资),为表Employee增加字段“住址”的SQL命令是
Whatdidpeopleoncethinkaboutlightning?
Whoisthistalkprobablyaddressedto?
A、Hertestpaperwasunexpectedlylost.B、Hertestmarkwasn’tasbadasshethought.C、Shefeelsgreataboutthemarkonherpa
最新回复
(
0
)