编写程序：用InputBox 函数输入一个整数，求1到这个数的奇数和S
答案:1 悬赏:0 手机版
解决时间 2021-05-02 16:18
- 提问者网友：藍了天白赴美
- 2021-05-02 10:46
编写程序：用InputBox 函数输入一个整数，求1到这个数的奇数和S
最佳答案
- 五星知识达人网友：渡鹤影
- 2021-05-02 11:24
Private Sub Command1_Click()
n = CInt(InputBox("请输入n:"))
For i = 1 To n
If i Mod 2 <> 0 Then
s = s + i
End If
Next i
MsgBox "1到" & n & "之间的奇数之和是:" & s
End Sub
n = CInt(InputBox("请输入n:"))
For i = 1 To n
If i Mod 2 <> 0 Then
s = s + i
End If
Next i
MsgBox "1到" & n & "之间的奇数之和是:" & s
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯