要求：
单击“开始”，在列表框显示由两个不同数字组成的平方数，如图示。

[此贴子已经被作者于2006-5-2 21:36:56编辑过]

由两个不同数字?...
11*11
22*22
38*38
好像都相同的哦...

看不懂

121：只有1，2两个数字组成
144：只有1，4两个数字组成
225：只有2，5两个数字组成
400：只有4，0两个数字组成
484：只有4，8两个数字组成
以下依次类推
明白了吧

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim a As Integer, b As Integer, c As Integer
For i = 100 To 999
a = Left(i, 1)
b = Mid(i, 2, 1)
c = Right(i, 1)
If a = b Or a = c Or b = c Then
If Int(Sqr(i)) = Sqr(i) Then List1.AddItem i
End If
Next
End Sub

写了一个函数，用于判断你给定的那个条件：
Private Function Otstr(ByVal strin As String) As Boolean
Dim ub As Integer
Dim m As Integer
Dim a As Integer, b As Integer
Dim tmp As Integer
a = -1: b = -1
ub = Len(strin)

For m = 1 To ub
tmp = Val(Mid(strin, m, 1))
If a = -1 Then
a = tmp
ElseIf b = -1 And tmp <> a Then
b = tmp
ElseIf tmp <> a And tmp <> b Then
Otstr = False
Exit Function
End If
Next
Otstr = True
End Function

...这种算法也要求人?MM是编程新人啊....

听语气,"风"同学很牛嘛,MM编程水平应该不比你差,只是她不太懂VB而已

MM编程水平强?汗...她现在问的是一个算法.和VB不VB无关.

Private Sub Command1_Click()
For i = 1 To 99
For j = 99 To 999
a = i * j
a1 = Sqr(a)
b1 = CStr(a1)
b = CStr(a)
c = Len(b)
c1 = c
k = Mid(b, 1, 1)
n = 1
For t = 2 To c
k1 = Mid(b, t, 1)
If k <> k1 Then n = n + 1
Next
If n = 2 And InStr(b1, ".") <= 0 Then List1.AddItem a & "=" & b1 & "*" & b1
Next
Next
End Sub
这是我写的,不足的是有重复!