Dim a,b As Integer//定义a,b为整型变量;
Dim c As Double//c,为双精度型
If (a>0,and b>0) Then //当a>0且b>0时
c=c/a
End If
If (a>1 OR c>1) Then //当a>1或者c>1时
c=c+1
End If
c=b+c
3,4,5
Dim a,b As Integer//定义a,b为整型变量;
Dim c As Double//c,为双精度型
If (a>0,and b>0) Then //当a>0且b>0时
c=c/a
End If
If (a>1 OR c>1) Then //当a>1或者c>1时
c=c+1
End If
c=b+c
3,4,5