1、国家二级 VB 机试（上机操作）-试卷 41 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 Shape1 的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性以满足下列要求： 圆角矩形中填满绿色(颜色值为：H0000FF00或HFFOO)。 窗体的标题为“圆角矩形”，字体为“仿宋_CB2312”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。(2)考生文件夹下有一个工程文件 sjt2
2、vbp。窗体中含有除计时器外的其他控件，还有一个过程sub1，其功能是按照 Text1 中的通话时间计算通话费，并将其显示在 Text2 中。 程序运行时，单击“通话开始”按钮，则在 Text1 中累加通话时间(每隔 1 秒，文本框中的数加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 sub1。 要求： 在窗体上画一个计时器，如图所示，并通过属性窗口设置适当属性。 编写三个按钮的 Click 事件过程。 编写计时器的事件过程。 注意：要求程序中不得使用变最，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许凋用过程 sub1。不得修改已
3、经存在的程序和控件属性，最后把文件按原文件名存盘。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮米决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变
4、运动方向。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符把程序中的?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。程序运行时，单击“装入数据”按钮，则从考生文件夹下的 in5txt 文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 List1 中，距离放到数组 a中；当选中列表框中的一个城市时，它的距离就在 Text1 中显示，如图所示；此时，单击“计算运费”按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)
5、，并在 Text2 中显示。 每吨运费的计算方法是：距离折扣单价。 其中，单价为 03。 折扣为距离500 折扣为 1 500距离1000 折扣为 098 1000距离1500 折扣为 095 1500距离2000 折扣为 092 2000距离 折扣为 09 单击“保存”按钮，则把距离和每吨运费存到文件 out5txtt 扣。 已经给出了所有控件和部分程序，要求： 去掉程序中的注释符，把程序中的?改为正确的内容。 编写“计算运费”按钮的 Click 事件过程。 编写列表框的 Click 事件过程。 注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用“保存”按钮存储计
6、算结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 41 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 Shape1 的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性以满足下列要求： 圆角矩形中填满绿色(颜色值为：H0000FF00或HFFOO)。 窗体的标题为“圆角矩形”，字体为“仿宋_CB2312”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名
7、保存为 sjt1frm。(2)考生文件夹下有一个工程文件 sjt2vbp。窗体中含有除计时器外的其他控件，还有一个过程sub1，其功能是按照 Text1 中的通话时间计算通话费，并将其显示在 Text2 中。 程序运行时，单击“通话开始”按钮，则在 Text1 中累加通话时间(每隔 1 秒，文本框中的数加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 sub1。 要求： 在窗体上画一个计时器，如图所示，并通过属性窗口设置适当属性。 编写三个按钮的 Click 事件过程。 编写计时器的事件过程。 注意：要求程序中不得使用变最，每个事件过程中只能写一条语句，
8、“计算通话费”按钮的事件过程中只允许凋用过程 sub1。不得修改已经存在的程序和控件属性，最后把文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：建立界而，并设置控件的属性。程序中用到的控件及属性见表 358。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体中有一个矩形
9、和一个圆，程序运行时，单击“开始”按钮，圆可以横向或纵向运行(通过选择单选按钮米决定)，碰到矩形的边时，则向其相反方向运动，单击“停止”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符把程序中的?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打丌本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Private Sub Form_Click() Fo
10、r i1 To 5输入 5 行 For j1 To 6i循环实现输入空格，每行依次减少一个空格 Print“； Next j For ji To 2*i1 图像每行*的个数 Print“*“： Next j Print Next i For i1 To 4 For j1 To i1同问题 1 Print“； Next j For j1 To(92*i)同问题 2 Print“*“； Next j Print Next i End Sub 程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开：本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注
11、释符“”， 将问号改为正确的内容。 参考答案 Dim d As Integer Private Sub Commandl C1ick() TimerlEnabledTrue当单击“开始“按钮时，Timer 生效 End Sub Private Sub Command2 C1ick() Timer1EnabledFalse当单击“停止“按钮时，Timer 失效 End Sub Private Sub Form_Load() d1 End Sub Private Sub Timer1 Timer() If Optionl Then判断 Option1 是否被单击 Shape2TopShape2To
12、pd*50实现圆垂直移动 If Shape2TopShape1Top orShape2TopShape2WidthShape1TopShape1Height Then判断 Shape2 与 Shape1 的位置 dd当圃移出 Shape1 时，改变移动方向 End If ElseIf Option2 Then Shape2LeftShape2Leftd*50实现水平移动 If Shape2LeftShape1Left Or Shape2LeftShape2WidthShape1LeftShape1Width Then dd当圃移出 Shape1 时，则改变移动方向 End If End If
13、End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。程序运行时，单击“装入数据”按钮，则从考生文件夹下的 in5txt 文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 List1 中，距离放到数组 a中；当选中列表框中的一个城市时，它的距离就在 Text1 中显示，如图所示；此时，单击“计算运费”按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并在 Text2 中显示。 每吨运费的计算方法是：距离折扣单价。 其中，单价为 03。 折扣为距离500 折扣为 1
14、500距离1000 折扣为 098 1000距离1500 折扣为 095 1500距离2000 折扣为 092 2000距离 折扣为 09 单击“保存”按钮，则把距离和每吨运费存到文件 out5txtt 扣。 已经给出了所有控件和部分程序，要求： 去掉程序中的注释符，把程序中的?改为正确的内容。 编写“计算运费”按钮的 Click 事件过程。 编写列表框的 Click 事件过程。 注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用“保存”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本
15、题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容，并编写相应的代码。 参考答案 Dim a(10)As Integer，n As Integer Private Sub Cornmand1 Click() Open AppPath“in5txt“For Input As #1 While Not EOF(1) nn1下标循环加 1 Input#1，ch$，a(n)将文件依次读入 ch，a(n)中 List1Addltem ch 将城市名添加到 List1 中 Wend Close #1 End Sub Private Sub Cornmand2_Click
16、() 需要考生编写的内容 bVal(Text1) Tf b0 And b500 Then判断 b 的范围 m03*b ElseIf b500 And b1000 Then m03*b*098 ElseIf b1000 And b1500 Then m03*b*095 ElseIf b1500 And b2000 Then m03*b*092 ElseIf b2000 Then m03*b*09 End If Text2int(m) End Sub Private Sub List1_Click() 需要考生编写的内容 Text1a(List1ListIndex1) 通过 List1ListIndex1 采确定所选城市对应的距离 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
