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

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

本文导航
  • 第1页:1. 基本操作
  • 第2页:2. 简单应用
  • 第3页:3. 综合应用

  3. 综合应用(1小题,计30分)

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

  在考生目录下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。 数列产生的规律是:数列的前2项是小于10的正整数,将此2数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积>=10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的第4项。再用数列的最后2项相乘,用上述规则形成后面的项,直至产生了第n项。窗体上部从左到右3个文本框的名称分别为:Text1、Text2、Text3,窗体下部的文本框名称为Text4。程序运行时, 在Text1、Text2中输入数列的前两项,Text3中输入要产生的项数n, 单击“计算”按钮则产生此数列的前n项,并显示在Text4中。如图所示。

  已经给出了全部控件,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。

  注意:

  不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。

  解题思路:

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

  由于所提供的窗体控件不完整,在“计算”按钮的Private Sub Command1_Click()事件过程中,有四处地方需要修改。

  1) 将语句

  'Text4 = Text4 & a & " " & ?

  改为

  Text4 = Text4 & a & " " & b

  2) 将语句

  'a = ?

  改为

  a = b

  3) 将语句

  'If k <= ? Then

  改为

  If k <= n Then

  4) 将语句

  '? = d

  改为

  b = d

  参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt5.vbp、sjt5.frm、sjt5.vbw

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

上一页123下一页

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答