跪求VB编程代码

1、编写程序，计算并输出下面级数中前n（设n=20）项的部分和。
1*2+2*3+3*4+4*5+…+n*(n+1)+…
2、输入梯形的上底、下底和高，计算并输出梯形的面积。
4、输入一个三位数，计算并输出各个数位上的数字之和
5、输入矩形的长和宽，计算矩形的周长。
6、输入三角形的三边的值，计算并输出三角形的面积。
7、编写一个程序华氏温度与摄氏温度转换的程序（转换公式是：F=9/5*C+32，其中F为华氏，C为摄氏）。
8、 输入5个数，输出最大数。（30分）
9、在文本框Text1中输入一字符串，单击命令按钮Command1，取前两个字符，并在文本框Text2中输出。
10、产生5个[100，200]随机整数并显示，单击命令按钮"显示"，在文本框中显示上述数据中的最小数。（30分）
11、输入5个数，输出最小数。（30分）
12、输入矩形的长和宽，计算矩形的面积。
13、编写程序，输出100到200之间的所有素数。
14、输入圆的半径r，求圆的面积。
15、产生3个两位随机整数，按从小到大的顺序排列并显示。

晕 这么多题目20分 LZ剥削啊~~
看你分少 帮你做了吧 用标准BASIC帮你做了 VB其实一样

1：
s=0
for i=1 to 20
a=i
b=i+1
s=s+a*b
next i

2:
input "a=";a
input 'b=";b
input "h=";h
print (a+b)*h/2

4:
input m
a=abs(m/100)
m=m-a*100
b=abs(m/10)
m=m-b*10
print a+b+m

5:
input "a=";a
input "b=";b
print (a+b)*2

6:
input "a=";a
input "b=";b
input "c=";c
/*这里没有加入判断语句判断三角形是否成立，请自行添加*/
cc=(a^2+b^2-c^2)/a/2/b
ccc=arccos(cc)
s=sin(ccc)*a*b/2
print s

7:
input c
f=9/5*c+32
print f
/*反推的话自己求出反函数参照上面方法编写*/

8:
input a,b,c,d,e
if a<b then a=b
if a<c then a=c
if a<d then a=d
if a<e then a=e
print a

9:
自己用VB画，TEXT1.TEXT中存储了字符串值

10：
自己用VB写，数据比较参照第八题的冒泡算法