首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
admin
2017-08-22
40
问题
在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()a="10"b=20c=Val(A)+bPrintcEn
若要求输入密码时文本框中只显示“*”号,则应当在文本框的属性窗口中设置______属性。
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。SubPR()RandomizeDima(10)Forj=1To10a(i)=In
通过设置何属性可以改变所画图形的形状?
下列程序段的结果为______。A="ABBACDDCBA"ForI=6To2Step-2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)Z=X&Y&ZNextIPrintZ
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timerl。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimer1_________TxtTime.text=TimeEndSub在下
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimerl_______TextTime.text=TimeEndSu
下列对于线性链表的描述中正确的是
以下叙述不正确的是______。
下列叙述中正确的是
随机试题
设u(x,y)在点M0(x0,y0)处取极大值,并且均存在,则()
圆锥角膜发展最快的时间是
支气管哮喘约半数患者的发病年龄在
下列哪个药物除具有抗过敏作用外,还具有镇静及抗晕动症作用
57岁女性,未生育过,已绝经4年,近2个月再现阴道流血。查子宫稍大稍软。对诊断有价值的病史是
[2008年第84题]作用水头相同时,孔口的过流量要比相同直径的管嘴过流量()。
会计信息化是会计电算化的初级阶段和基础工作。()
在专业技术人员的业务素质培训中,培训的主要内容通常包括()。
托宾投资Q理论是用来解释货币政策通过影响货币市场进而影响投资支出,从而传导货币政策意图的。
等差数列{an}中,a1=-2008,其前n项和为sn若,则S2008().
最新回复
(
0
)