单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上从左到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是______。

A．Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then"回车符的ASCII码是13a=Val(Text1)If a＞=0 Or a＜=100 ThenText2.SetFocusElscText1.SetFocus: MsgBox("分数错")End IfEnd IfEnd Sub
B．Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAseii=13 Then"回车符的ASCII码是13a=Val(Text1)If a＞=0 And a＜=100 ThenText1.SetFocusElseText2.SetFocus: MsgBox("分数错")End IfEnd IfEnd Sub
C．Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then"回车符的ASCII码是13a=Val(Text1)If a＜0 And a＞100 ThenText2.SetFocusElseText1.SetFocus: MsgBox("分数错")End IfEnd IfEnd Sub
D．Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then"回车符的ASCII码是13a=Val(Text1)If a＞=0 And a＜=100 ThenText2.SetFocusElseText1.SetFocus: MsgBox("分数错")End IfEnd IfEnd Sub

单项选择题

在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程。Option Base 1Private Sub Command1_Click()Dim a(5,5) As IntegerFor i=1 To 5For j=1 To 5a(i,j)=(i+j)*5 10Next jNext is=0For i=1 To 5s=s+a(i, i)Next iprint sEnd Sub程序运行后，单击命令按钮，输出结果是______。

A．15
B．13
C．11
D．9