单项选择题

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。程序运行后的窗体外观如图16-4所示。
设有如下的类型声明： Type Person name As String8 major As String20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29. dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是______。

A．Open "C:\Test29. dat" For Random As #1 Put #1, 1, p Close #1
B．Open "C:\Test29. dat" For Random As #1 Get #1, 1, p Close #1
C．Open "C:\Test29. dat" For Random As #1 Len=Len( Put #1, 1, p Close #1
D．Open "C:\Test29. dat" For Random As #1 Len=Len( Get #1, 1, p Close #1

<上一题目录下一题>

热门试题

单项选择题

设有如下通用过程： Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim art(5)As Variant For i=1 To 5 art(i)=i Next n=10 Call Fun(art(), n) Text1. Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是______。

A．10
B．15
C．25
D．24

单项选择题

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

A．12
B．13
C．14
D．15