UC知道vb程序被7整除的完全平方数
来源：百度知道 编辑：UC知道 时间：2024/07/02 12:25:59
在1 to 2009中整除7，且是完全平方数的vb程序
在1.2.3，....，2009这2009个自然数中，能被7整除的完全平方数有多少个？
vb解这道题目
我自己做的 可以了
Private Sub Command1_Click()
Dim a%, b%
For a = 1 To 2009
For b = 1 To 500
If a Mod 7 = 0 And b = Sqr(a) Then
Print a
End If
Next b
Next a
End Sub
在1.2.3，....，2009这2009个自然数中，能被7整除的完全平方数有多少个？
vb解这道题目
我自己做的 可以了
Private Sub Command1_Click()
Dim a%, b%
For a = 1 To 2009
For b = 1 To 500
If a Mod 7 = 0 And b = Sqr(a) Then
Print a
End If
Next b
Next a
End Sub
Option Explicit
Sub test()
Dim i As Integer, tem As String
For i = 1 To 2009
If i Mod 7 = 0 And Sqr(i) = Int(Sqr(i)) Then tem = tem & i & vbCrLf
Next i
MsgBox tem
End Sub
'一共有6个
49
196
441
784
1225
1764