编写程序,统计200-400之间的所有满足三个数字之积为42,三个数字之和为12的数的个

Private Sub Command1_Click()
Dim i As Integer
For i = 200 To 400
If Mid(i,1,1) * Mid(i,2,1) * Mid(i,3,1) = 42 And Int(Mid(i,1,1)) + Int(Mid(i,2,1)) + Int(Mid(i,3,1)) = 12 Then
Text1.Text = Text1.Text & i & vbCrLf
End If
Next
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Su