Tùy chọn
Giúp đoạn code tìm số nguyên tố!
- Giúp đoạn code tìm số nguyên tố!
-
Giúp đoạn code tìm số nguyên tố!
casio262 > 16-04-12, 10:15 AM
Đoạn code này em bị sai trường hợp khi nhập vào số 1 hoặc số 0 thì nó vẫn chạy tiếp đến vòng lặp forMã:Private Sub Command2_Click()
Dim i As Integer
Dim check As Integer
check = 0
If Forms![form2]![sOnt] = 0 Or Forms![form2]![sOnt] = 1 Then
MsgBox "ko phai la so nguyen to", 14, "Thong bao"
End If
For i = 2 To Sqr(sOnt)
If sOnt Mod i = 0 Then
check = 1
Exit For
End If
Next
If check = 0 Then
MsgBox "La so nguyen to", 14, "Thong bao"
Else
MsgBox "Ko phai la so nguyen to", 14, "Thong Bao"
End If
End Sub
Mọi người cho mình hỏi câu lệnh để nó dừng lại hoặc kết thúc luôn chương trình trong VBA là gì vậy?
Cảm ơn mọi người! -
RE: Giúp đoạn code tìm số nguyên tố!
hoanglonglangtu > 16-04-12, 10:29 AM
Bạn thêm câu lệnh Exit Sub dưới dòng MsgBox "ko phai la so nguyen to", 14, "Thong bao" là oki ^^! -
RE: Giúp đoạn code tìm số nguyên tố!
casio262 > 16-04-12, 10:34 AM
Ok rùi bạn ah ^^
Vừa nãy mình cho end sub vào thì báo lỗi ngay chứ.
Hóa ra là lệnh exit sub
Thanks bác! -
RE: Giúp đoạn code tìm số nguyên tố!
casio262 > 16-04-12, 10:55 AM
Ah quên cho mình hỏi thêm chút về lệnh sqr trong VBA này là căn bậc 2 còn lệnh bình phương trong VBA này là gì nhỉ?
sqr ở các ngôn ngữ khác là bình phương sao trong này lại ngược lại nhỉ
-
RE: Giúp đoạn code tìm số nguyên tố!
hoanglonglangtu > 16-04-12, 11:55 AM
Trong trong access mình bít thì không xài bình phương mà xài phép toán số mũ ( ^ )
VD : 2^2= 4, 2^3 =8
Thân. -
RE: Giúp đoạn code tìm số nguyên tố!
casio262 > 16-04-12, 04:20 PM
Access nhiều cái lạ phải nhớ câu lệnh dần thui
Mã:Private Sub Command2_Click()
Dim i As Integer
Dim check As Integer
check = 0
If Forms![songuyento]![sOnt] = 0 Or Forms![songuyento]![sOnt] = 1 Then
MsgBox "ko phai la so nguyen to", 14, "Thong bao"
Exit Sub
Else
If Forms![songuyento]![sOnt] <> Null Then
For i = 2 To Sqr(sOnt)
If sOnt Mod i = 0 Then
check = 1
MsgBox "Ko phai la so nguyen to", 14, "Thong Bao"
Exit For
End If
Next
If check = 0 Then
MsgBox "La so nguyen to", 14, "Thong bao"
End If
Else
If Forms![songuyento]![sOnt] = Null Then
MsgBox "Khong duoc de trong", 14, "Thong Bao"
End If
End If
End If
End Sub
Mọi người xem giúp hộ mình sai ở đâu vậy?
Giờ muốn kiểm tra không cho để kí tự trống trong text box đó mà vẫn chưa xong
Hjxhjx.. -
RE: Giúp đoạn code tìm số nguyên tố!
hoanglonglangtu > 16-04-12, 04:34 PM
Giờ bạn còn thắc mắc chỗ nào vậy. Bạn nói rõ mọi ng sẽ giúp bạn -
RE: Giúp đoạn code tìm số nguyên tố!
casio262 > 16-04-12, 04:38 PM
Muốn kiểm tra kí tự rỗng.
Nếu là rỗng sẽ thông báo không được để trống
Mình post đoạn code của mình ở trên rùi đó, xem qua cho mình với! -
RE: Giúp đoạn code tìm số nguyên tố!
hoanglonglangtu > 16-04-12, 04:54 PM
Private Sub Command2_Click()
Dim i As Integer
Dim check As Integer
check = 0
If Forms![songuyento]![sOnt] = 0 Or Forms![songuyento]![sOnt] = 1 Then
MsgBox "ko phai la so nguyen to", 14, "Thong bao"
Exit Sub
end if
If Forms![songuyento]![sOnt] Is Null Then
MsgBox "Khong duoc de trong", 14, "Thong Bao"
exit sub
End If
For i = 2 To Sqr(sOnt)
If sOnt Mod i = 0 Then
check = 1
MsgBox "Ko phai la so nguyen to", 14, "Thong Bao"
Exit For
End If
Next
If check = 0 Then
MsgBox "La so nguyen to", 14, "Thong bao"
End If
End Sub
Bạn thử lại với thế này xem sao -
RE: Giúp đoạn code tìm số nguyên tố!
casio262 > 16-04-12, 05:00 PM
nó báo lỗi
run-time error '424'