首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
admin
2019-06-24
25
问题
在考生文件夹下有一个工程文件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 Command1_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+1 If k<=
n
Then ’当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/1qUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。在横线处应填写()。PrivateSubCommand1_Click()DiminDataAsStringText1.T
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。设有如下的类型声明:TypePersonnameAsString*8majorAsString*20EndType当单击命令按钮时,将两个文本
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个标签,名称为L1,标题为“业余爱好”,再画一个名称为Ch1的复选框数组,含三个复选框,它们的Index属性分别为0、1、2,标题依次为“体
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text
现有如下一段程序:PrivateSubCommand1_Click()x=UCase(InputBox(”输入:“))SelectCasexCase"A"To"C"Print"考核通过!"
编写如下程序:PrivateSubCommand1_Click()DimscoreAsIntegerscore=86Ifscore>85Thenr=1ElseIfscore>60
设有如下数组定义语句:Dima(-1To4,3)AsInteger以下叙述中正确的是
以下关于控件的叙述中,正确的是
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
在VisualBasic中,表达式3*2\5Mod3的值是
随机试题
在我国的教育法体系中,全部教育法规的“母法”是()
公共关系公司的咨询诊断业务
氨茶碱属于
A.责令停产、停业整顿,并处5000元以上2万元以下的罚款B.处2万元以上10万元以下的罚款C.处1万元以上3万元以下的罚款D.处违法生产的药品货值金额2倍以上5倍以下的罚款E.处违法生产的药品货值金额1倍以上3倍以下的罚款未取得《药品
某女,62岁,慢性精神病患者,认为一著名节目主持人播放当地新闻时劝说她去做坏事,并且只有她自己能够明白。请问这是什么精神症状?
施工项目成本管理需要采取各种措施,属于成本管理经济措施的有()。
未分配利润将转入下期分配。()
劳动群众集体所有制经济是由()共同占有生产资料的一种公有制形式。
Anyonegoingintoabar,whetherthey______suspicionornot,willbeaskedtotakeatest,whichhighlightsanydruguse.
VirusesFindNewWaystoWormintoComputersJustwhenyouthoughtyouknewacomputervirusorwormwhenyousawone,seve
最新回复
(
0
)