一个初学者在一本初学教材上遇到的初级问题，网高手赐教：

1. 一个三位数，其各位数之立方和等于其本身，求这个数。

2. 三个文本筐中分别放三个字母，请按照字母顺序重新排列之。

3. 判断101 - 200之间有多少个素数（即质数），并输出之。

以上是捆扰我很久的问题，望高手赐教 。

初级问题还是自己练练吧

总有那么多人，不知道是不是都不想动脑子。

1。


153
370
371
407

3。

101
103
107
109
113
119
121
127
131
133
137
139
143
149
151
157
161
163
167
169
173
179
181
187
191
193
197
199

用循环

Private Sub Command1_Click()
Dim i
For i = 100 To 999
If Mid(i, 1, 1) ^ 3 + Mid(i, 2, 1) ^ 3 + Mid(i, 3, 1) ^ 3 = i Then
Text1 = Text1 & i & vbCrLf
Else
DoEvents
End If
Next
End Sub

Private Sub Command2_Click()
Dim i As Ingeter
For i = 101 To 200
If i Mod 2 = 0 Or i Mod 3 = 0 Or i Mod 5 = 0 Then
DoEvents
Else
Text1 = Text1 & i & vbCrLf
End If
Next
End Sub