Private Sub Command1_Click()
Dim s As Long, n As Long
n = 2s = 1Do While s <= 400000
s = s * n ^ nLabel2.Caption = s
Label1.Caption = nn = n + 1
Loop
n = n - 2
Label3.Caption = n
End Sub
收起
当前问题酬金
¥ 0 (可追加 ¥500)
支付方式
扫码支付
支付金额 15 元
提供问题酬金的用户不参与问题酬金结算和分配
支付即为同意 《付费问题酬金结算规则》
代码格式最好调成markdown语法的,```你的代码 ```。你这个没有说明什么语言,什么情况下的操作。
报告相同问题?