更多"有如下用户定义类型及操作语句: Type Teacher "的相关试题:
[填空题]有如下用户定义类型及操作语句:
Type Teacher
TNo As String
TName AS Strxng
IAge As Integer
End Type
Dim Tea AS Teacher
With Tea
.TNO="20080001"
.TName="张三"
.IAge=32
End With
执行MsgBox Tea.TNaiqle后,消息框的输出结果是______。
[填空题]有如下用户定义类型及操作语句:
Type Teacher
TNo As String
TName As String
IAge As Integer
End Type
Dim Tea As Teacher
With Tea
.TNo="20080001"
.TName="张三"
.IAge=32
End With
执行MsgBox Tea.TName后,消息框的输出结果是______。
[填空题]有如下用户定义类型及操作语句:
Type Teacher
TNo As String
TName AS Strxng
IAge As Integer
End Type
Dim Tea AS Teacher
With Tea
.TNO="20080001"
.TName="张三"
.IAge=32
End With
执行MsgBox Tea.TNaiqle后,消息框的输出结果是______。
[填空题]有如下用户定义类型及操作语句:
Type Student
No As String
Name As String
Age As Integer
End Type
Dim Stu As Student
With Stu
.No="200801001"
.Name="高强"
.Age=23
End With
执行MsgBox Stu.Name后,消息框输出结果是______。
[填空题]有如下用户定义类型及操作语句:
Type Student
SNo As String
SName As String
IAge AS Integer
End Type
Dim Stu As Student
With Stu
.SNo=“200609001”
.SName=“陈果果”
.IAge=19
End With
执行MsgBox Stu.IAge后,消息框的输出结果是______。
[填空题]有如下用户定义类型及操作语句:
Type Student
SNo As String
SName As String
IAge As Integer
End Type
Dim StuAs Student
With Stu
SNo="200609001"
SName="陈果果"
IAge=19
End With
执行MsgBox Stu.IAge后,消息框输出结果是【 】。
[填空题]有如下用户定义类型及操作语句:
Type Student
Sno As String
Sname As String
Sage As Integer
End Type
Dim Stru AS Student
With Stu
.SNO="200609001"
.Shame="陈果果"
.Abe=19
End With
执行MsgBox Stu.Age后,消息框的输出结果是______。
[填空题]有如下用户定义类型及操作语句:
Type Student
SNo As String
SName As String
SAge As Integer
End Type
Dim Stu As Student
With Stu
.SNo="200609001"
.SName="陈果果"
.Age=19
End With
执行MsgBox Stu.Age后,消息框输出结果是______。
[填空题]有如下用户定义类型及操作语句:
Type Student
No As String
Name As String
Age As Integer
End Type
Dim Stu As Student
With Stu
.No="200801001"
.Name="高强"
.Age=23
End With
执行MsgBox Stu.Name后,消息框输出结果是______。
[单项选择]设在工程中有一个标准模块,其中定义了如下记录类型
Type Books
Name As String* 10
TelNum As String * 20
End Type
在窗体上画一个名为 Command1的命令按钮,要求当执行事件过程Command1 Click时,
在顺序文件Person.txt中写入一条记录。 下列能够完成该操作的事件过程是 ______。
A. Private Sub Command1_Click( )
B. Private Sub Command1_Click( )
C. Private Sub Command1_Click( )
D. Private Sub Command1_Click( )
[填空题]假定在工程文件中有一个标准模块,其中定义了如下记录类型
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