【单选题】设窗体上有一个名为Text1 的文本框和一个名为Command1 的命令按钮,并有以下事件过程: Private Sub Command1_Click () x != Val ( Text1.Text ) Select Case x Case Is = 20 Print ′′ 输入错误 ′′ Case Is < 0 Print 20 - x Case Is < 10 Print 20 Case ...
【单选题】在窗体上有两个名称分别为 Text1 、 Text2 的文本框,一个名称为 Command1 的命令按钮。 运行后的窗体外观如图所示。 设有如下的类型和变量声明: PrivateType Person name As String*8 major As String*20 EndType Dimp As Person 设文本框中的数据已正确地赋值给 Person 类型的变量 p ,当单击"保存"按...
A.
Open "c : \Test2.dat" For Output As #1 Put #1 , 1 , p Close #1
B.
Open "c : \Test2.dat" For Random As #1 Get #1 , 1 , p Close #1
C.
Open "c : \Test2.dat" For Random As #1 Len = Len(p) Put #1 , 1 , p Close #1
D.
Open "c : \Test2.dat" For Random As #1 Len = Len(p) Get #1 , 1 , p Close #1