1、国家二级 VB机试（上机操作）模拟试卷 313及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 Shapel的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性以满足下列要求: 圆角矩形中填满绿色(颜色值为：&H0000FF00&或&HFF00&)。 窗体的标题为“圆角矩形”，字体为“仿宋一 GB2312”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)考生文件夹下有一个工程文件
2、sjt2vbp。窗体中含有除计时器外的其他控件，还有一个过程 sub1，其功能是按照 Text1中的通话时间计算通话费，并将其显示在 Text2中。 程序运行时，单击“通话开始”按钮，则在 Text1中累加通话时间(每隔 1秒，文本框中的数加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 sub1。 要求： 在窗体上画一个计时器，如图所示，并通过属性窗口设置适当属性。 编写三个按钮的 Click事件过程。 编写计时器的事件过程。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许调用过程 sub1。不得修改已
3、经存在的程序和控件属性，最后把文件按原文件名存盘。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，在 Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时，单击“开始计数”按钮，就开始计数(如图所示)，每隔 1秒，文本框中的数加 1；单击“停止计数”按钮，则停止计数。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。 (2)已知出租车行驶不超过 4公里时一律收费 10元。超过 4公里时
4、分段处理，具体处理方式为：15 公里以内每公里加收 12 元，15 公里以上每公里收 18 元。 在考生文件夹下有一个工程文件 sjt4vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果在名称为Text1的文本框内显示。 在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下有一个
5、工程文件 sjt5vbp。运行程序后，从文件中读出数据，将其放入一个 55的二维数组 a中。请编写程序，找出数组 a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组 b、c 中(a 中第一行的最大值保存在 b(1)中，最大值的列次序保存在 c(1)中)。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 313答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1
6、的窗体上添加一个名称为 Shapel的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性以满足下列要求: 圆角矩形中填满绿色(颜色值为：&H0000FF00&或&HFF00&)。 窗体的标题为“圆角矩形”，字体为“仿宋一 GB2312”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)考生文件夹下有一个工程文件 sjt2vbp。窗体中含有除计时器外的其他控件，还有一个过程 sub1，其功能是按照 Text1中的通话时间计算通话费，并将其显示在 Text2中。 程序运行时，单击“通
7、话开始”按钮，则在 Text1中累加通话时间(每隔 1秒，文本框中的数加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 sub1。 要求： 在窗体上画一个计时器，如图所示，并通过属性窗口设置适当属性。 编写三个按钮的 Click事件过程。 编写计时器的事件过程。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许调用过程 sub1。不得修改已经存在的程序和控件属性，最后把文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：建立界面，并设置控件的属性。程序中用到的控件
8、及属性见表 358。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，在 Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时，单击“开始计数”按钮，就开始计数(如图所示)，每隔 1秒，文本框中的数加 1；单击“停止计数”按钮，则停止计数。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件以原来的文件名存盘。 (2)已知出租车行驶不超过 4公里时一律收费 10元。超过 4公里时分段处理，具体处理方式为：15 公里以内每
9、公里加收 12 元，15 公里以上每公里收 18 元。 在考生文件夹下有一个工程文件 sjt4vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框接收出租车行驶的里程数；单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果在名称为Text1的文本框内显示。 在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：打开本题工程文件，设置计时器 Interval属性为1
10、000，Enabled 属性设置为 FMse。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Cl_Click(Index As Integer) Select Case Index通过控件下标确定单击哪一个按钮 Case 1 Timer1Enabled=FalSe Case0控制下标从 0开始，此处应为 0 TimerlEnabled=True End Select End Sub Private Sub Timerl_Timer() Text1Text=Text1Text+1 Text1 中的内容加 1显示 End Sub 步骤 3：调
11、试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Dim S As Integer Private Sub Command1_Click() S=Val(InputBox(”输入里程数(单位：公里)”)s 用于存储里程数 End Sub Private Sub Command2_Click() If s0 Then Select Case s对 S进行判断 Case Is=4 f=10根据题意 s=4 时 f=10 Case Is=15
12、 f=10+(s-4)*1.2 同理 Case Is15 f=10+11-1.2+(s一 15)*18同理 End Select Text1Text=f在 Text1中显示结果 Else MsgBox”请单击”输入”按钮输入里程数!” End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下有一个工程文件 sjt5vbp。运行程序后，从文件中读出数据，将其放入一个 55的二维数组 a中。请编写程序，找出数组 a中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组 b、c 中(
13、a 中第一行的最大值保存在 b(1)中，最大值的列次序保存在 c(1)中)。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Max=a(i，1)将每行第一个数作为该行最大值，以便进行比较 For j=1 To 5 If Maxa(i，j)Then依次循环比较该行其他数，如有更大值，则替换 max值 Max=a(i，j) End If b(i)=Max最大值存入数组 b中 If Max=a(i，j)Then c(i)=j最大值的下标存入数组 c中 Next j 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
