2012年计算机二级VB上机试题及解题思路第47套

　　2. 简单应用(2小题，每题20分，计40分)

　　注意：下面出现的“考生文件夹”均为%USER%

　　(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：

　　1)圆的顶端距窗体Form1顶端的距离为360;

　　2)圆的颜色为红色(红色对应的值为：&H000000FF& 或&HFF&)，如图所示。

　　程序运行时，Shape1将在Line1和Line2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运动;当Shape1的底部到达Line2时，会改变方向而向上运动。

　　文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。

　　注意：

　　不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

　　由于所提供的窗体控件不完整，需在该窗体上画一个形状控件，通过其属性窗口将名称设为Shape1，FillStyle属性0，Top属性设为360，颜色(FillColo属性)设为红色(对应的值为：&H000000FF& 或&HFF&)。

　　由于所提供的窗体程序不完整，在Private Sub Form_Load()事件过程中，有一处地方需要修改。

　　1) 将语句

　　’Timer1.Enabled = ?

　　改为

　　Timer1.Enabled = True

　　在计时器的Private Sub Timer1_Timer()事件过程中，有二处地方需要修改。

　　1) 将语句

　　’If Shape1.Top <= ? Then

　　改为

　　If Shape1.Top <= Line1.Y1 Then

　　2) 将语句

　　’If Shape1.Top + ? >= Line2.Y1 Then

　　改为

　　If Shape1.Top + Shape1.Height >= Line2.Y1 Then

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。

　　(2)在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图所示。程序功能如下：

　　1)单击“读数据”按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a 中;

　　2)单击“计算”按钮，则根据从名称为Combo1的组合框中选中的项目，对数组a 中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。

　　“读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。

　　注意：

　　不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

　　由于所提供的窗体程序不完整，需在“计算”命令按钮的Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　’考生编写

　　Select Case Combo1.ListIndex

　　Case 0

　　Text1 = even()

　　Case 1

　　Text1 = odd()

　　Case 2

　　Text1 = all()

　　End Select

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw、sjt4.frx、out4.dat

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总