首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
admin
2020-06-30
63
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
结构化程序设计的基本原则不包括( )。
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
设a=4,b=5,c=6,执行语句Printa
用Write和Print语句向文件中写入多个数据的差别在于()。
如图5所示,在列表框Listl中已经有若干人的简单信息,运行时在Textl文本框(即”查找对象”右边的文本框)中输入一个姓或姓名,单击”查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=p2(p1(
线性表常采用的两种存储结构是()。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
假定有以下程序段Fori=1To3Fori=5To1Step—1Printi*iNextjNexti则语句Printi*j的执行次数是
设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Commandl的命令按钮。Forml的代码如下:PublicxAsIntegerPriv
随机试题
验型是保证大型铸件质量、防止铸件产生缺陷所必需的重要工艺操作。但验型容易损坏砂型,所以合型后开型的次数以()次为宜。
设a是一个常数,且f(x)=a,则函数f(x)在点x0处().
波长为λ的X射线,投射到晶格常数为d的晶体上,取k=1,2,3,…,出现X射线衍射加强的衍射角θ(衍射的X射线与晶面的夹角)满足的公式为()。
当均质土坝或心墙坝施工质量不好,坝体坝基渗漏严重,可采用()处理。
债权人与债务人应当在合同中约定,债权人留置财产后,债务人履行债务的期限应当不少于()。
注册会计师运用分析程序的基础就是利用分析()各因素的内在关系。
2013年10月31日,甲公司应收乙公司的一笔货款500万元到期,由于乙公司发生财务困难该笔贷款预计在短期内容无法回收。甲公司已为该债权计提坏账准备100万元。当日甲公司就该项债权与乙公司进行协商,下列协商方案中,属于甲公司债务重组的有()。
A:Todaywearegoingtotalkaboutagreatinvention.Itlookslikeahumanbeing.【T1】________B:It’sarobot.【T2】________
梁朝简文帝诗云:“紫燕跃武,赤兔越空。”两句中赤兔指良马,紫燕亦指良马。李善注谢灵运诗云:“文帝自代还,有良马九匹,一名飞燕骝。”在古代,武威铜马足下的飞燕无疑是用来比喻良马之神速。这种造型让人一看便知其意,所以铜马应直截了当取名为“紫燕骝”或“飞燕骝”,
Themoneyisthere.Sowhyisitnotbeingspent?Thatisthebigpuzzleabouttherichworld’seffortstoimprovehealthinpoo
最新回复
(
0
)