首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。 例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。 Private Sub Command1_Click()
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。 例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。 Private Sub Command1_Click()
admin
2012-03-22
22
问题
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer,n As Integer,Cout As Integer
Dim Sn As Long,Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值:")
_____
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
______
Debug.Print a,n,Sn
End Sub
选项
答案
n=InputBox("请输入n的值!") Loop while Cout<=n或Loop Until Cout=n+1
解析
转载请注明原文地址:https://kaotiyun.com/show/oGhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列命令中,______能为远程对象生成stub和skeleton。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Text1.Text="Visual" Me.Text1="Basic"
以下Case语句中错误的是
阅读程序:OptionBase1PrivateSubForm_Click()Dima(3)AsIntegerPrint“输入的数据是:”;Fori=1To3a(i)=InputBox(“输人数据”)Printa(i);
把窗体的KeyPreview属性设置为True,并编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintKeyCode;
在窗体上画一个命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1
以下声明语句中错误的是_________。
在深度为5的满二叉树中,叶子结点的个数为
下列有关子菜单的说法中,错误的是
引用列表框(List1)最后一个数据项应使用
随机试题
[*]
性联低丙种球蛋白血症的特点有
关于药物制剂稳定性的叙述,正确的是
呼吸性酸中毒最先应解决的问题
下列不属于生产安全事故调查统计报告范围的是()。
我某进出口公司与德国某贸易有限公司订立了一份出口“龙口粉丝”的合同,凭样品买卖,支付方式为货到目的港验收后付款。当到货经买方验收后发现货物品质与样品不符,德商即决定退货并拒绝提货。后来,货物因保管不妥完全变质,且德国海关向我收取仓储费及变质商品处理费共3万
某企业项目要求的最低报酬率为10%,净现值为50万元,则该项目内含报酬率会()。
互质的两个数()。
在VisualFoxPro中,代码片段是指
IfachildsayshedreamsofwinningaNobelPrize,youshouldencouragehiminsteadoflaughingathim.
最新回复
(
0
)