永发信息网

编写一个求1+2+3+……n的函数sum(用VB编程)

答案:3  悬赏:70  手机版
解决时间 2021-05-11 18:27

编写一个求1+2+3+……n的函数sum,然后调用从键盘上输入一个n值,调用sum函数,求1+2+3+……100的值。

程序要求:

(1程序运行结果如图。

(2)n的值由inputbox函数输入。

(3)事件代码由窗体的单击事件触发。

最佳答案

Private Sub Form_Click() '对form的click事件添加代码.
Dim N As Integer
N = InputBox("输入n=")


Print "1+2+3+……" & N & "= " & sum(N)
End Sub


Public Function sum(N As Integer) As Integer 'sum函数.
s = 0
For i = 1 To N
s = s + i
Next i
sum = s
End Function



全部回答
Private Sub Command1_Click() Dim int1 As Integer Dim int2 As Integer Dim i As Integer int1 = InputBox("", "请输入一个最大值") int2 = int1 For i = 1 To int1 int1 = int1 + i Next i Print "1+2+3...+" & int2 & "= " & int1 End Sub
Private Sub Form_Click() n = CInt(InputBox("请输入n:", "提示")) If n < 0 Then MsgBox "n值不正确!": Exit Sub s = 0 For i = 1 To n s = s + i Next i Print "1+2+3+...+" & n & "= " & s End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
是不是有点过分了
DNF。 附魔0.3攻击速度(武器) 卡片值多少?
求此女星资料!如图
康熙庭训格言全文下载,求《康熙御制庭训格言
怎样给自己的QQ面板拍照
欠某银行2000贷款会在其他行自动扣其贷款吗?
饭店描述环境好的句子,形容酒店的句子
哪位大哥给我讲一下DNF连发程序是怎么回事?
用什么方法可以去黑头使皱纹又能够缩小?
2010安徽高中会考成绩查询
莘庄百盛有ZA专柜麽?
现在有什么新游戏啊!
学习只是难吗?
想把视频删掉一部分,下来会声会影软件。自己
QQ没开的钻怎样隐藏
推荐资讯
手机—水货和行货有什么区别?
爱可不可以自私?
DNF游戏剑魂
海带怎么炒的做法大全,海带怎么做去掉粘液还
娄底哪里招美发中小工?
水浒传第二回出五个问题,急!!
一道数学题,下午就上课了
诺基亚智能手机1200元—2500元,(电池一定要
绥德县有没有羽毛球场地
古代八字情话名言
请问某一电子产品下浮37%是指打三七折吗?
彩釉砖的市场价是多少
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?