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

利用for循环控制100-999个数,每个数分解出个位,十位,百位.

题目详情
利用for循环控制100-999个数,每个数分解出个位,十位,百位.
▼优质解答
答案和解析
Private Sub Form_Click()
Dim a As Integer,b As Integer
Dim c As Integer,i As Integer
For i = 100 To 999
a = i \ 100
b = (i - a * 100) \ 10
c = i - a * 100 - b * 10
Debug.Print "百位数是:" & a & "十位数是:" & b & "个位数是:" & c
Next i
End Sub