单项选择题

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。
设有如下的类型和变量声明：
Private Type Person
name As String8
major As String20
End Type
Dim P AS Person

设文本框中的数据已正确地赋值给Person类型的变量P，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是( )

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

<上一题目录下一题>

热门试题

单项选择题

设有如下通用过程： Public Function Fun(xStr As String)As String Dim t Str As String，strL As Integer tStF= strL=Len(xStr) i=1 Do While i＜=strL 2 tStr=Tstr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1) i=i+l Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1= abedef Prim UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是( )

A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是( )

A．2
B．3
C．4
D．5