VB问题，求指教

一、

Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim n0 As Integer, n1 As Integer
For i = 1 To 30
    j = Int(99 * Rnd + 1)
    If Right(j, 1) = 0 Then
        n0 = n0 + 1
    ElseIf Right(j, 1) = 1 Then
        n1 = n1 + 1
    End If
Next i
Print "个位上的数字为0的数的个数：" & n0
Print "个位上的数字为1的数的个数：" & n1
End Sub

二、

Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim n1 As Integer, n2 As Integer
For i = 1 To 15
    j = Int(100 * Rnd + 1)
    Print j;
    If j <= 59 Then
        n1 = n1 + 1
    Else
        n2 = n2 + 1
    End If
Next i
Print
Print "1～59的数的个数：" & n1
Print "60～100的数的个数：" & n2
End Sub

你好,你这是很明显的阳虚自汗,可以服用中成药玉屏风散颗粒.
你所吃的药粥,也是可以服用的.坚持就会有效果.

您好：
建议您去医院找中医详细辩证治疗,对这种病中医有很好的疗效.