[Giải nhanh] Bài tập về Lập trình Visua basic6.0

[neptunes]

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










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!

[neptunes]

ok` k0 có ai bt về VB ak` soa k0 có ai trả lời vậy mong mọi người giúp mình cái

[Heroceasar7384]

Lỗi Division By Zero là lỗi chia cho số 0. Lỗi này phát sinh khi bạn thực hiện lệnh chia a[i] cho a[j] kết quả lấy phần dư. Bạn nên có điều kiện j <> 0 thì chương trình của bạn sẽ hết lỗi

[vietdungvt]

mihn cũng đang học vb.bạn có bài nào hay không cho mình cái mã