首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
admin
2020-06-30
60
问题
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的第4项。再用数列的最后两项相乘,用上述规则形成后面的项,直至产生了第n项。窗体上部从左到右3个文本框的名称分别为Text1、Text2、Text3,窗体下部的文本框名称为Text4。程序运行时。在Text1、Text2中输入数列的前两项,Text3中输入要产生的项数n,单击“计算”按钮则产生此数列的前n项,并显示在Text4中。如图所示。
已经给出了全部控件,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Commandl_Click() Text4="" a=Va1(Text1) b=Va1(Text2) n=Va1(Text3) Text4=Text4&a&""&b ’文本框Text4中第二项的内容一定是b k=2 Do While k
n时,则数列数已够,不用求下一项 d=C Mod 10 Text4=Text4&""&d b=d’将余数作为下一次循环的后一项 End If End If Loop End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Text3的数值是数列的项数,定义一个变量k,前两项已经确定,因此k的取值范围为3~n,先计算前两项的积,判断是否小于10.如果乘积小于10,则以此乘积作为数列的第3项数,如果乘积大于等于10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的第4项,再用数列的最后2项相乘,运用循环语句,用上述规则形成后面的项,直至产生了第n项。在这里运用的是Do while语句,与For语句有所不同,要注意区分。
转载请注明原文地址:https://kaotiyun.com/show/kBHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
现有如下语句:x=IIf(a>50,Int(a\3),aMod2)当a=52时,x的值是( )。
要将单选按钮Opt1设为被选中,应设置的属性是
数据流图中带有箭头的线段表示的是()。
下列操作说明中,错误的是( )。
在窗体上画一个名为Commandl的命令按钮,然后编写以下程序:PrivateSubCommandl—Click()DimM(10)AsIntegerFork:lTo10M(k)=12-kNe
在某个事件过程中定义的变量是( )。
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
设x中有一个任意实数,下面表达式中结果不等于x绝对值的是()。
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
能得到组合框Combol中最后一个列表项序号的表达式是()。
随机试题
污染的锐器必须置入
改良Widman术的适应症是
气滞血瘀型痛经的特点是
张某,男,29岁,因在操作机器时不慎伤及右手,突然昏厥不省人事,针灸治法为()
材料的抗弯强度与试件的以下哪些条件有关?[1998-005]I.受力情况Ⅱ.材料重量Ⅲ.截面形状Ⅳ.支承条件
按金融工具的确认和计量准则的规定,购买长期债券投资准备持有至到期且有能力持有至到期时,支付的交易费用应该计入()科目。
Jimwasabsentfromschoolforthewholeweek________abadcold.
Peoplesometimeswonderabouthowtoensurefamily’sfinancialwell-being.Fora【C1】______varietyofpurposes,familyfinancial
A、60dollars.B、Beautiful.C、Overthere.D、Thelateststyle.A询问价格,“这件衬衣多少钱?”,正确回答是A,“60美元”。
TheSeattleTimesCompanyisonenewspaperfirmthathasrecognizedtheneedforchangeanddonesomethingaboutit.Inthenews
最新回复
(
0
)