首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
在考生文件夹下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此两数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数列的
admin
2019-03-14
38
问题
在考生文件夹下有一个工程文件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 & " " & ? k = 2 Do While k < n c = a * b k = k + 1 If c < 10 Then Text4 = Text4 & " " & c ’ a = ? b = c Else d = c \ 10 Text4 = Text4 & " " & d a = d k = k + 1 ’ If k <= ? Then d = c Mod 10 Text4 = Text4 & " " & d ’ ? = d End If End If Loop End Sub 程序结束 参考答案 第1个?处填入:b 第2个?处填入:b 第3个?处填入:n 第4个?处填入:b 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/bzUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click() DimiAsInteger,jAsInteger n=InputBox("输入一个大于1的正整数") Fori=2Ton Forj=2To
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
以下叙述中错误的是
编写如下程序:PrivateSubCommand1Click()n=InputBox(“输入一个数”)DoWhilen0Printn\10MOd10;:PrintnMod10;:11=n\100LoopPrintsE
在标准模块中用Public关键字定义的变量,其作用域为
VB中,若没有显式声明变量的数据类型,则默认的类型是
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下面图符名标识的图符不属于数据流图合法图符的是
数据库管理系统中负责数据模式定义的语言是
下列关于线性链表的描述中,正确的是()。I、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
随机试题
摘要属于市场研究报告的哪一部分()
极重型乙脑经常死于()
牙周-牙髓联合病变的典型例子是
将交流电转换成直流电的设备是()。
在国际货物买卖合同中,关于检验的时间和地点的规定,基本做法有()。
以协调员工个人成长和企业发展需求两者之间关系为目的的人力资源规划是()。
设备利用率高的生产类型是()生产。
设A是4阶矩阵,且A的行列式|A|=0,则A中
Themanagerdoesn’tthinkitagoodideaandIdon’t______.
Frankly,Ihopethatwecandevelopa______qualityproduct.
最新回复
(
0
)