写vb算法

A. 这个该如何用VB写算法

嵌套循环，3个元素就三层嵌套，4个元素就4个嵌套……以3个元素为例，设数组为A（N），共有N个元素（数组下标就从1开始），另一个变量是SUM，则程序可以写成

For i = 1 to N
For j = i+1 to N
For k = j+1 to N
If A(i) + A(j) + A(k) = SUM Then
'这里的i、j、k 就是所要的元素的下标
End If
Next k
Next j
Next i

程序没调试过，但思路就是这样。

B. 求VB算法

应该是：求每行代码的解释吧？
楼上已经回答的很详细了，我再说说你最后的问题，关于Mod和\两个运算：
回顾当小学里，第一次学除不尽的除法时，我是小学三年级的时候，老师这样写在黑板上的：
7 ÷ 3 = 2 …… 1
老师说那个2叫做商，那个在省略号后面的1叫做余数。
我们再来看看Mod 和 \ 这两个符号在VB里的作用
7 \ 3 = 2
7 Mod 3 = 1
原来这两个运算符号，在VB里实现的就是商数与余数的获得。
注意，这两个称为“运算符号”

C. 写四个VB算法

1.
'设1元纸币 x 张,2元纸币 y 张,5元纸币 z 张
Private Sub Command1_Click()
For x = 1 To 8
For y = 1 To 8
For z = 1 To 8
If (x * 1 + y * 2 + z * 5 = 24) And (x + y + z = 10) Then
Print "1元纸币" + Str(x) + "张 2元纸币" + Str(y) + "张 5元纸币" + Str(z) + "张"

End If
Next z
Next y
Next x

End Sub

D. VB简单算法

第一次
S(1)
m=1
循环1次
x=0
x=x+1
x=1
S=1
S(1)=1

s(2)
M=2
循环2次
X=1
X=X+1
X=2

X=2
X= X+1
X=3
s(2)=3

S(1)+S(2) 当然是 4 了

第二次按

S(1)
m=1
循环1次
x=3
x=x+1
x=4
S=4
S(1)=1

s(2)
M=2
循环2次
X=4
X=X+1
X=5

X=5
X= X+1
X=6
s(2)=6

S(1)+S(2) 当然是 10 了

第三次按 自己推到把!!!

第四次 22

第五次按 28

关键句!!
Static x As Integer

在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用 Static 语句声明的变量的值。

E. VB共有哪些算法（所有）

所谓算法，就是你解决一个问题所运算的方法，VB（或者其它程序语言）只提供基本语句，例如加减乘除、平方根、反切、幂、正余弦等等，算法是靠你自己去编写的，所以说算法是无穷无尽的！