vb中求N1到N2自然数的和
答案:1 悬赏:10
解决时间 2021-11-08 17:36
- 提问者网友：浩歌待明月
- 2021-11-07 23:14
vb中求N1到N2自然数的和
最佳答案
- 二级知识专家网友：由着我着迷
- 2021-11-08 00:13
Private Sub Command1_Click()Dim n1, n2, buf, mid, result As Integern1 = Val(Text1.Text)n2 = Val(Text2.Text)buf = 0result = 0'先判断要累加多少次For i = n1 To n2 buf = buf + 1Next iMsgBox bufmid = Int(buf / 2)'判断个数是否偶数If (buf Mod 2 = 0) Then result = (n1 + n2) * midIf (buf Mod 2 = 1) Then result = (n1 + n2) * mid + (n1 + mid)MsgBox midMsgBox resultEnd Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息