哪位大虾帮帮忙 VB题（下周二交）

四、程序填空。
1. 编写一个对输入字符进行转换的程序。转换规则为，将其中的大写
字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“＊“。要求每输入一个字符，马上就进行判断和转换。
“输入字符串“文本框对象Text1对应的KeyPress事件代码为：

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim aa As (1)
aa = Chr$(KeyAscii)
Select Case aa
Case "A" To "Z" ‘大写转换成小写
aa = Chr$(KeyAscii + 32)
Case "a" To "z" ‘小写转换成大写
aa = (2)
Case " "
aa = " "
Case Else
aa = (3)
End Select
Text2.Text = Text2.Text & aa
End Sub

“清屏”按钮Command1的Click事件代码为：
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

“结束”按钮Command2的Click事件代码为：
Private Sub Command2_Click()
(4)
End Sub
(1) (2)
(3) (4)

2.求1到6的阶乘之和。
Function fact(x as integer) as long