求求 用VB编程帮我做1+11+111+1111+11111的和跪谢！！
答案:2 悬赏:60 手机版
解决时间 2021-11-29 11:56
- 提问者网友：几叶到寒
- 2021-11-28 16:46
求求 用VB编程帮我做1+11+111+1111+11111的和跪谢！！
最佳答案
- 五星知识达人网友：冷風如刀
- 2021-11-28 17:19
刚才少了个"",这次没问题了 点击窗体开始运行
Private Sub form_click()
n = Val(InputBox("N"))
For i = 1 To n
s = Val(String(i, "1")) + s
Next i
Print s
End Sub
Private Sub form_click()
n = Val(InputBox("N"))
For i = 1 To n
s = Val(String(i, "1")) + s
Next i
Print s
End Sub
全部回答
- 1楼网友：一叶十三刺
- 2021-11-28 18:13
太简单了吧!
Private Sub Form_Load()
Label1.Caption = Str(1 + 11 +
Private Sub Form_Load()
Label1.Caption = Str(1 + 11 +
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯