网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
假定在工程文件中有一个标准模块，其中定义了如下记录类型
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 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类型的两个数据元素写到文件中
热门标签
最新试卷