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

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

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

　　(1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容;还有两个命令按钮， 名称分别为C1、C2，标题分别为“添加”、“清除”。如图所示。程序的功能是在运行时，如果选中右边列标框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中;若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。

　　解题思路：

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

　　由于所提供的窗体程序不完整，在“添加”按钮的Private Sub C1_Click()事件过程中，有三处地方需要修改。

　　1) 将语句

　　'While (k < List2.?)

　　改为

　　While (k < List2.ListCount)

　　2) 将语句

　　'If ?.Selected(k) = True Then

　　改为

　　If List2.Selected(k) = True Then

　　3) 将语句

　　'List2.RemoveItem ?

　　改为

　　List2.RemoveItem k

　　在“清除”按钮的Private Sub C2_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'List1.RemoveItem List1.?

　　改为

　　List1.RemoveItem List1.ListIndex

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

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

　　(2)在考生文件夹下有一个工程文件sjt4.vbp，请在Form1窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10!”、“11!”、“12!”，Index属性分别为0、1、2;再画一个名称为 C1的命令按钮，标题为“计算”;画一个名称为Text1的文本框，如图所示。

　　程序的功能是在选定一个单选按钮并单击“计算”按钮后， 可以计算出相应的阶乘值，在Text1中显示该阶乘值。请画出上述控件并编写程序。

　　注意：

　　考生不得修改工程中已经存在的内容， 在结束程序运行之前，必须进行一次计算。 必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。

　　解题思路：

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

　　由于所提供的窗体控件不完整，需画一个单选按钮控件，通过对单选按钮控件的复制产生单选按钮控件数组，共有三个单选按钮，通过属性窗口将名称设为Op1，Index属性分别设为0、1、2，标题(Caption属性)分别设为“10!”、“11!”、“12!”。画一个命令按钮控件，通过属性窗口将名称设为C1，标题(Caption属性)设为“计算”。画一个文本框控件，通过属性窗口将名称设为Text1。

　　单击“计算”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub C1_Click()

　　Dim k As Integer

　　k = 0

　　'判断选择了哪个单选按钮

　　While Not Op1(k).Value And k < 3

　　k = k + 1

　　Wend

　　If k < 3 Then

　　Text1.Text = calculat(Val(Left$(Op1(k).Caption, 2)))

　　End If

　　End Sub

　　函数calculat()是求阶乘的函数，具体内容：

　　Function calculat(n As Integer)

　　Dim k As Integer, t As Long

　　t = 1

　　For k = 2 To n

　　t = t * k

　　Next k

　　calculat = t

　　End Function

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

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

　　相关推荐：

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

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

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