呵呵！兄弟送分来了！！vb实现两个小case/kiss(马上给分)

Question

1.Dim x, y As Double
Dim i As Long
x = 15
Do Until x <= 0.0001
   i = i + 1
   x = x / 2
Loop
y = Round(x, 5)
MsgBox i
MsgBox y

Answer 1

Dim x(100), y(100), z(100) As Double
Dim a, b, c As Long
Dim i, j, k As Long
Dim num1, num2, num3 As Long     
a = 1
For i = 1 To 100
    If i * 5 < 100 Then
       x(a) = i
       a = a + 1
    End If
Next
b = 1
For i = 1 To 100
    If i * 3 < 100 Then
       y(b) = i
       b = b + 1
    End If
Next
c = 1
For i = 1 To 100
    If InStr(i * 1 / 3, ".") = 0 Then
       z(c) = i
       c = c + 1
    End If
Next
For k = 1 To c
    For j = 1 To b
        For i = 1 To a
            If x(i) + y(j) + z(k) = 100 Then
               num1 = x(i)
               num2 = y(j)
               num3 = z(k)
               GoTo Ok
            End If
        Next
    Next
NextOk:
MsgBox num1 '公鸡
MsgBox num2 '母鸡
MsgBox num3 '小鸡

Answer 2

《张邱建算经》卷下最后一题通常称“百鸡问题”：
         “今有鸡翁一，直钱五；鸡母一，直钱三；鸡雏三，直钱一。凡百钱买鸡百只。
   问鸡翁、母、雏各几何？”     
  此题相当与解不定方程：
                         x+y+z=100
                        5x+3y+1/3z=100
张邱建给出
                         x1=4,    y1=18,    z1=78;
                         x2=8,    y2=11,    z2=81;
                         x3=12,   y3=4,     z3=84;

Answer 3

Dim i As Long, j As Long, k As Long
For i = 1 To 20
    For j = 1 To 34
        For k = 3 To 99 Step 3
            If ((5 * i + 3 * j + k / 3) = 100) And ((i + j + k) = 100) Then MsgBox "公鸡:" & i & "   母鸡:" & j & "  小鸡:" & k
        Next k, j, i

Answer 4

我写错了。Dim x(20), y(33), z(99) As Double
Dim a, b, c As Long
Dim i, j, k As Long
Dim num1, num2, num3 As Long     a = 20
b = 33
c = 1
For i = 1 To 98
    If i Mod 3 = 0 Then
       z(c) = i
       c = c + 1
    End If
NextFor k = 1 To c
    For j = 1 To b
        For i = 1 To a
            If i + j + z(k) = 100 And i * 5 + j * 3 + z(k) / 3 = 100 Then
               MsgBox "公鸡: " & i & ", 母鸡: " & j & ", 小鸡: " & z(k)
            End If
        Next
    Next
Next

Answer 5

For k = 1 To 20
    For j = 1 To 33
        For i = 1 To 200
            If k= 100-j-i Then
               num1 = k
               num2 = j
               num3 = i
               
            End If
        Next
    Next
NextOk:
MsgBox num1 '公鸡;k
MsgBox num2 '母鸡;j
MsgBox num3 '小鸡;i