2. 计算机
  3. 在考生目录下有一个工程文件vbsj5.vbp。其功能是产生并显示一个数列的前n 项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积＜10，则以此乘积作为数列的第3项；若乘积＞＝10，则以乘积的十位数为数列的第3项，以乘积的个位数为数

在考生目录下有一个工程文件vbsj5.vbp。其功能是产生并显示一个数列的前n 项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积＜10，则以此乘积作为数列的第3项；若乘积＞＝10，则以乘积的十位数为数列的第3项，以乘积的个位数为数

admin2019-01-16  60
问题 在考生目录下有一个工程文件vbsj5.vbp。其功能是产生并显示一个数列的前n 项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积＜10，则以此乘积作为数列的第3项；若乘积＞＝10，则以乘积的十位数为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后2项相乘，用上述规则形成后面的项，直至产生了第n 项。窗体上部从左到右3个文本框的名称分别为：txtFir、txtSec、txtNum，窗体下部的文本框名称为txtList。程序运行时，在txtFir、txtSec中输入数列的前两项，txtNum中输入要产生的项数n，单击“计算”按钮则产生此数列的前n项，并显示在txtList 中。如图1－337所示。

    已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。
    注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。
    程序源码：
    Private Sub cmdCal_Click()
    txtList ＝"" : a ＝ Val(txtFir)
    b = Val(txtSec) : n ＝ Val(txtNum)
    ’  txtList ＝ txtList & a & "  " & ?
    k ＝ 2
    Do While k ＜n
    c＝a * b : k ＝ k ＋1
    If c ＜10 Then
    txtList ＝ txtList & "  "
    & c
    ’   a ＝ ?
    b ＝ c
    Else
    d ＝ c \ 10
    txtList ＝ txtList & "  "
    & d
    a ＝ d
    k ＝ k + 1
    ’   If k ＜＝ Then
    d ＝ c Mod 10
    txtList ＝ txtList & "
    " & d
    ’    ? ＝ d
    End If
    End If
    Loop
    End Sub
选项
答案【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符 “’”，将问号“?”改为正确的内容。 参考代码： txtList ＝ txtList & a & " " & b a ＝ b If k ＜＝ n Then b ＝ d 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/quFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)