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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 02:23:21
编写程序,统计200-400之间的所有满足三个数字之积为42,三个数字之和为12的数的个编写程序,统计200-400之间的所有满足三个数字之积为42,三个数字之和为12的数的个编写程序,统计200-4

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

编写程序,统计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 Sub