急求VB程序题目代码！！！！谢谢！！！

27、在文本框Text1中输入一字符串，单击命令按钮Command1，将其全部转换为大写字母，并在文本框Text2中输出
Private Sub Command1_Click()
Text2 = UCase(Text1)
End Sub

28、在文本框Text1中输入一字符串，单击命令按钮Command1，将其全部转换为小写字母，并在文本框Text2中输出。（40分）
Private Sub Command1_Click()
Text2 = LCase(Text1)
End Sub

29、 产生5个[100，200]随机整数并显示，单击命令按钮"显示"，在文本框中显示上述数据中的大于150的数的个数
Private Sub Command1_Click()
Dim a(1 To 5)
c = 0
For b = 1 To 5
a(b) = 100 + Int(101 * Rnd(Timer))
If a(b) > 150 Then c = c + 1
Next b
Text1 = c
End Sub

30、输入圆的半径r，求球的体积。
Private Sub Form_Click()
r = InputBox(r)
pi = 3.1415926
v = 4 / 3 * pi * r ^ 3
Print v
End Sub

31、在窗体上画一命令按钮Command1、文本框Text1、文本框Text2,单击命令按钮Command1,在两个文本框中随机产生两位随机整数。
Private Sub Command1_Click()
a = 10 + Int(90 * Rnd(Timer))
b = 10 + Int(90 * Rnd(a * Timer))
Text1 = a
Text2 = b
End Sub

32、编写程序，求2+4+6+……+100的和