更多"假定定义了一个记录类型,名为Rt,同时建立了一个名为Sp.txt的文件"的相关试题:
[填空题]假定定义了一个记录类型,名为Rt,同时建立了一个名为Sp.txt的文件,然后编写如下的程序段:
Dim Rv As Rt
r1=Len(Rv)
Open"Sp.txt" For Random As # 1
x=LOF(1)
n=x/r1
执行上面的程序段后,变量n中存放的是文件 【6】 中所存放的是 【7】 记录类型的记录数。
[填空题]假定定义了一个记录类型,名为Rt,同时建立了一个名为Fr.txt的文件,然后编写如下程序段:
Dim Rv As Rt
r1=Len(Rv)
Open "Fr.txt" For Random As #1
x=LOF(1)
n=x/r1
执行上面的程序段后,变量n中存放的是文件中包含的______条数。
[填空题]假定定义了一个记录类型,名为Rt,同时建立了一个名为Sp.txt的文件,然后编写如下的程序段:
Dim Rv As Rt
r1=Len(Rv)
Open"Sp.txt" For Random As # 1
x=LOF(1)
n=x/r1
执行上面的程序段后,变量n中存放的是文件 【6】 中所存放的是 【7】 记录类型的记录数。
[单项选择]假定定义了一个记录类型,名为Rt,同时建立了一个名为Fr.txt的文件,然后执行下面的程序段后,变量n中存放的是____。
Private Sub Command1_Click( )
Dim Rv As Rt
R1= Len(Rv)
Open"Fr.txt"For Random A.s #1
X= LOF(1)
n =X/RL
Close #1
End Sub
A. 文件中的记录数
B. 文件字节数
C. 文件行数
D. 文件字符数
[填空题]假定在工程文件中有一个标准模块,其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求在执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。将经下程序补充完整。
Private Sub Command1_Clickk( )
Dim B As Books
open "c: /person. txt" For output As #1
B. Name = InputBox ("请输入姓名t" )
B. TelNum = InputBox("请输入电话号码" )
write #1, 【15】
close #1
End Sub
[填空题]假定在工程文件中有一个标准模块,其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求在执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。将经下程序补充完整。
Private Sub Command1_Clickk( )
Dim B As Books
open "c: /person. txt" For output As #1
B. Name = InputBox ("请输入姓名t" )
B. TelNum = InputBox("请输入电话号码" )
write #1, 【15】
close #1
End Sub
[填空题]假定在工程文件中有一个标准模块,其中定义了如下记录类型。
Private Type Books
Name As String*10
TelNum As String#20
End Type
要求在执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click( )
DimB As Books
open“C/person.txt”For output As#1
B.Name=InputBox(“请输入姓名”)
B.TeINum=InputBox(“请输入电话号码”)
write#1, (9)
close#1
End Sub
[单项选择]假定在工程文件中有一个标准模块,其中定义了如下记录类型
Type Books
Name As String*10
TelNum As String *20
End Type
要求在执行事件过程Command1_Click时,在C盘目录下的顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A) Private Sub Command1_Click( )
Dint B As Books
Open"c: /Person.txt" For Output As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write#1 ,B.Name,B.TelNum
Close#1
End Sub
B) Private Sub Command1_Click( )
Dim B As Books
Open"C:/Person.txt" For Input As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Print#1,B.Name,B.TelNum
Close#1
End Sub
C) Private Sub Command1_Click( )
Dim B As Books
Open"c:/Person.txt" For Output As#1
Name=InputBox("输入姓名")
TelNom=InputBox("输入电话号码")
Write #1,B
Close#1
End Sub
D) Private Sub Command1_Click( )
Dim B As Book
O
A. A
B. B
C. C
D. D
[单项选择]假定在工程文件中有一个标准模块,其中定义了如下记录类型:
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求在执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[填空题]假定用户没有给一个名为AB的类定义构造函数,则系统为其隐含定义的构造函数为 【17】 。
[填空题]假定用户没有给一个名字为Sample的类定义构造函数,则系统为其隐含定义的构造函数为 【8】 。
[填空题]假定在工程文件中有一个标准模块,其中定义了如下记录类型:Type Books
Name As String *10
TelNum As String*20
End Type
要求在执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click( )
Dim B As Books
open "C=/person.txt" For output As#1
B.Name=InputBox("请输入姓名")
B.TelNum=InputBox("请输入电话号码")
write #1,______
Close #1
End Sub
[填空题]假定用户没有给一个名字为Sampie的类定义构造函数,则系统为其隐含定义的构造函数为______。
[填空题]假定用户没有给一个名为MyClass的类定义析构函数,则系统为其定义的默认析构函数首部形式为 【10】 。
[单项选择]假定在窗体(名称为Form1)的代码窗口中定义如下记录类型:
Private Type animal
animalName As String*20
a Color As String*10
End Type
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Crick( )
Dim rec As animal
Open"c:/vbTest.dat"For Random As #1 Len=Len(rec)
rec.animalName="Cat"
rec.aColor="White"
Put #1,,rec
Close #1
End Sub
则以下叙述中正确的是( )。
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
B. 如果文件c:/vbTest.dat不存在,则Open命令执行失败
C. 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D. 语句“Put#l,,rec”将animal类型的两个数据元素写到文件中
[单项选择]假定在窗体(名称为Form1)的代码窗口中定义如下记录类型:
Private Type animal
animalName As String*20
aColor As String*10
End Type
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim rec As animal
Open "c:/vbTest.dat" For Random As #1 Len = Len(rec)
rec.animalName = "Cat"
rec.aColor = "White"
Put #1, , rec
Close #1
End Sub
则以下叙述中正确的是( )。
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
B. 如果文件c:/vbTest.dat不存在,则Open命令执行失败
C. 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D. 语句“Put #1, , rec”将animal类型的两个数据元素写到文件中