1、二级 VISUAL+BASIC-70 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上添加一个图片框，名称为 Pic，通过属性窗口将考生文件夹下的文件 Tu1-1.jpg 添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示“VB 等级考试”，如图所示。（分数：15.00）_2.在名称为 Form1 的窗体上添加一个命令按钮，名称为 Command1，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，名称为 menu，包含两个子菜单项，一个是“显示命令按钮”，名称为sub
2、Menu1；另一个是“隐藏命令按钮”，名称为 subMenu2，如图所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮。（分数：15.00）_二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，运行情况如图所示。程序的功能是计算如下表达式的值：z=(x-2)!+(x-3)!+(x-4)!+(x-N)!其中的 N 和 x 值通过键盘分别输入两个文本框 Text1、Text2 中。单击名称为 Command1、标题为“计算”的命令按钮，则计算表达式的值，并
3、将计算结果在名称为 Label1 的标签中显示。（分数：20.00）_4.在考生文件夹下有一个工程文件 sjt4.vbp。窗体上有名称为 Timer1 的计时器控件和名称为 Label1 的标签。该程序的功能是在名称为 Label1 的标签中循环显示不同的内容。程序开始运行，在标签中显示“第一项”(如图所示)，且每隔 1 秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。（分数：20.00）_三、B综合应用题/B(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 s
4、jt5.vbp。其窗体中有一个文本框数组，名称为 Text1，下标从 0 开始。程序运行后，单击“产生随机数”按钮，就会随机产生 10 个 3 位数，并放入 Text1 数组中(如图 1 所示)；单击“重排数据”按钮，则把 Text1 中的奇数移到前面，偶数移到后面(如图 2 所示)。已经给出了所有控件和部分程序。（分数：30.00）_二级 VISUAL+BASIC-70 (1)答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上添加一个图片框，名称为 Pic，通过属性窗口将考生文件夹下的文件 Tu1-1.j
5、pg 添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示“VB 等级考试”，如图所示。（分数：15.00）_正确答案：(操作步骤 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表。 控件 图片框属性 Name Picture设置值 Pic Tu1-1.jpg步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Form_Click() Pic.Print “VB 等级考试“ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：图片框的 Name 和 Picture 属性以及图
6、片框 Print 方法。 解析 通过图片框的 Name 和 Picture 属性设置图片框的名称和加载图片。在 Form_Click 事件过程中，通过图片框的 Print方法，在图片框中显示“VB 等级考试”。2.在名称为 Form1 的窗体上添加一个命令按钮，名称为 Command1，标题为“命令按钮”。然后建立一个菜单，标题为“控件”，名称为 menu，包含两个子菜单项，一个是“显示命令按钮”，名称为subMenu1；另一个是“隐藏命令按钮”，名称为 subMenu2，如图所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮；而如果选择“隐藏命令按钮”
7、菜单命令，则隐藏命令按钮。（分数：15.00）_正确答案：(操作步骤 步骤 1：建立界面，添加一个名称为 Command1 的命令按钮，标题为“命令按钮”。菜单编辑的相关属性见表。 标题 控件 显示命令按钮 隐藏命令按钮名称 menusubMenu1 subMenu2内缩符号 0 1 1步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub subMenu1_Click() Command1.Visible=True End Sub Private Sub subMenu2_Click() Command1.Visible=False End Sub 步骤 3：调试并运行
8、程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：命令按钮的 Name、Caption 和 Visible 属性以及菜单编辑器的使用(标题、名称、内缩符号)。 解析 添加一个名称为 Command1 的命令按钮，标题为“命令按钮”。通过菜单编辑器(标题、名称、内缩符号)建立一个菜单，标题为“控件”，名称为 menu，包含两个子菜单项，一个是“显示命令按钮”，名称为 subMenu1；另一个是“隐藏命令按钮”，名称为 subMenu2。通过对 Command1的 Visible 属性的设置，使选择“显示命令按钮”菜单命令则显示命令按钮控件；选择“隐藏命令按钮”菜单命令则将命令按钮控件隐藏
9、二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，运行情况如图所示。程序的功能是计算如下表达式的值：z=(x-2)!+(x-3)!+(x-4)!+(x-N)!其中的 N 和 x 值通过键盘分别输入两个文本框 Text1、Text2 中。单击名称为 Command1、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果在名称为 Label1 的标签中显示。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Function
10、xn(m As Integer) As Long Dim i As Integer Dim tmp As Long tmp=1 初始化 tmp 为 1 For i=1 To m 循环得到 m 的阶乘 tmp=tmp * i Next xn=tmp 返回结果 End Function Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Integer Dim z As Long, x As Single n=Val (Text1.Text) Val()函数将数字字符转化为数值以方便运算 x=Val (Te
11、xt2.Text) z=0 For i=2 To n 循环计算表达式的值 t=x-i z=z+xn(t) 保存 t 的阶乘累加和 Next Label1.Caption=z Call SaveResult End Sub Private Sub SaveResult () Open App.Path & “/out3.dat“ For Output As #1 打开文件 Print #1, Label1.Caption 将 Label1 中的内容写入文件 Close #1 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：标签的 Caption 属性
12、Function 过程，Val()函数，Call 语句，Sub()函数，文件操作(Open、Close、Output)，App.Path 相对路径以及 For 循环语句。 解析 通过循环语句实现xn()函数的乘幂运算；在命令按钮的单击事件过程中通过 Val()函数实现字符类型向数值型的转换，通过循环语句及调用 xn()函数，获得函数返回值，实现表达式的结果运算；最后运用 Call 语句调用SaveResult()函数，并将结果保存在文件夹下的 out4.dat 文件中。4.在考生文件夹下有一个工程文件 sjt4.vbp。窗体上有名称为 Timer1 的计时器控件和名称为 Label1 的标签
13、该程序的功能是在名称为 Label1 的标签中循环显示不同的内容。程序开始运行，在标签中显示“第一项”(如图所示)，且每隔 1 秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Dim arr Private Sub Form_Load() arr=Array(“第一项“，“第二项“，“第三项“，“第四项“) 初始化数组 Labe
14、l1.Caption=arr (0) 首先在 Label1 中显示第一项 Timer1.Interval=1000 设置 Timer1 时间间隔为 1 秒 Timer1.Enabled=True 设置 Timer1 在载入窗体时就运行 End Sub Private Sub Timer1_Timer() Static i As Integer 设置静态属性，记录下标 Label1.Caption=arr(i) If i=3 Then i=0 当 Label1 循环显示一遍，则使之重新循环 Else i=i+1 End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)
15、解析：考点 本题考点有：局部变量定义标签的 Caption 属性、计时器的 Interval 和 Enabled 属性以及If 判断语句。 解析 数组 arr 含有“第一项”、“第二项”、“第三项”和“第四项”4 个值，将Timer1 的 Interval 属性设置为 1000，表示变化的时间间隔为 1s，Timer1 的 Enabled 属性设置为 True。标签的 Caption 属性初值设置为 arr(0)，通过 If 语句和局部变量 i 的累加实现每隔 1 秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。 变量 i 应设置为静态变量，因此在定义时要用 Static 语句，如果
16、用 Dim 语句则不能完成循环显示，标签的 Caption 属性永远为 arr(0)。三、B综合应用题/B(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp。其窗体中有一个文本框数组，名称为 Text1，下标从 0 开始。程序运行后，单击“产生随机数”按钮，就会随机产生 10 个 3 位数，并放入 Text1 数组中(如图 1 所示)；单击“重排数据”按钮，则把 Text1 中的奇数移到前面，偶数移到后面(如图 2 所示)。已经给出了所有控件和部分程序。（分数：30.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序
17、中的注释符“”，将问号改为正确的内容。 Private Sub Command1_Click () Randomize For k=0 To 9 随机产生10 个 3 位数，并分别显示在文本框中 Text1(k)=CInt(Rnd() * 899+100) Next CInt (N) 函数用于取小于或等于 N 的最大整数，Rnd()函数用于随机生成0，1)之间的数 End Sub Private Sub Command2_Click () Dim i%, j%, temp%, flag As Boolean i=0 j=9 将 9 赋予 j temp=Text1(j) 将最后一个控件赋给tem
18、p flag=True While (i j) 循环 5 次即可 If flag Then If Text1(i) Mod 2=0 Then 判断是否为偶数 Text1(j)=Text1(i) 若为偶数，则互换 j=j-1 向前移动 1 位 flag=Not flag Else i=i+1 若不是偶数，则 i 向后移 End If Else If Text1(j) Mod2=1 Then 判断是否为奇数 Text1(i)=Text1(j) i=i+1 flag=Not flag Else j=j-1 End If End If Wend Text1(i)=temp End Sub 步骤 3：调
19、试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：While 语句、Int()函数、Rnd()函数、Mod 运算符以及 If 判断语句。 解析 令 i 指向第一个数，j 指向最后一个数，并先暂存最后一个数；检查第 i 个数是否为偶数，如果不是，再检查下一个，直到第 i 个是偶数，则把此偶数放到第 j 个位置，j 向前移 1 个位置；检查第 j 个数是否为奇数，若不是，再检查前一个，直到第 j 个是奇数，则把此奇数放到第 i 个位置，i 向后移 1 个位置；重复判断，直到 i=j 把开始暂存的数放到 i 的位置，使奇数移到前面，偶数移到后面。 为了避免伪随机数的出现，在适当的时候要使用 Randomize 语句。
