1、二级 VISUAL+BASIC 机试-99 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上画两个文本框，名称分别为 Text1 和 Text2，初始情况下都没有内容。请编写适当的事件过程，使程序运行时，在 Text1 中输入字符的同时，Text2 也立即显示出 Text1 中的字符，如下图所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1.vbp，窗体文件名为 s
2、j1.frm。*（分数：15.00）_(2).在名称为 Form1 的窗体上画一个图片框，名称为 Pic1；再画一个命令按钮，名称为 Command1、标题为“置顶”，运行界面如下图左图所示。请编写适当的事件过程，使运行界面在运行时，单击“置顶”按钮，则图片框垂直移动到窗体的最顶端，如下图右图所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。*（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)1.在考生文件夹下有工程文件 sj3.vbp 及窗体文件 sj3.frm，该程序是不完整的，请在有“?”的
3、地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有一个 Label 控件和两个名称分别为 Command1 和 Comrnand2，标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮后，能将下图给出的菱形写入考生文件夹下的shape.dat 文件中；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。程序运行界面如下图右图所示。（分数：20.00）_2.在考生文件夹下有工程文件 sj4.vbp 及窗体文件 sj4.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及
4、代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体中有一个名称为 Command1，标题为“读取字体大小”的命令按钮，一个名称为 List1 的列表框。要求程序运行后，单击“读取字体大小”按钮读取系统的字体，并在 List1 中显示，如下图所示。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有工程文件 sj5.vbp 及窗体文件 sj5.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在
5、名称为 Form1 的窗体上有一个 Label 控件和两个名称分别为 Command1 和 Command2，标题分别为“开始”和“关闭”的命令按钮。编写函数 Minus(A,N)，其功能是由数字 A 组成的不多于 N 位数的整数，利用该函数求 8000-800-80-8 的值并把结果写入考生文件夹下的 sj5.dat 文件中。执行完毕，“开始”按钮变成“完成”，且无效，如下图所示。（分数：30.00）_二级 VISUAL+BASIC 机试-99 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Ba
6、sic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上画两个文本框，名称分别为 Text1 和 Text2，初始情况下都没有内容。请编写适当的事件过程，使程序运行时，在 Text1 中输入字符的同时，Text2 也立即显示出 Text1 中的字符，如下图所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。*（分数：15.00）_正确答案：(文本框的文本内容由 Text 属性设置。题目要求在 Text1 中输入任何字符时，立即在 Text2 中显示，这就触发了文本框的 Change
7、事件。根据题意，新建“标准 EXE”工程，将两个文本框控件添加到窗体中，名称分别为 Text1 和Text2，Caption 属性都为空。双击 Text1 进入代码编写窗口，补充后的代码如下：Private Sub Text1_Change()Text2.Text=Text1.TextEnd Sub单击 )解析：(2).在名称为 Form1 的窗体上画一个图片框，名称为 Pic1；再画一个命令按钮，名称为 Command1、标题为“置顶”，运行界面如下图左图所示。请编写适当的事件过程，使运行界面在运行时，单击“置顶”按钮，则图片框垂直移动到窗体的最顶端，如下图右图所示。程序中不得使用任何变量。
8、注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。*（分数：15.00）_正确答案：(本题考查控件位置的改变，控件的位置由控件的 Left 属性和 Top 属性决定，Left 属性表示控件与所在窗体的左边之间的距离，Top 属性表示控件与所在窗体的顶边之间的距离。根据题意，新建“标准 EXE”工程，将一个 PictureBox 控件和一个命令按钮添加到窗体中，PictureBox的名称为 Pic1，命令按钮的名称为 Command1、Caption 属性为“置顶”。双击 Command1 进入代码窗口，补充如下代码：Private Sub Comm
9、and1_Click()Pic1.Top=0End Sub单击 )解析：二、2 简单应用题(总题数：2，分数：40.00)1.在考生文件夹下有工程文件 sj3.vbp 及窗体文件 sj3.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有一个 Label 控件和两个名称分别为 Command1 和 Comrnand2，标题分别为“开始”和“关闭”的命令按钮。要求程序运行后，单击“开始”按钮后，能将下图给出的菱形写入考生文件夹下的shape.dat 文件中；执行完毕，“开
10、始”按钮变成“完成”，且无效(变灰)。程序运行界面如下图右图所示。（分数：20.00）_正确答案：(根据题意，将两个命令按钮和一个标签添加到窗体中，标签的 Caption 属性为“编写打印到目标文件的菱形。目标文件为 shape.dat”，命令按钮的 Caption 属性分别设为“开始”和“关闭”，名称分别为 Command1 和 Command2，双击 Cornmand1。利用循环打印空格和字母“A”来画出菱形，进入代码窗口，补充后的代码如下：Private Sub Command1_Click()Open“shape5.dat“ For Output As#1 打开文件，准备写入Dim n
11、 As IntegerDim i As IntegerDim str As StringFor n=0 To 4 打印菱形上半部分str=“ “For i=0 To 4-n 打印空格str=str+“ “Next iFor i=0 To 2*n 打印字母“A”str=str+“A“Next iPrint # 1，str$Next nFor n=5 To 8 打印下半部分str=“ “For i=0 To n-4 打印空格str=str+“ “Next iFor i=0 To 2*(8-n) 打印字母“A”str=str+“A“Next iPrint # 1，str$Next nClose#1C
12、ommand1.Enabled=FalseCommand1.Caption=“完成“End SubPrivate Sub Command2_Click()Unload MeEnd Sub单击 )解析：2.在考生文件夹下有工程文件 sj4.vbp 及窗体文件 sj4.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体中有一个名称为 Command1，标题为“读取字体大小”的命令按钮，一个名称为 List1 的列表框。要求程序运行后，单击“读取字体大小”按钮读取系统的字体，并在
13、 List1 中显示，如下图所示。（分数：20.00）_正确答案：(根据题意，将一个列表框控件和一个命令按钮添加到窗体中列表框的名称设为 List1，命令按钮的名称设为 Command1、Caption 属性为“读取字体大小”。双击 Command1 进入代码编写窗口，其中 Screen.Fonts 是读取系统字体的函数，然后利用循环添加到 List1 中，补充后的具体代码如下：Private Sub Command1_Click()Dim i As IntegerFor i=0 To Screen.FontCount-1List1.AddItem Screen.Fonts(i)Next iE
14、nd Sub单击 )解析：三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹下有工程文件 sj5.vbp 及窗体文件 sj5.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为 Form1 的窗体上有一个 Label 控件和两个名称分别为 Command1 和 Command2，标题分别为“开始”和“关闭”的命令按钮。编写函数 Minus(A,N)，其功能是由数字 A 组成的不多于 N 位数的整数，利用该函数求 8000-800-80-8 的值并把结果写入
15、考生文件夹下的 sj5.dat 文件中。执行完毕，“开始”按钮变成“完成”，且无效，如下图所示。（分数：30.00）_正确答案：(根据题意，将一个标签和两个命令按钮添加到窗体中，标签的 Caption 属性为“编写函数Minus(A,N)，其功能是由数字 A(第一个数字)和 0 组成的不多于 N 位数的整数，并利用该函数求 8000-800-80-8 的结果，将结果写入考生文件夹下的 sj5.dat 文件中”，两个命令按钮的名称分别设为Command1 和 Command2，Caption 属性分别为“开始”和“关闭”。双击 Command1 进入代码编写窗口，编写 Minus 函数，代码如下
16、：Private Sub Command1_Click()Dim total As Longtotal=Minus(8,4)Open“sj5.dat“For Output As#1 打开文件准备写入Write # 1,total 写入结果Close # 1End SubPrivate Function Minus(A As Integer,N As Integer)As LongDim i As IntegerDim j As IntegerDim b As Longtotal=0If N1 ThenFor i=N To 1 Step-1b=1Forj=1 To i-1b=b*10NextjIf i=N ThenMinus=Minus+A*b 第一个数是正数ElseMinus=Minus-A*b 其他的是负数，即相减End IfNext iEnd IfCommand1.Enabled=FalseCommand1.Caption=“完成“End FunctionPrivate Sub Command2 Click()Unload MeEnd Sub单击 )解析：
