求VB编程：程序1993□□□这个7位数能同时被2、3、4、5、6、7、8、9整除,编程求满足要求的后3位数总结报告包括: 1.设计分析,流程图; 2.程序设计(指令代码,解释,窗体设计);3.结果分析;4.心得体会;5.参考文献
网友回答
Private Sub Command1_Click()
Dim i As Integer,j As Integer,k As Integer
Dim N As Double,M As Double
N = 1993000
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
M = N + i * 100 + j * 10 + k
If M Mod 2 = 0 And M Mod 3 = 0 And M Mod 4 = 0 And M Mod 5 = 0 And M Mod 6 = 0 And M Mod 7 = 0 And M Mod 8 = 0 And M Mod 9 = 0 Then
Print M
End IfNext kNext jNext iEnd Sub
答案是1993320