网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

假定在工程文件中有一个标准模块,其中定义了如下记录类型

Type Books

Name As String * 10

TelNum As String * 20

End Type

要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。

A.Private Sub Command1_Click()

Dim 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("输入姓名")

TelNum = InputBox("输入电话号码")

Write #1, B

Close #1

End Sub

D.Private Sub Command1_Click()

Dim B As Book

Open "c:\Person.txt" For Input As #1

Name = InputBox("输入姓名")

TelNum = InputBox("输入电话号码")

Print #1, B.Name, B.TelNum

Close #1

 End Sub


参考答案

更多 “ 假定在工程文件中有一个标准模块,其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。A.Private Sub Command1_Click()Dim B As BooksOpen "c:\Person.txt" For Output As #1B.Name = InputBox("输入姓名")B.TelNum = InputBox("输入电话号码")Write #1, B.Name, B.TelNumClose #1End SubB.Private Sub Command1_Click()Dim B As BooksOpen "c:\Person.txt" For Input As #1B.Name = InputBox("输入姓名")B.TelNum = InputBox("输入电话号码")Print #1, B.Name, B.TelNumClose #1End SubC.Private Sub Command1_Click()Dim B As BooksOpen "c:\Person.txt" For Output As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码")Write #1, BClose #1End SubD.Private Sub Command1_Click()Dim B As BookOpen "c:\Person.txt" For Input As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码")Print #1, B.Name, B.TelNumClose #1 End Sub ” 相关考题
考题 假定在工程文件中有一个标准模块,其中定义了如下记录类型:Type BooksName As String*10TelNuin As String*20End Type要求在执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk()DimB As Booksopen"c:\person.txt"For output As 1B.Name=InputBox("请输入姓名")B.TelNum=InputBox("请输入电话号码")write 1,______close 1End Sub

考题 假定在窗体(名称为Form1) 的代码窗口中定义如下记录类型:Private Type animalanimalName As String *20aColor As String *10End Type在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim rec As animalOpen "c:\vbTest.dat"For Random As #1 Len=Len(reC.rec.animalName= "Cat"rec.aColor= "White"Put #1,,recClose #1End Sub则以下叙述中正确的是( )。A.记录类型animal不能在Form1中定义,必须在标准模块中定义B.如果文件c:\vbTest.dat不存在,则Open命令执行失败C.由于Put命令中没有指明记录号,因此每次都把记录写在文件的末尾D.语句"Put #1,,rec"将animal类型的两个数据元素写到文件中

考题 假定在工程文件中有一个标准模块,其中定义了如下记录类型 Type Books NalTle As String*10 TelNum As String*20 End Type 要求当执行事件过程ComlBandl_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )。A.Ptivate Sub Commandl_Click() DimB As Books Open"c:\Person.txt"For Output As#1B.Name=InputBox(“输入姓名”)C.Private Sub Conullandl_CHCk() DimBAs Books Open"c:\Person.txt"For Ouputut As#1 Name=hputBox(“输入姓名”) Temum=InputBox(“输入电话号码”) Whte#1,B Close#1 End Sub D.Privam Sub Commnandl_Click() DimBAsBook Open"C:\Person.tx

考题 设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name As String ( 10 Te1Num As String * 20End Type在窗体上添加一个名为Command1的命名按钮。要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容,将程序补充完整。Private Sub Command1_Click() Dim B As____ Open "c:\person.txt"For Output As #1 B.Name=InputBox("输入姓名") B.Te1Num=InputBox("输入学号") Write#1,B.Name,B.Te1Num Close #1End Sub

考题 假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name 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" Pat#1 , rec Close#1 End Sub 则以下叙述中正确的是A.记录类型animal不能在Form1中定义,必须在标准模块中定义B.如果文件c:\vbTest.dat不存在,则Open命令执行失败C.由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D.语句"Put#1,rec"将animal类型的两个数据元素写到文件中

考题 在窗体上有一个名称为Command1的命令按钮,并编写有如下事件过程:记录类型定义如下:下列叙述中正确的是( )。A. 记录类型animal不能在Form1中定义,必须在标准模块中定义B. 如果文件c:\vbTest.dat不存在,则Open命令执行失败C. 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D. 语句“Put#1,,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 End Sub 则以下叙述中正确的是______。A.记录类型animal不能在Form1中定义,必须在标准模块中定义B.如果文件"c:\vbTest. dat"不存在,则Open命令执行失败C.由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D.语句“Put #1, , 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(reCreC.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类型的两个数据元素写到文件中

考题 假定在窗体(名称为Form1)的代码窗口中定义如下记录类型:Private Type animalanimal Name As String * 20aColor As String * 10End Type在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1 Click()Dim rec As animalOpen "c:\vb Test.dat"For Random As # 1 Len=Len(reC) rec.animalName="cat"rec.aColor="White"Put # 1,,recClose # 1End Sub则以下叙述中正确的是 ______。A.记录类型animal不能在Form1中定义,必须在标准模块中定义B.如果文件c:\vbTest.dat不存在,则Open命令执行失败C.由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D.语句"Put # 1,,rec"将animal类型的两个数据元素写到文件中

考题 假定在窗体(名称为Form1)的代码窗口中定义如下记录类型:Private Type animalAnimalName As String*20AColor As String*10End 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 #1End Sub则以下叙述中正确的是( )。A.记录类型animal不能在Form1中定义,必须在标准模块中定义B.如果文件c:\vbTest.dat不存在,则Open命令执行失败C.由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾D.语句“Put #1, , rec”将animal类型的两个数据元素写到文件中