兰州长信国际大酒店spa:一个关于VB的程序编写!!在线等!!

Private Sub Form_click()
Dim i As Double
Dim sum As Double
For i = 1 To 1000
sum = i * i
If sum = i Or sum Mod 10 = i Or sum Mod 100 = i Or sum Mod 1000 = i Then
Print i
End If
Next i
End Sub

直接要程序是懒人的做法，自己什么也学不到。

我只给你一个思路。

首先1-1000的循环。

然后判断i的位数，再i平方，得到的结果，从右边取i的位数与i进行对比判断。结果相同则输出。

花了我好长时间……
Private Sub Form_Click()
Dim i As Long
Dim a(1 To 1000) As Long
For i = 1 To 1000
a(i) = i * i
If Len(CStr(a(i))) - Len(CStr(i)) <> 0 And Mid(CStr(a(i)), Int(Len(CStr(a(i))) - Len(CStr(i)) + 1), Len(i)) = i Then
Print i;
End If
Next i
End Sub
不懂的地方我会帮你解释的

呵呵，我也在学VB，不过我学过几种计算机语言了，
计算机语言交流群：14940080，看简介答对问题就加，欢迎加入

Private Sub Command1_Click()
Dim i, j
For i = 1 To 30
If (i * i < 10) Then
If (0 = (i * i - i) Mod 10) Then Me.Text1.Text = Me.Text1.Text & " " & i
Else
If (0 = (i * i - i) Mod 100) Then Me.Text1.Text = Me.Text1.Text & " " & i
End If
Next
Me.Command1.Enabled = False
End Sub

(N 的平方 - N ) 模100为0就行了呗