早教吧 育儿知识 作业答案 考试题库 百科 知识分享

VB,编写程序,找出7的倍数中十位数为2的所有3位数.

题目详情
VB,编写程序,找出7的倍数中十位数为2的所有3位数.
▼优质解答
答案和解析
Private Sub Command1_Click()
Dim i%
For i = 100 To 999
If i Mod 7 = 0 And Mid(CStr(i),2,1) = "2" Then Print i
Next
End Sub