题目
用VB写设计程序代码,求：s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值. 要求用DO循环
提问时间：2021-03-14
答案
在窗体放一个按钮
Private Sub Command1_Click()
Dim n As Long,i As Long,sum As Double,sum0 As Double
n = Val(InputBox("输入一个正整数"))
Do While i
Private Sub Command1_Click()
Dim n As Long,i As Long,sum As Double,sum0 As Double
n = Val(InputBox("输入一个正整数"))
Do While i
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1八年前父亲的年龄是儿子的4倍,八年后父亲的年龄是儿子的2倍,求父亲现在的年龄是多少?
- 2知道标准摩尔吉布斯自由能变怎么计算溶度积常数?
- 3自行车的车轮外直径是0.6米.如果它每分钟转100圈,通过一坐长753.6米的桥,需要多少分钟?
- 4例如英中文"李"不是 Li 而是 Lee ,那"周"又怎么拼写哪?
- 5把201^2-52^2+253x851 因式分解计算
- 663/(3.5*9) ("/"代表除号 “*”代表乘号）
- 7what a nice present it is!主语是什么
- 8this book is better than the other two.写出同义句
- 9求救一道小学语文题——照例句造句
- 10身高：5’10”
热门考点
- 1Do you want__[join]all the clubs英语用适当形式完成句子,急
- 2为什么俄国1861年革命和日本的明治维新会成功而中国的戊戌变法会失败
- 3谁帮出一套初一英语试题
- 4童话故事作文350字四年级
- 5在1升水中配浓度为百分之4的十二烷基硫酸钠水溶液?须要多少克十二烷基硫酸钠?怎么计算?
- 6所有金属都能与氧气发生氧化反应,生成金属氧化物?
- 7一般过去时的构成
- 8灌砂法测压实度计算步骤
- 9设X~N(0,σ^2),N(0,4σ^2),而且P{X≤1,Y≤-2}=1/4,则概率P{X>1,Y>-2}=?
- 1077°42’+34°45’=?108°18’-56°-56°23’=?73°22’48”=?