VB编程问题急救 各位帮忙编个程序，本人感激不尽啊 在窗体上输出1到500的所有同构数的。 所谓同构数：指本身的平方的末几位于自身相同的数。 例如：5的平方25，最后一位为5 又例如：25的平方625，最后两位为25 要求：Form的Click事件发生时，输出程序运行结果 __________________________________________________________________________ Private Sub FormInVB_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Click Dim nLoop As Integer = 1 While (nLoop < 501) If (CheckTail(nLoop,nLoop * nLoop)) Then Debug.WriteLine(nLoop.ToString() + : + (nLoop * nLoop).ToString()) End If nLoop = nLoop + 1 End While End Sub Private Function CheckTail(ByVal num1 As Integer,ByVal num2 As Integer) As Boolean If (num1 = 0) Then Return True End If If ((num1 Mod 10) = (num2 Mod 10)) Then Return ((True) And (CheckTail(Decimal.Floor(num1 / 10),Decimal.Floor(num2 / 10)))) Else Return False End If End Function __________________________________________________________________________ 输出 1 : 1 5 : 25 6 : 36 25 : 625 76 : 5776 376 : 141376 __________________________________________________________________________ 唉，看来VB比C慢很多，把循环中的if判断去掉，计算 While (nLoop < 50000001) （C里面是 while ( nLoop < 50000001L ) ），VB需要 1.796 秒，而 C 只需要 0.125，相差十几倍啊 __________________________________________________________________________ 原文链接：https://www.f2er.com/vb/263376.html