题目内容

假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

2024-07-09

A.Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As #1B．Name = InputBox("输入姓名")B．TelNum = InputBox("输入电话号码")Write #1,

B.Name, B.TelNumClose #1End SubB.Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Input As #1B．Name = InputBox("输入姓名")B．TelNum = InputBox("输入电话号码")Print #1, B.Name, B.TelNumClose #1End Sub

C.Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码")Write #1, BClose #1End Sub

D.Private Sub Command1_Click()Dim B As BookOpen "c:Person.txt" For Input As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码")Print #1, B.Name, B.TelNumClose #1End Sub

题目答案

查看最佳答案免验证查看最佳答案

试卷相关题目

1如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A.任何时刻最多只有一个窗体是活动窗体
B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D.如果工程中含有Sub Main过程，则程序一定首先执行该过程
开始考试点击查看答案
2假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是
A.Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowPrinterEnd Sub
B.Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowFontEnd Sub
C.Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowOpenEnd Sub
D.Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowColorEnd Sub
开始考试点击查看答案
3设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load()ShowText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, _Shift As Integer, X As Single, Y As Single)Print "程序设计"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print "Visual Basic";End Sub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是
A.Visual Basic
B.程序设计
C.Visual Basic程序设计
D.a程序设计
开始考试点击查看答案
4以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是
A.KeyAscii参数是所按键的ASCII码
B.KeyAscii参数的数据类型为字符串
C.KeyAscii参数可以省略
D.KeyAscii参数是所按键上标注的字符
开始考试点击查看答案
5函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是
A.Function F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd Function
B.Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd Function
C.Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 1ElseF1 = 0End IfEnd Function
D.Function F1(b As Integer)If b Mod 2 <> 0 ThenReturn 0ElseReturn 1End IfEnd Function
开始考试点击查看答案
6目录列表框的Path属性的作用是
A.显示当前驱动器或指定驱动器上的某目录下的文件名
B.显示当前驱动器或指定驱动器上的目录结构
C.显示根目录下的文件名
D.显示指定路径下的文件
开始考试点击查看答案