更多"建立随机文件TEST.DAT,存放学生的姓名和总分,然后把该文件中的数"的相关试题:
[填空题]建立随机文件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=Len(Class)
______
Print "STUDENT:", Class, Studnet
Print "SCORE://",Class.Score
Close #1
End
[填空题]建立随机文件TEST.DAT,存放学生的姓名和总分,然后把该文件中的数据读出来显示。请在 【10】 和 【11】 处填适当的内容,将程序补充完整,
Type Record
Student As String*20
Score As Single
End Type
Dim Class As Record
Open"TEXT.DAT"For 【10】 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)
【11】
Print"STUDENT:",Class.Student
Print"SCORE://",Class.Score
Close #1
End
[填空题]建立随机文件F1.DAT,存放职工姓名和编号,然后把该文件中数据读出显示。请在 【14】 和 【15】 处将程序补充完整。
Type worker
name As String*10
pay As Single
End Type
Dim workl AS worker
Open"F1.dat"For Random As#1 Len=Len(workl)
Work1.name="LiuMin":work1.pay=400#
【14】
Close#1
Open"F1.dat"For Random As#1 Len=Len(work1)
【15】
Print"work1:",workl.name
Print"work1:",workl.pay
C10se#1
[填空题]建立随机文件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
[填空题]下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form Click( )
Dim Y As Single
Open (6)
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx:Cos(i*Y)
(7)
Next i
Close #2
End Sub