永发信息网

用VB循环语句分别编1到10和1到100之和、差、积

答案:2  悬赏:30  手机版
解决时间 2021-04-23 15:29

用VB循环语句分别编1到10得和、差、积

1到100之和、差、积

初级编程学员,请详细回答并解释

最佳答案
Private Sub Form_Click()
Dim i As Integer, j as integer
Dim sum1 As Integer ,sum2 as integer ,sum as integer '保存和
dim cha as long '保存差
Dim ji As Long '保存积

For i = 1 To 10
sum1 = sum1 + i
Next i


for j = 1 to 100


sum2 = sum2+i


next j


sum = sum1 +sum2
Print "和为:" & sum


cha = sum2 - sum1
Print "差为:" & cha


ji = sum1*sum2


Print "积为:" & j


这是我理解的题目意思,不知道是否正确

全部回答

Private Sub Form_Click() Dim i As Integer Dim sum As Integer '保存和 Dim cha As Long '保存差 Dim j As Long '保存积

For i = 0 To 100 sum = sum + i Next i Print "1--100之间的整数和为:" & sum

For i = 1 To 100 cha = cha - i Next i Print "1--100之间的整数差为" & cha

End Sub

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
有一种爱叫感恩?
如果没有信任、爱情会怎样?
魅族系统是不是越低越好
超级QQ开不了了!!!!
什么才是最好的
体育生可以上什么好的大学?
刚好一本线左右和比一本线低一点报什么大学好
为什么现代人要窜改成语呢?
怎么设置来电铃声苹果,苹果手机如何给一个人
心累的时候,该如何排解呢?
怎么样把Flash导入ppt里啊
寻仙我想点图标,那个职业升级快?
为什么怎么多人都喜欢非主流?
费德勒今年多大了。
()who lays down his life for his country.a
推荐资讯
不把你当回事的句子,不把我话当回事的人,我
双鱼座属猪男的性格???
爵迹11还没出吧?
2006年邮票年册现在多少钱
今夜流星雨
背景所有html代码有哪些?
银行营销激励口号大全,求销售团队激励口号
奇迹大药房有诺斯清卖吗
我妹读大学,专业人力资源,想给她买个笔记本
重庆2区50粉短
她是个爱打麻将的女子,整日不回家,像这样的
在哪能买到全新的港行N95 8GB,多少钱?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?