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

admin2019-01-16  30

问题 在考生目录下有一个工程文件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://kaotiyun.com/show/quFp777K
0

最新回复(0)