更多"建立随机文件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
[填空题]建立随机文件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
[单项选择]要建立一个随机文件记录学生的信息,如下定义了学生的记录类型,由学号、姓名、5门课程成绩(百分制)组成,下列的定义正确的是( )。
A) Type stu
no As Integer
name As String
score(1 To 5)AS Single
End Type
B) Type stu
no As Integer
name As String*10
score( )As Single
End Type
C) Type stu
no As Integer
name As String*10
score(1 To 5)As single
End Type
D) Type stu
no As Integer
name As String
score( )As Single
End Type
[填空题]“学生成绩”表含有字段(学号,姓名,数学,外语,专业,总分)。下列程序的功能是:计算每名学生的总分(总分=数学+外语+专业)。请在程序空白处填入适当语句,使程序实现所需要的功能。
Private Sub Command1_Click( )
Dim en As New ADODB.Connection
Dim FS As New ADODB.Reeordset
Dim zongfen As New ADODB.Fileld
Dim shuxue As New ADODB.Fileld
Dim waiyu As New ADODB.Fileld
Dim zhuanye As New ADODB.Fileld
Dim strSQL As Sting
Set en=CurrentProject.Connection
StrSQL="Select * from成绩表"
rs.Open strSQL,cn,adOpenDynamic,adLockptimistic,adCmdText
Set zongfen=rs.Filelds("总分")
Set shuxue=rs.Filelds("数学")
Set waiyu=rs.Filelds("外语")
Set zhuanye=rs.Filelds("专业")
Do while (14)
Zongfen=shuxue+waiyu+zhuanye
(15)
rs.MoveNext
Loop
rs.close
en.close
Set rs=Nothing
Set en=Nothing
End Sub
[单项选择]有学生表和班级表文件,检索哪些班级中至少有一个学生的总分是大于700的,正确的命令是( )。
A. SELECT 班级名称 FROM 班级表 WHERE 班级号 IN;
B. SELECT 班级名称 FROM 班级表 WHERE 班级号 IN;
C. SELECT 班级名称 FROM 班级表 WHERE 学号 IN;
D. SELECT 班级名称 FROM 班级表 WHERE 学号 IN;
[填空题]下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦 函数值和余弦函数值,角度为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 【 】
Y=3.14159/180
For I=1 To 90
Ksc.K=I
Ksc.Sinx=Sin(I*Y)
Ksc.Cosx=Cos(I*Y)
【 】
Next I
Clise #2
End Sub
[填空题]下列事件过程的功能是:建立一个名为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“c:/Datal.txt”For Random As #2 Len=10
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i * Y)
Ksc.Cosx=Cos(i * Y)
______
Next
Close #2
End Sub