首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
admin
2020-07-22
74
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
下列说法中,错误的是
设a=2,b=3,C=4,d=5,下列表达式的值是()。a>bAndCc
以下关于多重窗体程序的叙述中,错误的是( )。
以下关于文件的叙述中,错误的是()。
下列关于窗体的描述中,错误的是()。
以下关于VB特点的叙述中,错误的是( )。
在面向对象的程序设计中,可被对象识别的动作称为()。
产生100以内(不含100)2位随机整数的VisualBasic表达式是()。
随机试题
考虑可能的诊断为若为进一步确诊,给患儿做以下辅助检查,结果为:血清铁蛋白(SF)低于10μg/L,血清铁(S1)低于50μg/L,总铁结合力(TIBC)大于62.7μmol/L,红细胞游离原卟啉(FEP)大于0.9μmol/L,骨髓铁粒幼细胞减少,<1
[2010年第71题]施工现场安全由以下哪家单位负责?
验算裸导体短路热效应的计算时间,采用的时间是什么?
国际债券的发行人主要包括()
拔髓术操作不合要求的是()。
就国家对法的作用来说,能影响以至决定法的形式的最主要的因素是()。
若一条二次曲线把(-∞,0)内的曲线段y=ex和(1,+∞)内的曲线段连接成一条一阶可导的曲线,则定义在[0,1]上的这条二次曲线为_________________________。
有以下程序:#includemain(){printf(“%d\n”,NULL);}程序运行后的输出结果是()。
软件设计中模块划分应遵循的准则是( )。
Internet(因特网)useseemstocauseadecline(下降)inpsychological(心理的)health,whichisreportedbyastudy.Evenpeoplewho
最新回复
(
0
)