患者女，36岁，妊娠39周，G3P1。出现宫缩1d，持续约30s，每隔10min左右1次。产妇认为已临产，于是来院就诊。
该产妇的孕产史记录中的G3P1是指她原来有过
A:3次妊娠史 B:2次妊娠史 C:1次妊娠史 D:3次分娩史 E:2次分娩史 F:1次分娩史
在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 1
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
在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:Print #1,s B:Print #1,i 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
StuAgc 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=Input. Box("请输入年级号")
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
在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
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。 Private Type student StuName As String*10 StuGrade As string*10 StuAgc 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=Input. Box("请输入年级号") 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
在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 1 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
单选题
