hotdogzlb
幼苗
共回答了20个问题采纳率:85% 举报
Private Sub Command1_Click()
Me.AutoRedraw = True
Dim x,y,z As Integer
For x = 0 To 9
For y = 0 To 9
For z = 0 To 9
If 100 * x + 10 * x + z + 100 * y + 10 * z + z = 532 Then
Print x & y & z
End If
Next
Next
Next
End Sub
结果
x y z
2 3 1
1年前
2