交男朋友:VB编程 的一个小问题 请教！ 急！！

第一个问题,设窗体中有一个按钮(Button1),一个标签框(label1),按下按钮后在标签框中显示指定字符串的逆序输出,下面是按钮的单击事件代码
****************************************
Dim d As String
Dim i As Integer
label1.caption= ""
d = "字符串"
For i = Len(d) To 1 Step -1
label1.caption = label1.caption+ Mid(d, i, 1)

Next
****************************************
第二个问题,要求在单击窗体上的按钮后,在窗体中的显示题目中要求的文本
下面的按钮的单击事件代码
*****************************************
Randomize
Dim i ,p As Integer
for p=1 to 10
For i = 1 To 26
Print(Chr(int(26 * Rnd() + 81)));

Next i
Print vbCrLf
next p

第一个问题,来一个专业的事件代码（可以直接调用的）
使用方式是：“串符字”= StrRev("字符串")
****************************************
Function StrRev(str As String) As String
Dim rts As String
Dim i As Integer
For i = Len(str) To 1 Step －1
rts = rts ＋ Mid(str, i, 1)
Next i
StrRev = rts
End Function
****************************************
第二个问题,事件代码是： Call Printform
*****************************************
Sub Printform()
Dim rts As String
Dim i As Integer
Dim j As Integer
Dim NumberValue As Integer
For i = 1 To 10
For j = 1 To 10
Randomize
NumberValue = Int((90 - 64) * Rnd + 65)
rts = rts & Chr$(NumberValue)
Form1.Print rts
Next j
Form1.Print
Next i
End Sub

1、真的是“字符串”打印为"串字符" 吗？用
m = "字符串"
Print Right(m, 1) & Left("字符串", Len(m) - 1)
就行。不过字串符逆序打印为什么不是打印“串符字”？如果是“串符字”就用：
Print StrReverse("字符串")

2、如果你还想每个字母之间还有个空格什么的，就自己改一下啦，总得自己动一下手嘛，呵呵
Private Sub Command1_Click()
Dim M As Integer, N As Integer, i As Integer
For i = 1 To 10
For N = 1 To 36
Randomize
M = Int(Rnd * 26 + 65)
Print Chr(M);
Next
Print vbCrLf
Next
End Sub

第二个问题:
新建一个窗体,在窗体中加入一个Textbox控件,copy以下代码就可以了
Private Sub Form_Load()
Dim MyValue As Integer
Dim Echar As String
For i = 0 To 359
Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((90 - 64) * Rnd + 65) ' 生成 90 到 65 之间的随机数值。
If (i Mod 36) <> 0 Then
Echar = Echar & Chr(MyValue)
Else
Echar = Echar & Chr(13) & Chr(10) & Chr(13) _
& Chr(10) & Chr(MyValue)
End If
Next i
text1.Text = Echar
End Sub

这么多分很想要，题目很简单，可惜我现在没VB环境。实在好久没用VB了，怕写错了。拿2分算了，楼下继续

randomize
for x=1 to 36
...................