1、二级 VISUAL+BASIC 机试-77 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)1.请根据以下各题的要求设计 Visual Basic 应用程序(包括界面和代码)。1在窗体(名称为 Form1)上画两个命令按钮，其名称分别为 C1 和 C2，标题分别为“命令按钮 1”和“命令按钮 2”，编写适当的事件过程。程序运行后，“命令按钮 2”隐藏，此时如果单击“命令按钮 1”，则“命令按钮 2”出现，“命令按钮 1”隐藏；而如果单击“命令按钮 2”，则“命令按钮 1”出现，“命令按钮 2”隐藏。程序的运行情况如图 11 所示。注意；存
2、盘时，工程文件名为 sjt1.vbp窗体文件名为 sjt1.frm。2在 Form1 的窗体上画一个命令按钮，其名称为 C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图 12 所示。（分数：30.00）_二、2 简单应用题(总题数：1，分数：40.00)2.在窗体上画一个名称为 Op1 的单选按钮控件数组，其包含 4 个单选按钮，Index 值从 0 到 3，标题分别为“答案 1”、“答案 2”、“答案 3”和“答案 4”；再画一
3、个命令按钮，名称为 C1，标题为“选择”；再画一个文本框 Text1，名称为 Text1，内容为空白。编写适当的程序。程序运行时，单击“选择”按钮，只有选择“答案 1”单选按钮时，在 Text1 文本框中显示“选择正确”，否则显示“选择错误”。程序运行结果如图 21 所示。注意，保存时必须存放在考生文件夹下，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm。2在考生文件夹中有工程文件 sjt4.vbp，其中包含窗体 Form1，该程序是不完整的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有
4、三个名称分别为 Text1、Text2、Text3 的文本框，一个名称为 Command1，标题为“计算”的命令按钮(如图 22 所示)。要求程序运行后，在 Text1 和 Text2 中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含着两个整数)累加起来并在 Text3 中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm。（分数：40.00）_三、3 综合应用题(总题数：1，分数：30.00)3.在窗体上画 1 个文本框(名称为 Text1，初始内容为空白，字体大小为 12，允许多行显示)和 1 个命令按钮(名称为
5、 C1，标题为“存盘”)，编写适当的事件过程。程序运行后，把考生文件夹下 in.txt 文件的内容读入内存，并在文本框中显示出来，如图 31 所示；然后在文本的最前面手工插入一行汉字：“枫桥夜泊”，如图 32 所示。如果单击“存盘”命令按钮，则把文本框中修改过的内容保存到文件 ont.txt中。注意：只能在最前面插入文字，不能修改原有文字，存盘时，工程文件名为 sjt5.vbp，窗体文件名为sjt5.frm。文件 in.txt 的内容如下：（分数：30.00）_二级 VISUAL+BASIC 机试-77 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：
6、30.00)1.请根据以下各题的要求设计 Visual Basic 应用程序(包括界面和代码)。1在窗体(名称为 Form1)上画两个命令按钮，其名称分别为 C1 和 C2，标题分别为“命令按钮 1”和“命令按钮 2”，编写适当的事件过程。程序运行后，“命令按钮 2”隐藏，此时如果单击“命令按钮 1”，则“命令按钮 2”出现，“命令按钮 1”隐藏；而如果单击“命令按钮 2”，则“命令按钮 1”出现，“命令按钮 2”隐藏。程序的运行情况如图 11 所示。注意；存盘时，工程文件名为 sjt1.vbp窗体文件名为 sjt1.frm。2在 Form1 的窗体上画一个命令按钮，其名称为 C1，标题为“显
7、示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图 12 所示。（分数：30.00）_正确答案：( 启动 Visual Basic，在窗体上画两个命令按钮。 按 F4 键，激活属性窗口，在属性窗口中设置两个命令按钮的属性，见表 1。表 1控件 属性 设置值命令按钮 1 名称Caption C1命令按钮 1命令按钮 2 名称Caption C2命令按钮 2 编写两个命令按钮的 Click 事件过程：Private Sub C1_Click()C1.V
8、isible=FalseC2.Visible=TrueEnd SubPrivate Sub C2_Click()C1.Visible=TrueC2.Visible=FalseEnd Sub2 对象主要属性设置如表 2 所示。表 2对象 对象名 属性名 属性值窗体 Form1 Caption Form1文本框 Text1命令按钮 C1 Caption 显示 分析：按试题要求在窗体上画出一个文本框和一个命令按钮，并分别将它们的属性按表 2 的内容进行设置。当窗体加载时激活 Form_Load，通过文本框 Text 的 Visible 属性设置为 False，即将 Text 文本框隐藏掉。当双击窗体
9、时，产生 Form_DblClick 事件，Text 的 Visible 属性设置为 True，即可见。将字符串“等级考试”赋值给文本框 Text1 的 Text 属性时，则在文本框中显示“等级考试”。 编程代码：Private Sub C1_Click()Text1.Text“等级考试“End SubPrivate Sub Form_DblClick()Text1.VisibleTrueEnd SubPrivate Sub Form_Load()Text1.VisibleFalseEnd Sub)解析：二、2 简单应用题(总题数：1，分数：40.00)2.在窗体上画一个名称为 Op1 的单选
10、按钮控件数组，其包含 4 个单选按钮，Index 值从 0 到 3，标题分别为“答案 1”、“答案 2”、“答案 3”和“答案 4”；再画一个命令按钮，名称为 C1，标题为“选择”；再画一个文本框 Text1，名称为 Text1，内容为空白。编写适当的程序。程序运行时，单击“选择”按钮，只有选择“答案 1”单选按钮时，在 Text1 文本框中显示“选择正确”，否则显示“选择错误”。程序运行结果如图 21 所示。注意，保存时必须存放在考生文件夹下，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm。2在考生文件夹中有工程文件 sjt4.vbp，其中包含窗体 Form1，该程序是不完整
11、的。请在有?号的地方填入正确内容，然后删除?及所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有三个名称分别为 Text1、Text2、Text3 的文本框，一个名称为 Command1，标题为“计算”的命令按钮(如图 22 所示)。要求程序运行后，在 Text1 和 Text2 中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含着两个整数)累加起来并在 Text3 中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm。（分数：40.00）_正确答案：( 对象主要属性设置如表
12、 3 所示。表 3对象 对象名 属性名 属性值窗体 Form1 Caption Form1命令按钮 C1 Caption 选择文本框 Text1单选按钮 Op1(0) Caption 答案 1单选按钮 Op1(1) Caption 答案 2单选按钮 Op1(2) Caption 答案 3单选按钮 Op1(3) Caption 答案 4 分析：按试题要求在窗体上画一个单选按钮数组(含四个单选按钮)、一个文本框和一个命令按钮，并分别将它们的属性按表 3 的内容进行设置。单选按钮是否被选取由其 Value 属性来确定，当 Value 值为True 时，表示单选按钮被选取，否则未被选取，根据题意，只有
13、选择了 Op1(0)单选按钮，将字符串“选择正确”赋给 Text1.Text，否则将字符串“选择错误”赋给了 Text1.Text。 编程代码：Private Sub C1_Click()If Op1(0).Value=True ThenText1.Text“选择正确“ElseText1.Text“选择错误“End IfEnd Sub2 试题提供的程序如下：Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor iText1.Text To?j?+iNext iText3.TextjEnd Sub 要完成两个数之间所有整数
14、的累加，需要使用循环结构来读取两个数之间所有的整数，然后将每一个整数累加到一个变量中。 修改后的程序如下：Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor iText1.Text To Text2.Textj=j+iNext iText3.TextjEnd Sub)解析：三、3 综合应用题(总题数：1，分数：30.00)3.在窗体上画 1 个文本框(名称为 Text1，初始内容为空白，字体大小为 12，允许多行显示)和 1 个命令按钮(名称为 C1，标题为“存盘”)，编写适当的事件过程。程序运行后，把考生文件夹下 i
15、n.txt 文件的内容读入内存，并在文本框中显示出来，如图 31 所示；然后在文本的最前面手工插入一行汉字：“枫桥夜泊”，如图 32 所示。如果单击“存盘”命令按钮，则把文本框中修改过的内容保存到文件 ont.txt中。注意：只能在最前面插入文字，不能修改原有文字，存盘时，工程文件名为 sjt5.vbp，窗体文件名为sjt5.frm。文件 in.txt 的内容如下：（分数：30.00）_正确答案：(按以下步骤操作： 启动 Visual Basic，在窗体上画 1 个文本框和 1 个命令按钮。 按 F4 键，激活属性窗口，在属性窗口中设置文本框和命令按钮的属性，见表 4。表 4控件 属性 设置值
16、文本框名称TextMultiLineFontSize Text1(空白)True12 命令按钮 名称Caption C1存盘 编写窗体的 Load 事件过程；Private Sub Form_Load()Open“in.txt“For Input As #1Text1.Text“Do While Not EOF(1)Line Input # 1,a$Text1.TextText1.Text+a$+Chr(13)+Chr(10)LoopClose #1End Sub在该过程中，从头到尾依次把 in.txt 文件中的每一行读到内存，然后在文本框中显示出来。在显示时，通过 Chr(13)+Chr(10)实现回车换行，也可以通过 vbGrLf 常量实现换行。 编写“存盘”命令按钮的 Click 事件过程：Private Sub C1_Cliek()Open“out.txt“For output As #1Print #1,Text1.TextClose #1End Sub该过程把当前文本框的内容写入文件 out.txt。 运行程序，在文本框中显示读入的文本，此时在文本框的顶部输入“枫桥夜泊”，单击“存盘”命令按钮。然后查看当前目录下是否已建立 out.txt 文件，其内容是否正确。)解析：
