首页 > 大学专科> 电子信息

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

若文件是Random Accessile的实例ile，并且其基本文件长度大于0，则下面的语句实现的功能是（

若文件是Random Accessile的实例ile，并且其基本文件长度大于0，则下面的语句实现的功能是 ()ile.seek(ile.length()-1)；

A．将文件指针指向文件的第一个字符后面

B．将文件指针指向文件的最后一个字符前面

C．将文件指针指向文件的最后一个字符后面

D．会导致seek()方法抛出一个IOException

答案

查看答案

发布时间：2020-09-01

更多“若文件是Random Accessile的实例ile，并且其基本文件长度大于0，则下面的语句实现的功能是（”相关的问题

第1题

使用Open语句打开文件时，下面哪个打开方式是以随机方式打开文件（)

A.Binary

B.Random

C.Input

D.Append

点击查看答案

第2题

假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段： Dim

Rv As Rt r1=Len(Rv) Open"Sp.txt" For Random As 1 x=LOF(1) n=x\r1 执行上面的程序段后，变量n中存放的是文件【】中所存放的是【】记录类型的记录数。

点击查看答案

第3题

建立随机文件F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在【】和【】处将程序补

充完整。 Type worker name As String*10 pay As Single End Type Dim workl AS worker Open"F1.dat"For Random As1 Len=Len(workl) Work1.name="LiuMin"：work1.pay=400 【】 Close1 Open"F1.dat"For Random As1 Len=Len(work1) 【】 Print"work1："，workl.name Print"work1："，workl.pay C10se1

点击查看答案

第4题

建立随机文件Workers．dat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入

适当的语句。 Type Worker name As String*8 number As Integer End Type Open"e:\Workers．dat"For Random As 1 Len=Len(Workerl) Workerl．name="zn"：Worker1．number=100 【】 Close 1 Open"Workers．dat"For Random As 1 Len=Len(Worker1) 【】 Print"Worker1："，Worker1．name Print "Worker1："，Worker1．number Close 1

点击查看答案

第5题

建立随机文件TEST.DAT，存放学生的姓名和总分，然后把该文件中的数据读出来显示。请在【】和【】处

填适当的内容，将程序补充完整， Type Record Student As String*20 Score As Single End Type Dim Class As Record Open"TEXT.DAT"For【】As 1 Len=Len(Class) Class.Student=“LiuMin”：Class.Score=596 Put 1，1，Class Close 1 Open"TEXT.DAT"For Random As 1 Len(Class) 【】 Print"STUDENT："，Class.Student Print"SCORE："，Class.Score Close 1 End

点击查看答案

第6题

设有如下记录类型： 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

点击查看答案

第7题

下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d

：\stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。 Type student No As Long Name As String * 20 English As Integer End Type Private Sub form_ Click () Dim k As student, i As Integer 【】 Open "d:\stu1. dat" for Random As 10 Len = Reclen for i = 1 To 5 k. No= InputBox(“请输入学号”) k. Name = InputBox (“请输入姓名”) k. English= InputBox (“请输入英语成绩”) 【】 Next i 【】 Print k. No; k. Name; k. English Close 10 End Sub

点击查看答案

第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题

跟随鼠标位置绘制圆形，随机大小变换的圆（最大直径为30)的代码是：（)。

A.circle(mousex,mousey,30)

B.circle(mousex,mousey,random(30))

C.circle(mouseX,mouseY,random(30))

D.ircle(mouseX,mouseY,random(15))

点击查看答案

第10题

属于竞争性随机接入信令流程中前三条的是（)。

A.Random Access Preamble

B.Random Access Response