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

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

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

　　解题思路：

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

　　由于所提供的窗体程序不完整，需添加事件过程。

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

　　Private Sub Command2_Click()

　　'需考生编写

　　Max = a(1)

　　Min = a(1)

　　For i = 2 To 100

　　If isnarc(a(i)) = True Then

　　If a(i) > Max Then Max = a(i)

　　If a(i) < Min Then Min = a(i)

　　End If

　　Next

　　Text1.Text = Max

　　Text2.Text = Min

　　End Sub

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

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

　　(2)在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合框，名称为cb1，并输入三个列表项：“3”、“7”、“11”(列表项的顺序不限，但必须是这3个数字);画一个名为Text1的文本框;再画一个标题为“计算”、名称为C1的命令按钮。如图所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入 Text1中。最后，按原文件名存盘。

　　提示：由于计算结果较大，应使用长整型变量。

　　注意：

　　考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。

　　解题思路：

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

　　由于所提供的窗体控件不完整，需在该窗体上画一个组合框控件，通过其属性窗口将名称设为cb1，向组合框控件添加列表项(List属性)，添加的列表项分别为3、7、11，每个列表项为一行，顺序无关。画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题(Caption属性)设为“计算”。

　　由于所提供的窗体程序不完整，需添加事件过程。

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

　　Private Sub C1_Click()

　　Dim n As Integer, k As Integer, s As Long

　　n = Val(Cb1.Text)

　　s = 0

　　For k = n To 5000

　　If k / n = Int(k / n) Then

　　s = s + k

　　End If

　　Next k

　　Text1.Text = s

　　End Sub

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

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

　　相关推荐：

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

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

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