首页 > 大学专科> 电子信息
题目内容 (请给出正确答案)
[主观题]

设有如下记录类型: Type student Number As String*10 Name As String*8 End Type 窗体中有

若干控件,单击其中的一个按钮Command1时,执行如下事件过程,该过程的功能是把数据输出到指定的文件中。根据题意,请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:\file, dat" For Random As 1 Len=Len(【 】) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【 】1, i, stu Next i Close【 】 End Sub

查看答案
答案
收藏
如果结果不匹配,请 联系老师 获取答案
您可能会需要:
您的账号:,可能还需要:
您的账号:
发送账号密码至手机
发送
安装优题宝APP,拍照搜题省时又省心!
更多“设有如下记录类型: Type student Number …”相关的问题
第1题
下面一段程序定义了一个名字为“books”的记录,其4个域的域名及数据类型如下: 域名
数据类型 数据长度 title 字符型 40 author 字符型 20 price 单精度实型 10 请将下面【 】补充完整。 Type books title As String*40 author As string*20 Price【 】 End Type

点击查看答案
第2题
用Type 语句定义的类型称为记录类型,要访问一个某记录型变量中 的某个元素,需采用下述格式()

A.变量名->元素名

B.变量名.元素名

C.元素名->变量名

D.元素名.变量名

点击查看答案
第3题
设有如下枚举类型定义:enum pro_lan{Basic=3,C,Delphi=10,Pascal,Fortran};枚举量Fortran的值为_

设有如下枚举类型定义: enum pro_lan{Basic=3,C,Delphi=10,Pascal,Fortran}; 枚举量Fortran的值为______。

A.4

B.7

C.12

D.13

点击查看答案
第4题
设有如下函数: fun{float x} { printf(“\n%d”,x*x); } 则函数的类型是()。A.与参数x的类

设有如下函数: fun{float x} { printf(“\n%d”,x*x); } 则函数的类型是()。

A.与参数x的类型相同

B.是void

C.是int型

D.无法确定

点击查看答案
第5题
设有如下枚举类型定义: enum language{BASIC=3,Assembly=6,Ada=100,C0B0L,F0RTRAN);枚举量F
ortran的值为___________。

点击查看答案
第6题
设有如下说明 typedef struct ST {long a;int b;char c[2];}NEW; 则下面叙述中正确的是
______。

A.以上的说明形式非法

B.ST是一个结构体类型

C.NEW是一个结构体类型

D.NEW是一个结构体变量

点击查看答案
第7题
设有如下关系表R: R(NO,NAME,SEX,AGE,CLASS) 主关键字是NO,NO为学号,NAME为姓名,SEX为性别,AGE为年龄,CLA

设有如下关系表R:

R(NO,NAME,SEX,AGE,CLASS)

主关键字是NO,NO为学号,NAME为姓名,SEX为性别,AGE为年龄,CLASS为班号。

写出实现下列功能的SQL语句。

插入“95031”班,学号为30,姓名为“郑明”的学生记录:______。

点击查看答案
第8题
建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编,用文本框输入数据。单击“添
加主记录”按钮command1时,将文本框数据写入文件,单击“显示”按钮Command2时,将文件中所有记录内容显示在立即窗口。 Private Type PerData Name1 As String Phon As String * 11 Address As String * 10 Posted As String * 6 End Type ___________________________定义PerData类型的变量xData Private Sub Form_Load() Open "C:\phonBook.txt"For Random As 1 End Sub Private Sub Command1_Click() xData. Name1=Text1.Text xData. Phon=Text2.Text ________=Text3.Text 地址 xData. PostCd=Text4.Text Put 1, 1, xData Text1.Text=" ":Text2.Text="" Text3.Text="":Text4.Text="" End Sub Private Sub Command2_Click() reno=LOF(1)/Len(xData) i=1 Do While i<= reno Get 1, i, xData Debug.Print xData.Name 1,______, xData. Address, xData. PostCd i=i+1 Loop End Sub

点击查看答案
第9题
假定定义了一个记录类型,名为Rt,同时建立了一个名为Sp.txt的文件,然后编写如下的程序段: Dim
Rv As Rt r1=Len(Rv) Open"Sp.txt" For Random As 1 x=LOF(1) n=x\r1 执行上面的程序段后,变量n中存放的是文件【 】中所存放的是【 】记录类型的记录数。

点击查看答案
第10题
The article is primarily aboutA.treatment of suicidal tendencies.B.causes of college stude

The article is primarily about

A.treatment of suicidal tendencies.

B.causes of college students suicide.

C.the problem and prevention of college student suicide.

D.functions and characteristics of crisis centers.

点击查看答案
退出 登录/注册
发送账号至手机
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改