丽江平均海拔约为（）

A、1000米

B、2000米

C、3000米

D、4000米

以下程序的功能是单击Command1按钮，将输出1～100之间的所有同构数。同构数是指该数出现在它的平方数的右边，如5²=25、25²=625。
Private Sub Command1_Click()
Dim i As Integer,ip As Integer
For i=1 To 100
ip= 【9】
If i＜10 Then
If 【10】 Then
Print i，ip
End If
Else
If 【11】 Then
Print i，ip
End If
End If
Next i
End Sub