Question

if then else

Private Sub Command1_Click( )
a =75
If a>60 Then
k=1
Elself a>70 Then
k=2
Elself a>80 Then
k=3
Elself a>90 Then
k=4
Endif
MsgBox k
End Sub
请问这段代码是如何运行的，直接用中文打出来，说太多程序运行问题也不懂。
还有这几段
Private Sub Form_Click( )
a=1
For i =1 To 3
Select Case i
Case 1,3
a=a+1
Case2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
这段代码又在运行什么？请用中文把它的运行程序说一遍。
Private Sub Commandl_Click( )
Dim sum As Double,x As Double
sum=0
n=0
For i=1 To 5
x = n/i
n =n+1
sum = sum + x
Next i
End Sub
这段又是在运行什么？
这些东西在什么书中会详细讲到啊？先谢谢各位帮我解答问题。
我知道是这样的意思，我是说它如何运算的？最后能得出什么答案？

Answer 1

中文翻译
Private Sub Command1_Click( ) 定义 过程 按钮1被点击
a =75 a 的值为75
If a>60 Then 如果 a 大于 60 那么
k=1 k的值为1
Elself a>70 Then 否则 如果 a 大于70 那么
k=2 k 的值为 2 （以下省略）
Elself a>80 Then
k=3
Elself a>90 Then
k=4
Endif 结束判断
MsgBox k 在 消息 框 中 显示 k 的值
End Sub 结束 过程

Select Case i 对i的值进行判断
Case 1,3 当为 1 ，3 时
a=a+1 a 的值为其原值 +1
Case2,4
a=a+2
End Select 结束判断

For i=1 To 5 循环 从i的值为1开始 到值为5 结束
x = n/i x的值为 n 除以 i
n =n+1 n 的值 曾加1
sum = sum + x sum 的值 曾加x
Next i i曾加1