修改VB程序,使其具有如下功能:统计勾股定理整数组合。勾股定理中3个数的关系是:a^2+b^2=c^2。例如,3、4、5就是一个满足条件的整数组合(注意:a,b,c分别为3,4,5与分别为4,3,5被视为同一个组合,不应该重复计算)。编写程序,统计50以内三个数满足上述关系的整数组合,并显示在列表中。效果如下图所示。 Private Sub Command1_Click() Dim a%, b%, c# For a = 1 To 50 For b = 1 To 50 c = Sqr(a ^ 2 + b ^ 2) If (-1-) And (-2-) And (-3-) Then List1.AddItem a & "," & b & "," & c End If Next b Next a End Sub