Question

求几段vb代码！！！！急求

能给几段给几段！！谢谢
1.计算1-100中5的倍数和；答案1050
2.计算1-100中偶数倒着加总和，如：100+98+96+。。。+2；提示：step为后项减前项，答案2550
3.用VB程序实现：宝塔共24层，第1层有2件宝物，第2层有4件宝物。。。。。第23层有46件宝物，第24层有48件宝物，计算这座宝塔共有多少件宝物。答案600
注意：前3题在一个窗体文件中完成

4.小明15岁时种下1棵树，以后每年比之前一年多种1棵树，请问他到n岁时总共种了多少棵树？提示：需有文本框输入n的值。
5.编程实现：输入1个四位数，将其千位a、百位b、十位c、个位d进行分离，并且求出a、b、c、d相加总和z，再进行判断其是否为完全平方数。
如：四位数2025=（20+25）*（20+25），则2025是完全平方数。
6、附加用选择结构实现：输入a,b,c三个不同的数，将它们按由小到大的顺序输出。

Answer 1

1. dim i as integer;sum as long

   sum=0

   for i=1 to 100

   if  i  mod 5=0 then

    sum=sum+i

   end if

   next i

   print sum

2. dim i as integer;sum as long

   sum=0

   for i=100 to 2 step -2

   sum=sum+i

   next i

   print sum

3. dim i as integer ;j as integer;sum as long

   sum=0

   for i=1 to 24

    j=i*2

   sum=sum+j

   next i

   print sum

4. dim i as integer;j as long;sum as long

   n=val(text1.text)

   sum =0

   for i=15 to n

         j=(i-15)+1

        sum=sum+j

        next i

        print  sum

6.dim a as integer;b as integer;c as integer

   max=a

   if b>max then max=b

  老液 if c>max then max=c

   print max

第槐含冲5题不太了解完全平方数，其他的是省略private sub 和end sub 部分的代码，希望能够铅歼帮助到你~

       

Answer 2

1.计指盯算1-100中5的倍数和；答案105

Sub getSum()
Dim num As Integer
Dim sum As Integer
num = 100
sum = 0
For i = 0 To num
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
MsgBox (sum)

End Sub
在Word 宏中可岁逗升乎老以运行