Private Sub Command1_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 0 To 5 For j = 0 To 10 For k = 0 To 50 If i + 0.5 * j + 0.1 * k = 5 Then Print "1yuan:"; i; "5jiao:"; j; "1jiao:"; k End If Next NextNextEnd...