2013年9月全国计算机等级考试二级VB无纸化上机题题库题干及答案解析

x = Int(a(i) / 100) y = Int((a(i) - x * 100) / 10) z = a(i) - x * 100 - y * 10 If a(i) = x ^ 3 + y ^ 3 + z ^ 3 Then
sum = sum + a(i) n=n+1 End If Next txtResult.Text = Int(sum / n) 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按<F5>运行程序，先单击"读数"按钮，接着 单击"计算"按钮，然后单击窗体右上角的关闭按钮结束程 序。
【审题分析】本题只需按要求画出控件并设置相关属 性即可。
【操作步骤】 步骤1：新建一个"标准EXE"工程，按表1在窗体中画 出控件并设置其相关属性。
表1
步骤2：按要求将文件保存至考生文件夹中。
第2小题 【知识点播】①在程序设计时通过属性设置窗口中的 Font属性可设置控件标题文本的字体、字号、字形等。② FontName属性用于设置程序运行时在控件中显示文本的字 体 ， FontSize 属 性 、 FontBold 属 性 、 FontItalic 属 性 、 FontStrikethru属性和FontUnderline属性可分别用来设置字 体的大小和样式。 【审题分析】要实现本题所要求的功能，应在水平滚 动条的Change事件过程中，通过代码设置文本框的FontSize 属性值等于水平滚动条的Value属性值。 【操作步骤】 步骤1：新建一个"标准EXE"工程，按表2在窗体中画 出控件并设置其相关属性。
【主要考点】计时器控件。 第2小题 【知识点播】①列表框的MultiSelect属性用于设置是 否可在列表项中做多个选择，值为0（缺省设置）表示不允 许做多项选择，值为1表示允许做简单多项选择，值为2表 示允许配合使用Shift、Ctrl键做多项选择；Selected(Index) 属性用于设置或返回指定索引号（从0开始）列表项的选择 状 态 ， 值 为 True 表 示 被 选 中 ， 值 为 False 表 示 未 被 选 中 ； ListIndex可用于设置或返回在列表框中当前选择项目的索 引号。②列表框的Selected(Index)属性用于设置或返回指定 索引号列表项的选中状态，值为True时表示被选中，值为 False时表示未被选中，Index（索引号）值从0开始。List(Index) 属性用于设置或返回指定索引号列表项的内容。ListCount 属性用来返回列表框中当前的列表项项数。 【审题分析】程序设计思路：在"显示"按钮的单击事 件过程中，使用For循环语句逐一判断列表框中的各项是否 被选中，If语句的条件表达式为：lstItem.Selected(i) = True， 用Print方法将选中的列表项显示在窗体上。为与列表框的项 目索引号保持一致，循环变量的初始值应为0，终值应为 lstItem.ListCount-1。为使列表框在运行时可以多选，应将其 MultiSelect属性值设置为1-simple。 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj4.vbp， 将列表框的MultiSelect属性值设置为1-simple。 步骤2：在代码编辑窗口，去掉程序中的注释符"'"， 将问号"？"改为正确的内容。 参考代码：
Select Case cboFun.Text Case "Sin" txtResult.Text = Int(Sin(Val _
(txtInput.Text)*3.14159/180) *1000)/1000 Case "Cos"
txtResult.Text = Int(Cos(Val _
(txtInput.Text)*3.14159/180)*1000)/1000 End Select
End Sub 步骤4：按<F5>键运行程序，在左侧文本框中输入 "40"，选择不同选项，单击"计算"按钮。 步骤5：单击窗体右上角的关闭按钮以结束程序。 步骤6：按要求将文件保存至考生文件夹中。 【提示】本题程序运行时，单击窗体右上角的关闭按 钮将输出计算结果到文件out3.txt中，并以其判断程序编写 是否正确。 第2小题 【知识点播】通常把循环体内不再含有循环语句的循 环叫做单层循环，而把循环体内含有循环语句的循环称为 多重循环。例如在循环体内含有一个循环语句的循环称为 二重循环。多重循环又称多层循环或嵌套循环。 【审题分析】程序设计思路：按顺序让1~500中的每 一个数都与它之后的所有的数逐一相加，在相加过程中若 累加和等于或超过1250时，则停止该组数继续相加，并将 和等于1250的该组数的开头和结尾的数按题目要求输出。 源程序使用嵌套For循环完成上述功能，变量iSum用于记录 每组数累加时的和，其初值应为0；表达式iSum = iSum + j 用于实现累加功能；当累加和正好等于1250时，输出该组 数的开头和结尾的数，即i和j。 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj4.vbp， 在代码编辑窗口，去掉程序中的注释符"'"，将问号"？"改为 正确的内容。 参考代码： iSum = 0 iSum = iSum + j If iSum = 1250 Then
第八十二套上机答案解析105
一、基本操作题 第1小题 【知识点播】列表框控件（ListBox）用于显示可供单
一或多个选择的列表项，给列表框添加列表项既可以在设 计阶段通过其List属性设置加入（注意：每输入完一项后按 <Ctrl+Enter>键换行再输入下一项），也可在程序运行时使用 AddItem方法加入。Style属性：该属性用于设置列表框的外 观，值为0以默认标准样式显示，值为1以复选框样式显示。
【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj5.vbp， 在代码编辑窗口指定位置编写以下代码： 参考代码： Dim sum As Integer Dim n As Integer Dim x As Integer Dim y As Integer Dim z As Integer For i = 1 To 100
表2
步骤2：打开代码编辑窗口，编写hsbWord的Change 事件过程。
参考代码： Private Sub hsbWord_Change()
txtWord.FontSize = hsbWord.Value End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】水平滚动条、文本框。 二、简单应用题 第1小题 【知识点播】标签控件（Label）常用于显示用户不能 直接改变的信息，Caption属性用来设置其显示的文本。标 签的BorderStyle属性用于设置标签的边框样式，值为0表示 无边框，值为1表示有固定单边框。 【审题分析】根据题目要求，要在程序运行时能每隔 1秒，标签中的数字加1，需将计时器的Interval属性值设置 为1000毫秒，Enabled属性值设置为True，在计时器的Timer 事件过程中将标签中的数值加1。 【操作步骤】 步骤1：新建一个"标准EXE"工程，按表3在窗体中画 出控件并设置其相关属性。
上机题答案解析
第八十一套上机答案解析104
一、基本操作题 第1小题 【知识点播】通用对话框的DialogTitle属性用于返回
或设置该对话框标题栏上所显示的文本。 【审题分析】要在单击按钮时弹出"打开文件"对话
框，只需在"打开"按钮的Click事件过程中调用通用对话框 的ShowOpen方法即可。
【操作步骤】 步骤1：新建一个"标准EXE"工程，选择【工程】→【部 件】命令，打开"部件"对话框，从其列表中选中"MicroSoft Common Dialog Control6.0"项目，单击"确定"按钮。 步骤2：在窗体Form1中加入一个命令按钮和一个通用 对话框，其相关属性设置如表1所示。
表3
步骤2：双击窗体上的计时器控件，在其Timer事件过 程中加入以下代码： 参考代码： Private Sub tmrClock_Timer()
lblClock.Caption=Val(lblClock.Caption)+1 End Sub 步骤3：按要求将文件保存至考生文件夹中。
【特别提示】常通过计时器来完成一些重复的有规律 性的任务。
一个图片框和一个水平滚动条，在属性设置窗口中设置其 相关属性，属性及其值如表2所示。
表2
步骤2：打开代码编辑窗口，分别编写命令按钮的Click 事件过程和垂直滚动条的Change事件过程。
参考代码： Private Sub cmdSet_Click()
Vsb1.Min = 100 Vsb1.Max = 2400 rgeChange = 200 Vsb1.SmallChange = 20 End Sub Private Sub Vsb1_Change() Pic1.Height = Vsb1.Value End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】滚动条控件。 二、简单应用题 第1小题 【知识点播】①Alignment属性用于确定文本框中文本 的放置方式，其值可以设置为0（靠左，默认）、1（靠右） 或2（居中）。②组合框（ComboBox）将文本框与列表框的 特性组合在一起，既可在组合框的文本框部分输入信息， 也可在列表框部分选择项目，其Text属性可返回列表框中当 前选中项目的内容。③Int取整函数用于删除所给数的小数 部分而返回剩下的整数。④Sin(N)正弦函数用于返回N的正 弦值，Cos(N)余弦函数用于返回N的余弦值，其中参数N应 为弧度。⑤多分支控制结构也称为Select Case语句或Case语 句，它和If语句差不多，都是对一个条件的结果判断后再进 行操作，它们的区别是前者只对单个条件来判断，后者则 可以对多个条件来判断。Select Case语句的格式如下： Select Case变量或表达式 Case 表达式列表1