【正文】
2010年(春)上機 Visual Basic(VB01)答案一、改錯【題目】本程序的功能是找出指定范圍內(nèi),本身及其平方數(shù)均由不同數(shù)字組成的整數(shù)。Option ExplicitPrivate Sub Command1_Click() Dim n As Long, k As Long, st As String 39。err n As Integer For n = 500 To 800 k = n ^ 2 If validate(n) And validate(k) Then st = n amp。 ^2= amp。 k st End If Next nEn