单项选择题

在窗体上有两个名称分别为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 ten=ten( Put #1,1,p Close #1
D．Open "c:\Test2.dat" For Random As #1 Len=Len( Get #1, 1, p Close #1

<上一题目录下一题>

热门试题

单项选择题

在窗体上画—个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd*100) Print Num； Select Case Num Case 12 Exit For Case 58 Exit Do Case 65,68,92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是______。

A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭、程序结束

单项选择题

某人为计算n!(0＜n＜=12)编写了下面的函数过程： Private Function fun(n As Integer)As Long Dim p As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是______。

A．把p=1改为p=n
B．把For k=n-1 To 2 Step-1改为For k=1 To n-1
C．把For k=n-1 To 2 Step-1改为For k=1 To n
D．把For k=n-1 To 2 Step-1改为For k=2 To n