题目内容（请给出正确答案）

[主观题]

设在工程中定义了下列类型： Type Stutype ino As Integer strname As String*20 Strsex As Strin

g*1 Smark As Single End Type在窗体上正确使用这个类型的是下列哪个操作 A. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=smith .strsex=男 .smark=89 End With End Sub B. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End With End Sub C. Sub Command1_Click() Dim student As Stutype With Stutype .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End With End Sub D. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End student End Sub

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“设在工程中定义了下列类型： Type Stutype ino…”相关的问题

第1题

设在工程文件中有—个标准模块，其中定义了如下记录类型：Type BooksName As String *10TelNum As S

设在工程文件中有—个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。

A．Private Sub Command1_ Click() Dim B As Books Open "Person.txt" For Output As #1 B. Name=InputBox(“输入姓名”) B. TelNum=InputBox(“输入电话号码”) Write #1, B. Name, B. TelNum Close #1End Sub

B．Private Sub Command1_ Click() Dim B As Books Open "Person.txt" For Input As #1 B. Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”). Print #1, B. Name, B.TelNum Close #1End Sub

C．Private Sub Command1_Click() Dim B As Books Open "Person.txt" For Output As #1 B.Name= InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Write #1，B Close #1End Sub

D．Private Sub Command1_ Click() Open "Person. txt" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1, Name, TelNum Close #1End Sub

点击查看答案

第2题

设在工程文件中有一个标准模块，其中定义了下列记录类型：Type BooksName As String*10TelNum As S

设在工程文件中有一个标准模块，其中定义了下列记录类型：

Type Books

Name As String*10

TelNum As String*20

End，Type

在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（）。

A.Private Sub Command1 Click（）

Dim B AS Books

Open"Person txt"For Output As#1

Name=InputBox(”输入姓名”)

relNum=lnputBox(”输入电话号码”)

Wlite#1 B Name，B TelNum

Ch,se#1

End Sub

B.Private Sub Command1 Click（）

Dim B AS Books

Open"Person txt"For Input As#1

＞Name=InputBox("输入姓名")

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

Print#1，B．Name，B．TelNam

Close#1

End Sub

C.Private Sub Command1 Click（）

Dim BAS Books

Open"Person txt"For Output As#1

Name=InputBox("输入姓名")

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

Write#1，B

Close#1

End Sub

D.Private Sub Commandl Click（）

Open"Person txt"For Input As#1

Name=lnputBox("输入姓名")

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

Prim#1 Name TelNum

Close#1

End Sub

点击查看答案

第3题

设在工程中定义了下列类型：Type Stutypeino As Integerstrname As String*20strsex As String*1s

设在工程中定义了下列类型：

Type Stutype

ino As Integer

strname As String*20

strsex As String*1

smark As Single

End Type

在窗体上正确使用这个类型的是下列哪个操作()。

A．Sub Command1_Click() Dim student As Stutype With student .ino=12 .Strname=smith .strsex=男 .smark=89 End With End Sub

B．Sub Command1_Click() Dim Student As Stutype With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With End Sub

C．Sub Comnland1_Click() Dim student As Stutype With Stutype .ino=12 .strname="smith" .strsex="男" .smark=89 End With End Sub

D．Sub Command1_Click() Dim student As Stutype With student .ino=12 .Strname="smith" .strsex="男" .smark=89 End student End Sub

点击查看答案

第4题

设在工程中定义了如下类型：Type stutypeino As Integerstmame As String*20strsex As String*1sm

设在工程中定义了如下类型： Type stutype ino As Integer stmame As String*20 strsex As String*1 smark As Single End Type 在窗体上正确使用这个类型的是下列哪个操作()。

A．Sub Command1_click() Dimstudent As Stutype With student .ino=12 .strname=smith .strsex=男 .smark=89 End With End Sub

B．Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With End Sub

C．Sub Command1_Click() Dim student As Stutype With Stutype .ino=12 .strname="smith" .strsex="男" .smark=89 End With End Sub

D．Sub Command1_click() Dim student As Stutype With student .ino=12 .strname="smith" .strsex="男" .smark=89 End student End Sub

点击查看答案

第5题

设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String （10 Te1Num As

设在工程中有一个标准模块，其中定义了如下记录类型：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

点击查看答案

第6题

设在工程中定义了如下类型： Type stutype ino As Integer strname As String*20 strsex As Strin

g* 1 smark As Single End Type在窗体上正确使用这个类型的是下列哪个操作()。

A．Sub Commandl_Click0 Dim student As Stutype With student .ino = 12 . strname = smith .strsex = .smark = 89 End With End Sub

B．Sub Commandl_Click0 Dim student As Stutype With student .ino = 12 .strname = "smith" .strscx = "男" .smark = 89 End With End Sub

C．Sub Commandl_Click0 Dim student As Stutype With Stutype ino = 12 .strname = "smith" .strsex = "男" .smark = 89 End With End Sub

D．Sub Command1 _Click() Dim student As Stutype With student .ino = 12 .strname = "smith" .strsex = "男" .smark = 89 End student End Sub

点击查看答案

第7题

设在工程中有一个标准模块，其中定义了如下记录类型______。Type BooksName As String*10TelNum As

设在工程中有一个标准模块，其中定义了如下记录类型______。 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl_click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是______。

A．Ptivate Sub Commandl Click() Dim B As Books Open"C:\Person.txt"For Output AS#1 BName=InputBox("输入姓名") BTelNum=InputBox("输入电话号码") Write#1,BName,BTeLNum Clodr#1 End Sub

B．Ptivate Sub Commandl_C1iok() Dim B As Books Opcn"c:\Person.txt"For Input As#1 BName=InputBox("输入姓名") BTelNum=InpuBox("输入电话号码") Print#1,BName,@B@TelNum C1ose#1 End Sub

C．Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Output As #1 BName=InputBox("输入姓名") BTelNum=InputBox("输入电话号码") Write#1、B Close#1 End Sub

D．Private Sub Command1 C1ick() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox('输入姓名') TelNum=InputBox("输入电话号码") Print#1,Name,TelNum Close#1 End Sub

点击查看答案

第8题

设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books 　　Name As String * 10 　　TelNum As String * 20 End 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 Sub#B.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 Sub#C.Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Output As #1B.Name＝InputBox('

点击查看答案

第9题

设在工程中有一个标准模块，其中定义了如下记录类型Type Books Name As String*10 TelNum As Stri

设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程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 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write#1，B Close #1 End Sub

D．Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print#1，Name，TelNum Close #1 End Sub

点击查看答案

第10题

设在工程中有一个标准模块，其中定义了如下记录类型Type Books Name As String* 10 TelNum As Str

设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String* 10 TelNum As String * 20 End Type 在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程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

B．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt, For Input As # 1 B.Name = lnputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Print #1, B.Name, B.TelNttm

C．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 Close #

D．Private Sub Command1_Click() Dim B As Books Open"c:\Person.txt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1，Name，TelNum Close #1 End Sub

点击查看答案