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 , 基础类