Đánh giá chủ đề:
  • 1 Votes - 2 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp đoạn code tìm số nguyên tố!
#1
Mã:
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
Đ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 for
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!
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#2
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 ^^!
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn casio262
#3
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 sad
Thanks bác!
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#4
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ỉ 75_75
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#5
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.
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
Access nhiều cái lạ phải nhớ câu lệnh dần thui whew!
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 crying
Hjxhjx..
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#7
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
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
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!
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#9
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
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
nó báo lỗi
run-time error '424'
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 2 58 05-12-16, 04:34 PM
Bài mới nhất: Phung Duc
  Cần giúp đỡ chuyển số có thập phân ra chữ ledangvan 12 635 07-11-16, 03:56 PM
Bài mới nhất: maidinhdan
  [Hỏi] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 140 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  Giải thích ý nghĩ của đoạn code feeling 3 197 06-10-16, 10:18 AM
Bài mới nhất: vulhu06
  Xin giúp đỡ về VBA Access ! vocan 12 664 11-07-16, 10:45 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ