VB水仙花数及百钱百鸡源码

VB水仙花数源码：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, n As Integer

For n = 100 To 999

a = Val(Mid(n, 1, 1))

b = Val(Mid(n, 2, 1))

c = Val(Mid(n, 3, 1))

If a ^ 3 + b ^ 3 + c ^ 3 = n Then

Print n

End If

Next

End Sub

VB百钱百鸡问题（代码）：

Private Sub Command1_Click()

Print \"公鸡\母鸡\小鸡\"

Dim g As Integer, m As Integer, x As Integer

For g = 1 To 20

For m = 1 To 33

x = 100 - g - m

If 5 * g + 3 * m + 1 / 3 * x = 100 Then

Print g, m, x

End If

Next

Next

End Sub

倒三角

Private Sub Command1_Click()

For i = 1 To 5

For h = 1 To i - 1

Print \" \";

Next h

For j = 1 To 9 - i * 2

Print \"*\";

Next j

Print

Next i

End Sub

正三角

Private Sub Command1_Click()

For i = 1 To 13 Step 4

If i < 8 Then

Print String(i, \"*\")

Print String(i + 2, \"$\")

Else

Print String(14 - i, \"*\")

If 12 - i > 0 Then Print String(12 - i, \"$\")

End If

Next i

End Sub