首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在E盘当前目录文件夹下建立一个名为“Student.txt”,的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程,请选择正确的语句完成程序(
在E盘当前目录文件夹下建立一个名为“Student.txt”,的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程,请选择正确的语句完成程序(
admin
2010-11-20
30
问题
在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
下列程序的功能是创建了一个实现5个“Hello!”的线程并启动运行,请将程序补充完整。publicclassTestextendsThread{publicstaticvoidmain(String[]args){
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={1,2,3,4);int
当查询一个压缩文件时,首先要建立压缩文件输入流的对象是______。
下列哪个选项不能提高程序的性能()。
数据管理技术发展过程经过人工管理、文件系统和数据库系统3个阶段,其中数据独立性最高的阶段是______。
软件工程研究的内容主要包括______技术和软件工程管理。
假定在窗体(名称为Form1)的代码窗口中定义如下记录类型: PrivateTypeanimal animalNameAsString*20 aColorAsString*10 EndType 在窗体上画一个名称为Command
设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是______。
随机试题
肌纤维长度保持不变的肌力训练属于
护理组织文化的核心是
患者,男性,25岁。电脑工程师。因发现大便呈黑色1天伴乏力就诊。黑粪呈柏油样,黏稠而且发亮。无腹痛,无发热。既往身体健康。查体:神志清,皮肤巩膜无黄染,心肺(-),全腹软,剑突下轻压痛,无反跳痛,肝脾肋下未及,移浊(-),肠鸣正常。下列对明确该患者的诊
阴阳偏衰的治疗原则是
药物对肝微粒体酶的抑制作用,可使其他药( )。
根据有些国家公司法的规定,在公司设立登记后,即使股款尚未缴清,也可以发行的股票是()。
根据增值税法律制度的规定,下列情形中,不属于存中国境内销售服务的有()。
下述关于Graves眼病的叙述,正确的是
在标准ASCII编码表中,数字码、小写英文字母和大写英文字母的前后次序是
Parentsofwailing(哀号)babies,takecomfort;Youarenotalone.Chimpanzeebabiesfuss.Seagullchickssquawk.Buryingbeetle
最新回复
(
0
)