vb编写程序，输出满足1＋2+3+..+n＜9876543210的最大正整数n。求代码，求
答案:2 悬赏:50
解决时间 2021-11-11 02:23
- 提问者网友：月葬花瑰
- 2021-11-10 19:37
程序运行界面截图，谢谢各位大神了
最佳答案
- 二级知识专家网友：初心未变
- 2021-11-10 20:20
Private Sub Command1_Click()
Dim a, n
For n = 1 To 9876543210#
a = n + a
If a > 9876543210# Then
n = n - 1
Exit For
End If
Next
Debug.Print n
End Sub
Dim a, n
For n = 1 To 9876543210#
a = n + a
If a > 9876543210# Then
n = n - 1
Exit For
End If
Next
Debug.Print n
End Sub
全部回答
- 1楼网友：旧事诱惑
- 2021-11-10 20:29
dim str as string = "", sum as integer = 0
dim n as integer = 1
do until sum > 8888
sum = sum + n
n = n + 1
loop
textbox6.text = n - 2运行结果：
n=132
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯