单项选择题

假定在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As Stri ng＊10
TelNum As Stri ng＊20
End Type
要求在执行事件过程Co mmand1＿Click 时，在顺序文件Person ．txt 中写入一条记录。下列能够完成该操作的事件过程是（　　）。

A.Private Sub Co mmand1＿Click（） Di nt BAs Books Open ＂c ：＼Person ．txt＂For Output As ＃1 B ．Name ＝InputBox（＂输入姓名＂） B ．TelNum＝InputBox（＂输入电话号码＂） Write ＃1，B．Name ，B．TelNum Close ＃1End Sub
B.Private Sub Co mmand1＿Click（）Di m BAs Books Open ＂c ：＼Person ．txt＂For Input As ＃1 B ．Name ＝InputBox（＂输入姓名＂） B ．TelNum＝InputBox（＂输入电话号码＂） Print ＃1，B．Name ，B．TelNum Close ＃1End Sub
C.Private Sub Co mmand1＿Click（）Di m BAs Books Open ＂c ：＼Person ．txt＂For Output As ＃1 Name ＝InputBox（＂输入姓名＂） TelNo m＝InputBox（＂输入电话号码＂） Write ＃1，B Close ＃1End Sub
D.Private Sub Co mmand1＿Click（） Di m BAs BookOpen ＂c ：＼Person ．txt＂For Input As ＃1 Name ＝InputBox（＂输入姓名＂） TelNum－InputBox（＂输入电话号码＂） Print ＃1，B．Name ．B．TelNumClose ＃1End Sub

<上一题目录下一题>

热门试题

单项选择题

下列各种形式的循环中，输出＊的个数最少的循环是（）。

A.a＝5：b ＝8 Do Print ＂＊＂ a＝a＋1Loop While a＜b
B.a＝5：b ＝8 Do Print ＂＊＂ a＝a＋1 Loop Until a＜b
C.a＝5：b ＝8 DoUntil a－b Print ＂＊＂ b ＝b ＋1Loop
D.a＝5：b ＝8 Do Until a＞b Print ＂＊＂ a＝a＋1Loop

单项选择题

有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是在坐标X，Y 处画一个点）： Di mc mdmave As Boolean Private Sub Form＿MouseDown （Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝True End Sub Private Sub Form＿Mouse Move（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） If c mdmave Then Form1．Pset（X，Y） End If End Sub Private Sub Form＿Mouse Up（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝False End Sub 此程序的功能是（）。

A.每按下鼠标键一次，在鼠标所指位置画一个点
B.按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C.不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线