191问答库 > 设计一个算法,求1+3⼀2+4⼀3+5⼀4+……+n+1⼀n的值，并画出相应的程序框图和写出相应的程序

设计一个算法,求1+3⼀2+4⼀3+5⼀4+……+n+1⼀n的值，并画出相应的程序框图和写出相应的程序

2025-02-24 22:36:45

推荐回答（2个）

回答1：

Rem 语言：Visual Basic 6.0
Sub Main() '开始
n = Val(InputBox("请输入n=", "输入"))
S = 1 : i = 2
Do
    S = S + (i + 1) / i
    If Not (i < n) Then Exit Do
    i = i + 1
Loop
MsgBox S, vbInformation, "输出"
End Sub '结束

回答2：

vb程序可以吗

最新问答

脸大的女人适合什么样的烫发发型

“风能进，雨能进，国王不能进”，这是对英国国王的权力和公民的权利进行的描述。这一描述发生在哪个文献

罗技g433耳机怎么调7.1吃鸡设置

哪位高人能给我的孩子根据五行姓名学等起一个好名字。男孩2011年6月27日12:28（阴历）出生。父姓杨母姓邱

正宗燕窝多少钱一斤

做仰卧起坐后，第二天肚子开始疼，今天第三天了。腰直起来肚子就非常疼。怎么办？