vb题。求1000—9999之间能被7整除，且各位数字之和等于6的整数倍的数的这个数。

代码:

Private Sub Form_Click()
For i = 1000 To 9999
If (i Mod 7 = 0) And ((Val(Mid(CStr(i), 1, 1)) + Val(Mid(CStr(i), 2, 1)) + Val(Mid(CStr(i), 3, 1)) + Val(Mid(CStr(i), 4, 1))) Mod 6 = 0) Then Print i
Next
End Sub

运行结果
1029
1050
1092
1113
1155
1197
1218
1281
1302
1344
1386
1407
1449
1470
1533
1575
1638
1722
1764
1827
1869
1890
1911
1953
1995
2037
2079
2121
2163
2226
2268
2310
2352
2394
2415
2457
2499
2541
2583
2604
2646
2688
2709
2730
2772
2835
2877
2961
3003
3045
3087
3108
3171
3234
3276
3339
3360
3423
3465
3528
3591
3612
3654
3696
3717
3759
3780
3801
3843
3885
3906
3948
4011
40