VB语言编程
1、1,1,2,3,5,8,13...,请用VB语言编程前20项之和;2、请用VB语言编程“1+2+3+4...+100”的和。
多谢了！ --------------------编程问答-------------------- 楼主你错把这里当作是慈善机构了。 --------------------编程问答-------------------- 1
1)用数组
Private Sub Command1_Click()
Dim s(1 To 20) As Integer
Dim sum As Integer
s(1) = 1
s(2) = 1
sun=s(1)+s(2)
For i = 3 To 20
s(i) = s(i - 1) + s(i - 2)
sum = sum + s(i)
Next
Print sum
End Sub
2)用循环语句
Private Sub Command1_Click()
i = 0
a = 1
b = 1
Sum = 2
s = "1+1"
Do While i < 18
Sum = Sum + a + b
tmp = a + b
a = b
b = tmp
s = s & "+" & tmp
i = i + 1
Loop
Print s & "=" & Sum
End Sub
2
Dim a As Integer, b As Integer
Private Sub Command1_Click()
b = 0
For a = 1 To 100
b = a + b
Next a
Print b
End Sub
别忘了加分 --------------------编程问答--------------------
Private Sub Form_Load()--------------------编程问答-------------------- 这是最基础的东西，任何看过VB语言教程的估计都会，如果还不会就不要学了吧 --------------------编程问答-------------------- 对，一切靠自己的！ --------------------编程问答-------------------- 呵呵，不是不会，和大家一起探讨，看有没有最简练的方法！ --------------------编程问答--------------------
Dim i, j, k, s, l, a As Long
i = 1: j = 1: s = i + j
For l = 3 To 20
k = i + j
s = s + k
i = j
j = k
Debug.Print k
Next
MsgBox s
l = 0
For l = 1 To 100
a = a + l
Next
MsgBox a
End Sub
1 to 100 累加--------------------编程问答-------------------- 类似问题简单的可以如老张那样循环解决，复杂的我喜欢用递归子程序来实现。 --------------------编程问答-------------------- 习题后面一般都有答案的…… --------------------编程问答-------------------- 的确这是VB教学的例题还有经常用的就是1到100的积等。 --------------------编程问答-------------------- 帮顶 --------------------编程问答-------------------- k --------------------编程问答-------------------- ..... --------------------编程问答-------------------- .... --------------------编程问答-------------------- 看过某位高人写的应聘时的问题，有些类似的，他立马就是最基本的循环写出来，象For a = 1 To 100
dim n as long
dim S as long
n=100
S=(n+1)*n/2
print "1 to " & cstr(n) & "的累加=" & cstr(s)
b = a + b 可人家不满意，要简化，简化了几次才达到人家用的要求：就是七楼写的S=(n+1)*n/2用这类公式有非常好的效果，需求还小，应该推广这样的
--------------------编程问答--------------------
有思想！
这就是软件质量的体现！ --------------------编程问答--------------------
--------------------编程问答--------------------
受教勒
--------------------编程问答--------------------
用循环做一下嘛， for循环或do循环都是可以的·
--------------------编程问答-------------------- 有公式可以算的```不还编个P啊`? VB写这个都不会 还在这发贴```` --------------------编程问答-------------------- 首项加上末项乘与项数除与2 --------------------编程问答-------------------- 这么简单的问题也问..... --------------------编程问答-------------------- 路过，再学习一下 --------------------编程问答-------------------- 这个是基础，不过可以举一反三，可以考虑简便的方法。
有很多不同的编写方法！ --------------------编程问答-------------------- Dim i As Integer,Sum As integer
Sum=0
For i=1 To 100
Sum=Sum+1
Next i --------------------编程问答-------------------- ...... --------------------编程问答-------------------- 楼主是一个有思想的人！
补充：VB , 基础类
