更多"假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type "的相关试题:
[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将经下程序补充完整。
Private Sub Command1_Clickk( )
Dim B As Books
open "c: /person. txt" For output As #1
B. Name = InputBox ("请输入姓名t" )
B. TelNum = InputBox("请输入电话号码" )
write #1, 【15】
close #1
End Sub
[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String*10
TelNum As String*20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click（ ）
Dim B As Books
open "c:/person.txt"For output As#1
B.Name=InputBox(“请输入姓名”)
B.TeINum=InputBoxt“请输入电话号码“)
write#1， (13)
close#1
End Sub
[单项选择]假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As String *20
End Type
要求在执行事件过程Command1_Click时，在C盘目录下的顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A) Private Sub Command1_Click（ ）
Dint B As Books
Open"c: /Person.txt" For Output As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write#1 ,B.Name,B.TelNum
Close#1
End Sub
B) Private Sub Command1_Click（ ）
Dim B As Books
Open"C:/Person.txt" For Input As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Print#1,B.Name,B.TelNum
Close#1
End Sub
C) Private Sub Command1_Click（ ）
Dim B As Books
Open"c:/Person.txt" For Output As#1
Name=InputBox("输入姓名")
TelNom=InputBox("输入电话号码")
Write #1,B
Close#1
End Sub
D) Private Sub Command1_Click（ ）
Dim B As Book
O
A. A
B. B
C. C
D. D
[单项选择]设在工程文件中有一个标准模块，其中定义了下列记录类型：
Type Books
Name As String*10
TelNum As String*20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( )
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]设在工程文件中有—个标准模块，其中定义了如下记录类型：
Type Books
Name As String *10
TelNum As String*20
End Type
在窗体上画—个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。
A) Private Sub Command1_ Click（ ）
Dim B As Books
Open "Person.txt" For Output As #1
B. Name=InputBox(“输入姓名”)
B. TelNum=InputBox(“输入电话号码”)
Write #1, B. Name, B. TelNum
Close #1
End Sub
B) Private Sub Command1_ Click（ ）
Dim B As Books
Open "Person.txt" For Input As #1
B. Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”).
Print #1, B. Name, B.TelNum
Close #1
End Sub
C) Private Sub Command1_Click（ ）
Dim B As Books
Open "Person.txt" For Output As #1
B.Name= InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write #1，B
Close #1
End Sub
D) Private Sub Command1_ Click（ ）
Open "Person. txt" For Input As #1
Name=InputBox(“输入姓名”)
TelNum=InputBox(“输入电话号码”)
Print #1, Nam
[单项选择]设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String* 10
TelNum As String * 20
End Type
在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程Command1 Click时,
在顺序文件Person.txt中写入一条记录。 下列能够完成该操作的事件过程是 ______。
A. Private Sub Command1_Click( )
B. Private Sub Command1_Click( )
C. Private Sub Command1_Click( )
D. Private Sub Command1_Click( )
[填空题]设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String*10
telNum As String*20
End Type
在窗体上添加一个名为Command1的命名按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。请在 【14】 中填入适当的内容，将程序被补充完整。
Private Sub Command1_Click( )
Dim B As 【14】
Open"c：/person.txt"For Output As #1
B.Name=Input Box(“输入姓名”)
B.TelNum=InputBox(“输入学号”)
Write#I，B，Name，B.TelNum
Close #1
End Sub
[单项选择]设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As String*20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
TelNum As String * 20
EndType
在窗体中添加一个名为Commandl的命令按钮，要求单击命令按钮时，在顺序文件 P1. txt中写入一条记录。下列能够完成该操作的程序段是 ( )
A) Private Sub Commandl_Click（ ）
Dim B As Books
Open"d:/P1.txt"For Output As
#1
B. Name=InputBox( "姓名")
B. TelNum=InputBox("电话号码")
Write #1,B. Name,B. TelNum
Close #1
EndSub
B) Private Sub Commandl_Click（ ）
Dim B As Books
Open" d:/Pl.txt" For Input As
B. Name=InputBox ("姓名")
B. TelNum=InputBox ("电话号码")
Print #1,B. Name,B. TelNum
Close #1
EndSub
C) Private Sub Commandl_Click（ ）
Dim B As Books
Open"d:/P1. txt"For Output As
B. Name=InputBox("姓名")
B. TelNum=InputBox ("电话号码")
Write #1,B
Close #1
EndSub
D) Private Sub Commandl Cliek（ ）
Open"d:/P1.txt" For Input As
Name=InputBox("姓名")
TelNum=InputBox ("电话号码")
Print #1,Name,TelNum
Close #1
EndSub
[简答题]
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数（判断素数的函数已给出）。最后将查找和统计的结果分别显示在标签Label4和Label3中（窗体外观如图所示）。程序不完整，请在指定的位置把程序补充完整。
注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示存标签中，否则本题无成绩。最后把修改后的文件按原文件名存盘。
[单项选择]一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Forml、Form2和md1Func中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
Private Sub frmFunctionl（ ）
...
End Sub
Form2中定义的过程：
Public Sub frmFunction2（ ）
...
End Sub
md1Func中定义的过程：
Public Sub mdlFunction（ ）
...
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有mdlFunction过程能够被工程中各个窗体或模块调用
[单项选择]一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFune的标准模块。假定在 Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：
Forml中定义的过程：
Privme Sub frmFunction1( )
……
End Sub
Form2中定义的过程：
Public Sub frmFunction2( )
End Sub
mdlFunc 中定义的过程：
PubHc Sub mdl Function( )
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有mdlFunction过程能够被工程中各个窗体或模块调用
[单项选择]一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
Private Sub Fun1（ ）
......
End Sub
Func中定义的过程：
Public Sub Fun2（ ）
......
End Sub
若要在窗体For2g调用Porm1和Func中分别建立的自定义过程，则调用格式正确的是 ( )
A. Call Form1. Funl()
B. Call Form1. Fun1()
C. Form1. Fun1()
D. Fun1()
[单项选择]设当前表文件中含有字段 NAME，系统中有一内存变量的名称也为 NAME，下面命令 NAME 显示的结果是______。
A. 内存变量 NAME 的值
B. 字段变量 NAME 的值
C. 与该命令之前的状态有关
D. 错误信息
[单项选择]一个建设工程由多个单位工程组成时，工程文件按( )立卷。
A. 单位工程
B. 分部工程
C. 分项工程
D. 检验批
[单项选择]假定在窗体上建立了一个通用对话框，其名称为Cd1，用下面的语句可以建立一个对话框：
Cdl. ShowPrinter
与该语句等价的语句是 ( )
A. Cd1. Action=2
B. Cd1. Action＝3
C. Cd1 Action=4
D. Cd1. Action＝5
[单项选择]一个建设工程由多个单位工程组成时，工程文件应按( )组卷。
A. 建设程序
B. 分部工程
C. 单位工程
D. 阶段
