作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 00:53:36
编写程序,统计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 Su