首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
admin
2020-07-22
49
问题
在考生文件夹下有一个工程文件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=Val(Text1) b=Val(Text2) n=Val(Text3) Text4=Text4&a&“”&b ’文本框Text4中第二项的内容一定是b k=2 Do While k<n c=a*b k=k+1 If c<10 Then‘判断乘积是否小于10 Text4=Text4&“”&c’若小于10,则直接接到Text4文本末尾 a=b’将b赋给a成为下一次循环的前一项 b=c’将c作为下一次循环的后一项 Else d=c\10’当c大于10,则取整 Text4=Text4&””&d a=d’将十位数作为下一次循环的前一项 k=k+l If k<=n Then ’当k>n时,则数列数已够,不用求下一项 d=c Mod 10 Text4=Text4&””&d b=d ’将余数作为下一次循环的后一项 End If End If Loop End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/KjHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:PrivateSubCommand1_Click() CD1.DialogTitle="打开文件" CD1.InitDir="C:" CD1.Filte
有下面程序代码:PrivateSubCommand1_Click()DimkAsIntegerFork=1To3Callfun(k)NextkFork=1To3
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) PrintText1.Text;EndSub运行程序,
在窗体上没有进行任何属性设置,然后编写如下事件过程,则程序运行结果是()。PriVateSubFormLoad()Fori=1To10sum=sum+iNextiPrint"Sum=":sumEndSu
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是
在窗体上画一个名称为Combo1的组合框,名称为Text1的文本框,以及名称为Command1的命令按钮,如图所示。运行程序,单击命令按钮,将文本框中被选中的文本添加到组合框中,若文本框中没有选中的文本,则将文本框中的文本全部添加到组合框中。命令按钮的
编写如下程序:DimnumAsInteger,rAsInteger,nAsInteger,iAsIntegerDimarr(5)AsIntegerPrivateSubCommand1_Click()
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是
随机试题
下列中属于渗透性利尿的是()。
下列带点的字解释错误的是
男性,55岁。有慢性支气管炎病史10多年,1周来出现高热,咳嗽、咳痰加重,痰液黏稠呈砖红色胶冻状。该患者最可能的诊断是
患者,男,42岁。左下肢静脉曲张15年,逐渐加重。查体:左小腿大隐静脉重度曲张,胫前凹陷性肿胀。了解深静脉瓣膜功能的损害程度采用
患者,女性,36岁,诊断为特发性血小板减少性紫癜,入院后告知患者禁用的药物是()
暂定金额由()批准使用。
某工程实行公开招标,招标文件规定,投标人提交投标文件截止时间为3月22日下午5点整。投标人D由于交通拥堵于3月22日下午5点10分送达投标文件,其后果是()。
基金净值收益率的计算方法不包括()
某企业为增值税一般纳税人,2019年9月经营状况如下:(1)生产食用酒精一批,将其中的50%用于销售,开具的增值税专用发票注明金额10万元、税额1.3万元。(2)将剩余50%的食用酒精作为酒基,加入食品添加剂调制成38度的配制酒,当月全部销售,
StellaWemightmarvelattheprogressmadeineveryfieldofstudy,butthemethodsoftestingaperson’sknowledgeandabi
最新回复
(
0
)