高分寻求高手帮忙解决一下VB的题，答案及解释一下各语句的意思，谢谢！

Private Sub command1_click()
n = Text1.Text 'n=10
Select Case n '对N进行判断
Case 1 To 20 '如果N在1到20的范围里
x = 10
Case 2, 4, 6 '如果N=2或4 或6
x = 20
Case Is < 10 '如果小于10
x = 30
Case 10 '如果等于10
x = 40
End Select
Text2.Text = x '显示X值到TEXT2中
End Sub
输入10后返回10
*****************************************
Private Sub Command1_Click()
Dim num As Integer '定义其为整数型
num = 1 '它等于1
Do Until num > 6 '在它小于6时一直循环
Print num '显示这个值
num = num + 2.4 '这个值再加上2.4
Loop
End Sub

运行结果是
1
3
5
'因为它是整数,所以小数部份不显示了.

************************************************

Private Sub command1_click()
Dim a As Integer, s As Integer '定义两个整型变量
a = 8
s = 1
Do
s = s + a
a = a + 1
Loop While a <= 0 '当A小于等于0时退出DO循环
Print s; a

End Sub
'第一次S=1+8=9,A=8+1=9 就退出循环,所以显示
9 9
*****************************************
Public Function f(x As Integer) '函数接收参数X
Dim y As Integer
x = 20 '重新赋值X,舍弃了传递过来的X=10,因为是Static变量,它在这个窗体内通用,同时也改变了下面过程中的X值
y = 2
f = x * y '反回值20*2=40
End Function
'在窗体上画一个名称为command 1 的命令按钮，然后编写如下事件过程。
Private Sub command1_click()
Static x As Integer '定义变量X
x = 10 'X=10
y = 5
y = f(x) 'y=F(本过程的X),把参数X传递到上面的函数中去
Print x; y '显示
End Sub

结果是

20 40

1. 10
2. 1 3.4 5.8
3. 9 9
4. 20 40
你不会一句都看不懂吧？