首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
admin
2019-06-24
58
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下面的程序执行完毕后,组合框中数据项的值是()。PrivateSubForm_Click()Fori=1To6Combo1.AddItemiNextiFori=1To3Combo1.RemoveItemiNextiE
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框,表项内容依次输入xxx、ddd、mmm和aaa,且以宋体14号字显示表项内容,如图3—10
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow
现有如下一段程序:PrivateSubCommand1_Click()x=UCase(InputBox(”输入:“))SelectCasexCase"A"To"C"Print"考核通过!"
现有语句:y=IIf(x>0,xMod3,0)设x=10,则y的值是
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为“计算”的命令按钮Command1,并编写了以下下程序:PrivateSubCommand1_Click()EndSubPublicSubcalc
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a中;②单击“统计”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整
在深度为7的满二叉树中,叶子结点的个数为
数学式y2>x>10在VB中应表示为
在窗体上有1个名为Cd1的通用对话框,为了在运行程序是时打开保存文件对话框,险则在程序中应使用的语句是
随机试题
滑石粉炒制时,每100公斤药物用滑石
某机械厂单跨厂房,内有2台Q=20/5t软钩吊车,工作级别A6(重级工作制),每台吊车有4轮,一边轨道上最大轮压Pk,max=230kN,按《钢结构设计规范》GB50017—2003第3.2.2条,考虑吊车摆动(卡轨)引起的横,向水平力作用在一边吊车梁上的
下列各项中,关于代理记账论述错误的是()。
情景分析有助于金融机构深刻理解并预测在多种风险因素共同作用下,其整体流动性风险()出现的不同状况。
以烧造兔毫纹、油滴等黑釉茶盏闻名于世的宋代名窑是()
假如我是民政局局长要求:除诗词外,文体不限,字数1000字左右。
Runningmaybethesinglemosteffectiveexercisetoincreaselifeexpectancy,accordingtoanewreviewandanalysisofpastre
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。PrivateSubCommand1_Click()
如果一个字段在多数情况下取一个固定的值,可以将这个值设置成字段的
Broadlyspeaking,theEnglishmanisaquiet,shy,reservedpersonwhoisfully【21】______onlyamongpeopleheknowswell.
最新回复
(
0
)