网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
假定在工程文件中有一个标准模块，其中定义了如下记录类型： 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 Output 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("输入电话号码") Print #1, B Close #1 End Sub
D．Private Sub Command1_Click() Dim B As Books Open "c:\Person txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Name, B. TelNum Close #1 End Sub
参考答案
更多 “ 假定在工程文件中有一个标准模块，其中定义了如下记录类型： 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 SubB．Private Sub Command1_Click() Dim B As Books Open"c:\Person txt" For Output As #1 B. Name=InputBox("输入姓名") B. TelNum=InputBox("输入电话导码") Print #1, B. Name, B. TelNum Close #1 End SubC．Private Sub Command1_Click() Dim B As Books Open"c:\Person. txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Close #1 End SubD．Private Sub Command1_Click() Dim B As Books Open "c:\Person txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Name, B. TelNum Close #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类型的两个数据元素写到文件中
考题
要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课 程成绩(百分制)组成，下列程序段正确的是( )。A．Typepestudl no As Integer name As String score(1 To 3)As Single End TypeB．Typestudl no As Integer no As Integer name As String*10 score()As Single End TypeC．Typestudl no As Integer name As String*10 score(1 To 3)As Single End TypeD．Typestudl no As Integer name As String score(1 To 3)As Single End Type
考题
假设有如下的记录类型： Type Student number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是______。A．Student. name="" s. name="张红"B．Dim s As Student s. Dame="张红"C．Dim s As Type Student s. name="张红"D．Dim s As Type s. name="张红"
考题
（ 35 ）设在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TelNum As String * 20End Type在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1_Click 时，在顺序文件Person.txt 中写入一条 Books 类型的记录。下列能够完成该操作的事件过程是A ） Private Sub Command1_Click()Dim B As BooksOpen “ 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 “ 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 “ Person.txt ” For Output As #`1B.Name=InputBox( “ 输入姓名 ” )B.TelNum=InputBox( “ 输入电话号码 ” )Write #1,BClose #1End SubD ） Private Sub Command1_Click()Open “ Person.txt ” For input As #`1Name=InputBox( “ 输入姓名 ” )TelNum=InputBox( “ 输入电话号码 ” )Print #1, Name, TelNumClose #1End Sub
考题
假定在工程文件中有一个标准模块，其中定义了如下记录类型 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 Student number As String name As string age As Integer End Type 则以下正确引用该类型成员的代码是______。A． Student name="李明”B．Dim s As Student s.name＝"李明"C．Dim s As Type Student s.name="李明"D．Dim s As Type s.name="李明"
考题
（12）要建立一个随机文件记录学生的信息，下列定义了学生的记录类型，由学号、姓名、五门课程成绩（百分制）组成，下列的定义正确的是。A.Type stu no As Integer name As String score(1 To 5)As Single End Type B.Type stuno As Integename As String*10score()As SingleEnd TypeC.Type stu no As Integer name As String*10 score(1 To 5)As Single End Type D.Type stuno As Integername As Stringscore()As SingleEnd Type
考题
设在工程中有一个标准模块，其中定义了如下记录类型：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
考题
假定在工程文件中有一个标准模块，其中定义了如下记录类型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
考题
假字在窗体(名称为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类型的两个数据元素写到文件中
考题
设有如下的记录类型： TypeStudent number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是( )。A．Student.name="张红"B．Dim s As Student s.name="张红"C．Dim s As Type Student s.name="张红"D．Dim s As Type s.name="张红"
考题
以下能正确定义数据类型TelBook的代码是_________。A．Type TelBook Name As String*10 TelNum As Integer End TypeB．Type TelBook Name As String*10 TelNum As Integer End TelBookC．Type TelBook Name String*10 TelNum Integer End Type TelBookD．TypedefTelBook NameString*10 TelNum Integer End Type
考题
以下叙述中错误的是 ______。A．一个工程中可以包含多个窗体文件B．在一个窗体文件中用Private定义的通用过程能被其他窗体调用C．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D．全局变量必须在标准模块中定义
考题
以下能正确定义数据类型TelBook的代码是 ______。A．Type TelBook Name As String*10 TelNum As Integer End TypeB．Type TelBook Name As String*10 TelNun As Integer End TelBookC．Type TelBook Name String*10 TelNum Integer End Type TelBookD．TypedefTelBook Name String*10 TelNum Integer End Type
考题
设在工程中有一个标准模块，其中定义了如下记录类型： TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为Command1的命令按钮，假设d：\F1.dat文件中含有5个用户自定义类型的记录。要求当执行事件过程Command1_Click时，随机访问该文件，并把文件中的第4条记录读出。下列能够完成该操作的程序段是A．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dat"For Random As#1 Len=Len(My RecorD)Position=4 Get#1，Position，Myrecord Close #1 End SubB．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dat"For Random As #1 Len=Len(MyRecorD)Position=4 Put #1，Position，MyRecord Close#1 End SubC．Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open"d：\F1.dar"For OutPut As #1 Len=Len(My RecorD0Position=4 Get #1，Position，MyRecord Close#1 End SubD．Private Sub Command1_Click( ) Dim MyRecord As record，Position Open"d：\F1.dat"For lnput As #1 Len=Len(MyRecorD)Position=4 Get #1，Position，MyRecord Close#1 End Sub
考题
要建立一个随机文件记录学生的信息，如下定义了学生的记录类型，由学号、姓名、5门课程成绩(百分制)组成，下列的定义正确的是( )。A．Type sru no As Integer name As String score(1 To 5)As Single End TypeB．Type stu no As Integer name As String*10 score()As Single End TypeC．Type stu no As Integer name As String*10 score(1 To 5)As Single End TypeD．Type stu no As Integer name As String score()As Single End Type
考题
在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：记录类型定义如下：下列叙述中正确的是（ ）。A. 记录类型animal不能在Form1中定义，必须在标准模块中定义B. 如果文件c：\vbTest．dat不存在，则Open命令执行失败C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中
考题
假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是：A． Prirate Sub Commandl Click() Dim B As Books Open"C:\Person.txt"For Output As #1B．Name=InputBox("输入姓名")B．TelNum=InputBox("输入电话号码") Write #1,B．Name,B．TelNum Close #1 End SubB．Pdrate Sub Commandl Cliok() Dim B As Books Open"c:\Person.txt"For Input As #1B．Name=InputBox("输入姓名")B．TeINum=InputBox("输入电话号码") Print #1,B．Name,B．TelNum Close #1 End SubC．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Output As #1 Name=InputBox("输入姓名") TelNunl=InputBox("输入电话号码") Write #1,B Close #1 End SubD．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox("输入姓名") Temum=InputBox("输入电话号码") Write #1,B．Name,B．TelNuin Close #1 End Sub
考题
下列数据类型定义中，正确的是A．Type Student Num As Long Name As String End TypeB．Type Student Num As Integer Name As String * 10 End TypeC．Private Type Num As Long Score As Single End TypeD．Private Type Student Name As String Score(10)As String * 10 End Type
考题
要建立一个随机文件记录学生的信息，下列定义了学生的记录类型，由学号、姓名、五门课程成绩(百分制)组成，下列的定义正确的是( )。A．Type stu no As Integer name As String score(1 To 5)As Single End TypeB．Type stu no As Integer name As String*10 score()As Single End TypeC．Type stu no As Integer name As String*10 score(1 To 5)As Single End TypeD．Type stu no As Integer name As String score()As Single End Type
考题
设有如下的记录类型： Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是______。A．StUdent.name=""B．Dim s As StUdent s.name="张红"C．Dim s As Type Student s.name="张红"D．Dim s As Type s.name="张红"
考题
由如下程序： Type Student Num As Integer Name As String * 13 End Type Dim stu(30)As Student 该程序段定义了两个程序成分，它们分别是 ______。A．记录类型和记录数组B．记录类型和记录变量C．显示类型和记录数组D．记录变量和记录数组
考题
有如下程序： Private Type stu X As String Y As Integer End Type Private Sub Command1 Click（ ） Dim a As stu X="ABCD" Y=12345 Print a End Sub 程序运行时出现错误，错误的原因是（ ）。A.Type定义语句没有放在标准模块中B.变量声明语句有错C.赋值语句不对D.输出语句Print不对
考题
设在工程文件中有一个标准模块，其中定义了下列记录类型：Type BooksName As String*10TelNum As String*20End，Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（ ）。A.Private Sub Command1 Click（ ）Dim B AS BooksOpenPerson txtFor Output As#1Name=InputBox(”输入姓名”)relNum=lnputBox(”输入电话号码”)Wlite#1 B Name，B TelNumCh,se#1End SubB.Private Sub Command1 Click（ ）Dim B AS BooksOpenPerson txtFor Input As#1Name=InputBox(输入姓名)TelNum=InputBox(输入电话号码)Print#1，B．Name，B．TelNamClose#1End SubC.Private Sub Command1 Click（ ）Dim BAS BooksOpenPerson txtFor Output As#1Name=InputBox(输入姓名)TelNum=InputBox(输入电话号码)Write#1，BClose#1End SubD.Private Sub Commandl Click（ ）OpenPerson txtFor Input As#1Name=lnputBox(输入姓名)TelNum=lnputBox(输入电话号码)Prim#1 Name TelNumClose#1End Sub
考题
以下能正确定义数据类型TelBook的代码是( )。A．Type TelBook Name As String*10 TelNum As Integer End TypeB．Type TelBook Name As String*10 TelNum As Integer End TelBookC．Type TelBook Name String*10 TelNum Integer． EndType TelBookD．Typedef TelBook Name String*10 TelNum Integer End Type
考题
以下关于窗体叙述中错误的是（）。A、一个工程中可以包含多个窗体文件B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D、全局变量必须在标准模块中定义
考题
下面定义PL/SQL记录的语法正确的是（）。A、TYPE 记录类型名 IS RECORDB、TYPE 记录类型名 RECORDC、RECORD 记录类型名D、TYPE RECORD 记录类型名
热门标签
最新试卷
