求解VB小程序

来源：百度知道 编辑：UC知道 时间：2024/06/25 08:53:45
编写程序实现寻找零巧数。所谓零巧数是具有下述特征的四位正整数：其百位数为0，如果去掉0，得到一个三位正整数，而该正整数乘以9，等于原数。例如2025=225*9，所以2025是零巧数。
就是一点按钮Button1，然后在textbox1里显示结果

Private Sub Command1_Click()
Text1.Text = ""
Dim a As Integer
For i = 1000 To 9099
If Mid(i, 2, 1) = 0 Then
a = Val(Left(i, 1) & Right(i, 2))
If a * 9 = i Then Text1.Text = Text1.Text & i & " "
End If
Next
End Sub
'或者是下面这种方法，可以少些执行时间。
Private Sub Command2_Click()
Text1.Text = ""
Dim a As Integer
For i = 100 To 999
a = Val(Left(i, 1) & 0 & Right(i, 2))
If i * 9 = a Then Text1.Text = Text1.Text & a & " "
Next
End Sub
都是三个2025 4050 6075