neptunes
08-11-2009, 04:24 PM
Bài tập: Tìm số N trong dãy số nguyên sao cho N chia hết cho các phần tử trong dãy số là nhiều nhất
Dim a(20) As Integer
Dim n As Integer
Private Sub Cmdkq_Click()
Dim max As Integer
Dim d As Integer
max = 0
d = 0
For i = 1 To n - 1
For j = i + 1 To n
If a(i) Mod a(j) = 0 Then
d = d + 1
End If
If max < d Then
max = d
k = i
End If
Next
Next
txtkq.Text = a(j)
End Sub
Private Sub txtn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtvn.Text = txtvn.Text & " " & txtn.Text
a(n) = txtn.Text
n = n + 1
txtn.Text = " "
End If
End Sub
http://img.photo.zing.vn/file_uploads/gallery/sources/2009/11/08/08/26121257687291.bmp
http://img.photo.zing.vn/file_uploads/gallery/sources/2009/11/08/08/23351257687328.bmp
http://img.photo.zing.vn/file_uploads/gallery/sources/2009/11/08/08/91711257687393.bmp
Các Pác giúp e bài này với e chạy thử máy báo lỗi .."11" đó e k0 bt đây là lỗi j` mong các pác LT jup" e với. mọi người giải nhanh mình bài này với xem sai ở chỗ nào.
Thanks!
Dim a(20) As Integer
Dim n As Integer
Private Sub Cmdkq_Click()
Dim max As Integer
Dim d As Integer
max = 0
d = 0
For i = 1 To n - 1
For j = i + 1 To n
If a(i) Mod a(j) = 0 Then
d = d + 1
End If
If max < d Then
max = d
k = i
End If
Next
Next
txtkq.Text = a(j)
End Sub
Private Sub txtn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtvn.Text = txtvn.Text & " " & txtn.Text
a(n) = txtn.Text
n = n + 1
txtn.Text = " "
End If
End Sub
http://img.photo.zing.vn/file_uploads/gallery/sources/2009/11/08/08/26121257687291.bmp
http://img.photo.zing.vn/file_uploads/gallery/sources/2009/11/08/08/23351257687328.bmp
http://img.photo.zing.vn/file_uploads/gallery/sources/2009/11/08/08/91711257687393.bmp
Các Pác giúp e bài này với e chạy thử máy báo lỗi .."11" đó e k0 bt đây là lỗi j` mong các pác LT jup" e với. mọi người giải nhanh mình bài này với xem sai ở chỗ nào.
Thanks!