更多"建立一个通信录的随机文件phonBook.txt,内容包括姓名、电话、"的相关试题:
[填空题]建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编,用文本框输入数据。单击“添加主记录”按钮Command1时,将文本框数据写入文件,单击“显示”按钮Command2时,将文件中所有记录内容显示在立即窗口。
Private Type PerData
Name1 As String
Phon As String *11
Address As String *10
PostCd 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
[简答题]建立一个磁盘文件,文件名由键盘输入,文件内容也由键盘输入。文件内容的输入以"*"作为输入结束标志。
[单项选择]在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
[单项选择]在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 5
s.StuName=InputBox("请输入姓名")
s.StuGrade=InputBox("请输入年级号")
s.StuAge=Val(InputBox("请输入年龄"))
______
Next i
Close #1
End Sub
A. Print #1,s
B. Print #1,i
C. Put #1,,s
D. Put #1,i
[单项选择]下列事件过程的功能是:建立一个名为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 Dim i As Integer Dim Ksc As Ang 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 Close #2 End Sub
A. "../Data1.txt" For Random As #1 Len = 10 Put #1, i, Ksc
B. "../Data1.txt" For Random As #1 Len = 10 Put #1, Y, Kse
C. "../Data1.txt" For Random As #1 Put #1, i, Ksc
D. "../Data1.txt" For Random As #1 Put #1, Y, Ksc