Cách tìm ước số lớn nhất?

[emicactus]

cho em hỏi làm thế nào để tìm được ước của số lẻ lớn nhất, rồi sao đó lấy ước lớn nhất đó bình phương vào cộng vào số n

[tinsoftware]

Private Sub Command2_Click()
Dim a, b As Integer
a = Abs(txta)
b = Abs(txtb)
While a <> 0 And b <> 0
If a > b Then
a = a Mod b
Else
b = b Mod a
End If
Wend
MsgBox "USCLN (" & txta & " , " & txtb & ") = " & a + b & ""
End Sub

[_donquixote_]

cho em hỏi làm thế nào để tìm được ước của số lẻ lớn nhất, rồi sao đó lấy ước lớn nhất đó bình phương vào cộng vào số n



Private Sub Command2_Click()
Dim a, b As Integer
a = Abs(txta)
b = Abs(txtb)
While a <> 0 And b <> 0
If a > b Then
a = a Mod b
Else
b = b Mod a
End If
Wend
MsgBox "USCLN (" & txta & " , " & txtb & ") = " & a + b & ""
End Sub

Hem hiểu cả 2 luôn :rolleyes:

[tungtaitu]

Bạn hỏi ước lớn nhất của 1 số lẻ hay là ước lẻ lớn nhất của 2 số ???.
Nếu là ước lẻ của 2 số thì:
Private Sub Command1_Click()
Dim a, b, UCLLN As Integer
a = inputbox ("nhap a tu ban phim")
b = inputbox ("nhap b tu ban phim")
Do While a <> b
If a > b Then
a = a Mod b
Else
b = b Mod a
End If
If a mod 2 <> 0 then
UCLLN = a
Loop
msgbox UCLLN
End Sub
Nếu là ước lớn nhất của 1 số lẻ thì đơn giản hơn:
Private Sub Command1_Click()
Dim i,n,UCLN as integer
n = inputbox ("nhap n tu ban phim")
for i = 1 to n
If n mon i = 0 and i mod 2 <> 0 then
UCLN = i
end if
next
msgbox UCLN
End Sub
Bạn cứ vẽ 1 command1 rồi làm theo nhé.
Chúc bạn thành công ^^(Chưa chạy thử).

[AnhGaWe02]

Ví dụ bạn có 1 TextBox tên là Text1, nhập 1 số vào rồi nhấn vào Button Tim thì nó sẽ hiện ra Label có tên Kq ước số lớn nhất của nó phải ko: thủ cách của mình nhe.
Sự kiện
Private sub Tim_click....
Dim a as integer = Val(Text1.txt)
for i as integer = a-1 to 1 step -1
if a mod i = 0 then
str = "Ước số lớn nhất của" & a & " là: " & i
Kq.text = str
exit for
else
str = a & "không có ước số"
end if
end for
end sub
--------
Chúc bạn thành công, 1 chầu cafe dc ràu :D