do me a favour,thanks!

Question

1.  Private Sub Form_Click()num = 0 Do num = num + 3 Print num Loop Until num Mod 4 = 0 End Sub程序运行后，单击窗体，输出结果是_____________  2.  在窗体上画一个文本框，有如下事件过程： 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String 
char= Chr(KeyAscii)
KeyAscii = Asc(UCase(char))
Print String(6, KeyAscii)
End Sub 
程序运行后，如果在键盘上输入字母“a”，则窗体上显示的结果。  

Answer 1

Oh!dear caozhy.
you're wrong.the correct answer is "AAAAAA"
Can you professional?

Answer 2

那就不知道了。String(6, 65)
居然返回AAAAAA而不是将65视作"65"取第一个字母6，然后得到666666。
这只能说VB比较变态。

Answer 3

我就是没装VB，这才需要help

Answer 4

第⑴是：
3
6
9
12第⑵是：
AAAAAA