求帮忙解答这道题目 急!!! 必有重赏
计算10以内数的累加和程序Dim i,k sum as integer
答案:2 悬赏:70
解决时间 2021-04-09 12:29
- 提问者网友:冥界祭月
- 2021-04-08 19:17
最佳答案
- 二级知识专家网友:厭世為王
- 2021-04-08 19:39
text
0
sum + i
i+1
sum
0
sum + i
i+1
sum
全部回答
- 1楼网友:我们只是兮以城空
- 2021-04-08 21:03
在窗体上放一个文本框,放一个按钮
文本框中输入你的数据,以空格隔开。
输入后单击按钮弹出平均值
private sub command1_click()
dim mstr() as string
mstr() = split(text1.text)
dim mlen as integer
mlen = ubound(mstr)
dim msingle() as single
redim msingle(mlen)
dim i as integer
for i = 0 to mlen
msingle(i) = val(mstr(i))
next
msgbox getaverage(msingle)
end sub
public function getaverage(byref b() as single) as single
dim i as integer
dim sum as double
for i = 0 to ubound(b)
sum = sum + b(i)
next i
getaverage = sum / i
end function
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯