设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时, 在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。A．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output
题目
设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时, 在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A．Private Sub Command1_Click() Dim 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 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1, B Close #1 End Sub
D．Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Input As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, Name, TelNum Close #1 End Sub
相似考题
参考答案和解析
解析：A选项正确。
B选项向文件中输出内容，打开方式应当为For output。
C选项记录变量不可以对元素整体输入输出。
D选项记录变量的输入和输出都必须指明到记录元素。格式为：记录变量.元素名。
更多“设在工程中有一个标准模块,其中定义了如下记录类型Type BooksName As String*10TelNum As String ”相关问题
-
第1题：
假定程序中有以下语句： answer=MsgBox("Stringl",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为： ______。
A．String1
B．String2
C．String3
D．1
正确答案：D
解析：MsgBox函数：在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。
返回值
常数 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vblgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
本题单击的是“确定”按钮，及vbOK，所以MsgBox返回1。 -
第2题：
已知String类定义如下：
class String
{
public:
String(const char *str = NULL); // 通用构造函数
String(const String &another); // 拷贝构造函数
~ String(); // 析构函数
String & perater =(const String &rhs); // 赋值函数
private:
char *m_data; // 用于保存字符串
};
尝试写出类的成员函数实现。
正确答案：String::String(const char *str)
{
if ( str == NULL ) //strlen在参数为NULL时会抛
异常才会有这步判断
{
m_data = new char[1] ;
m_data[0] = '\0' ;
}
else
{
m_data = new char[strlen(str) + 1];
strcpy(m_data,str);
}
}
String::String(const String &another)
{
m_data = new char[strlen(another.m_data) + 1];
strcpy(m_data,other.m_data);
}
String& String::operator =(const String &rhs)
{
if ( this == &rhs)
return *this ;
delete []m_data; //删除原来的数据，新开一块内
存
m_data = new char[strlen(rhs.m_data) + 1];
strcpy(m_data,rhs.m_data);
return *this ;
}
String::~String()
{
delete []m_data ;
} -
第3题：
定义名为“联系方式”的属性组，该属性组包含两个名称分别为“邮箱”和“电话”的属性，这两个属性的类型均为"string"，下面正确的选项为（）。
A．＜attributeGroup name="联系方式"＞ ＜attribute name="邮箱" type="xsd:string"/＞ ＜attribute name="电话" type=“xsd:string"/＞ ＜/attributeGroup＞
B．＜attributeGroup name="联系方式"＞ ＜attribute name="邮箱" type="xsd:sting"＞ ＜attribute name="电话" type=“xsd:sting"＞ ＜/attributeGroup＞
C．＜attribute name="联系方式"＞ ＜attribute name="邮箱" type="xsd:sting"/＞ ＜attribute name="电话" type=“xsd:sting"/＞ ＜
B 解析：实体联系模型中，联系指的是实体之间的联系，实体之间的联系有一对一、一对多和多对多3种。如：一个公司有一个经理，而每个经理只在一个公司任职，则公司与经理之间是一对一联系；一个公司有多个副经理，而每个副经理只在一个公司任职，则公司与副经理之间是一对多联系；一个老师可以有多个学生，而一个学生也可以有多个老师，则老师与学生之间是多对多的联系。联系可以同一个或多个实体有关。利用ER模型进行数据库的概念设计，分为3步：第1步设计局部的ER模型；第2步综合各个局部ER模型成为全局的ER模型；第3步对全局的ER模型进行优化，得到最终的ER模型。ER模型向关系模式的转换依据：把一个实体类型转移为一个关系模式，相应实体的属性转换为对应的关系的属性，实体的键是关系的键；把一个联系类型转换为一个关系模式，所有与该联系相关的实体的键及联系的属性转换成关系的属性，关系模式的键由实体与实体之间的联系所决定。 -
第4题：
假定程序中有以下语句： answer=MsgBox("String1",,"String2","String31",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为______。
A．String1
B．String2
C．String3
D．1
正确答案：D
解析：MszBox函数；在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。
返回值
常数 值 描述
vboK 1 OK
vbCaneel2 Cancel
vbAbort 3 Abert
vbRetry 4 Retry
vblgnore 5 1gnore
vbYes 6 Yes
vbNo 7 NO
本题单击的是“确定”按钮，及vboK，所以MsgBox返回1。 -
第5题：
对于String s;，以下哪句是对的？
A．s是一个变量，它将要管理一个String的对象
B．s是一个变量，其中有一个String的对象
C．s现在的值是null
D．s是一个变量，它现在正管理着一个String的对象
s是一个变量，它将要管理一个String的对象 -
第6题：
20、对于String s;，以下哪句是对的？
A．s是一个变量，它将要管理一个String的对象
B．s是一个变量，其中有一个String的对象
C．s现在的值是null
D．s是一个变量，它现在正管理着一个String的对象
s是一个变量，它将要管理一个String的对象