Đánh giá chủ đề:
  • 1 Votes - 2 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp đoạn code tìm số nguyên tố!
#11
Chỗ
If Forms![songuyento]![sOnt] Is Null Then
MsgBox "Khong duoc de trong", 14, "Thong Bao"
exit sub
End If

đổi lại thế này ^^!
sorry vì mình ko test.
If IsNull(Forms![songuyento]![sONT]) Then
MsgBox "Khong duoc de trong", 14, "Thong Bao"
Exit Sub
End If
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 Noname , casio262
#12
^^ Ok rùi ah.
Cho mình biết thêm câu lệnh khác rỗng luôn đi happy
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#13
Khác rỗng thì
If IsNull(Forms![songuyento]![sONT])=False Then
MsgBox "TextBox khong rong", 14, "Thong Bao"
End If
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
#14
Oh, vừa nãy mình thử
Forms![songuyento]![sONT] <> ""
Như thế này cũng được.
Nhưng của bạn đúng hơn big greenbig greenbig green
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#15
Mình xin post lên bài hoàn chỉnh về số nguyên tố để mọi người tham khảo
Mã:
Private Sub Command2_Click()
    Dim i, x As Integer
    Dim check As Integer
    check = 0
    If Me![sOnt] = 0 Or Me![sOnt] = 1 Then
        MsgBox "ko phai la so nguyen to", 14, "Thong bao"
        Exit Sub
    Else
        If Me![sOnt] < 0 Then
        MsgBox "Ko dc nhap so < 0", 14, "Thong bao"
        
    Else
        If IsNull(Me![sOnt]) Then
            MsgBox "Khong duoc de trong", 14, "Thong Bao"
    Else
        
        If IsNull(Me![sOnt]) = False 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
        End If
        End If
        End If
    End If
End Sub
Thân!
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#16
(19-04-12, 11:52 AM)casio262 Đã viết: Mình xin post lên bài hoàn chỉnh về số nguyên tố để mọi người tham khảo
Mã:
Private Sub Command2_Click()
    Dim i, x As Integer
    Dim check As Integer
    check = 0
    If Me![sOnt] = 0 Or Me![sOnt] = 1 Then
        MsgBox "ko phai la so nguyen to", 14, "Thong bao"
        Exit Sub
    Else
        If Me![sOnt] < 0 Then
        MsgBox "Ko dc nhap so < 0", 14, "Thong bao"
        
    Else
        If IsNull(Me![sOnt]) Then
            MsgBox "Khong duoc de trong", 14, "Thong Bao"
    Else
        
        If IsNull(Me![sOnt]) = False 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
        End If
        End If
        End If
    End If
End Sub
Thân!

Lưu ý : Sau từ Else, không viết câu lệnh xuống dòng như bạn vì còn câu Else tiếp theo nữa. Viết như vậy sẽ bị báo lỗi, phải viết liền nhau ElseIf. Sửa lại như sau :
Mã:
Private Sub Command2_Click()
    Dim i, x As Integer
    Dim check As Integer
    check = 0
    If Me![sOnt] = 0 Or Me![sOnt] = 1 Then
        MsgBox "ko phai la so nguyen to", 14, "Thong bao"
        Exit Sub
    ElseIf Me![sOnt] < 0 Then
        MsgBox "Ko dc nhap so < 0", 14, "Thong bao"
        Exit Sub
    ElseIf IsNull(Me![sOnt]) Then
        MsgBox "Khong duoc de trong", 14, "Thong Bao"
        Exit Sub
    ElseIf IsNull(Me![sOnt]) = False 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        
End Sub

Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#17
Ủa bài của em vẫn chạy bình thường mà.
Thường thường thì em toàn viết như vậy thui.
Không biết cách của anh nói có sai không nhỉ Nghi ngờ quá hj big greenbig greenbig green
Chữ ký của casio262 http://lequang.vn
Reply
Những người đã cảm ơn
#18
(24-04-12, 12:33 PM)casio262 Đã viết: Ủa bài của em vẫn chạy bình thường mà.
Thường thường thì em toàn viết như vậy thui.
Không biết cách của anh nói có sai không nhỉ Nghi ngờ quá hj big greenbig greenbig green

Bạn viết không sai, nhưng cách trình bày ở chỗ này làm người đọc, kể cả bạn rất dễ nhầm lẫn
Mã:
Else
        If IsNull(Me![sOnt]) Then
            MsgBox "Khong duoc de trong", 14, "Thong Bao"
    Else
        
        If IsNull(Me![sOnt]) = False Then
            For i = 2 To Sqr(sOnt)
Khác nhau ở chữ Else rồi If xuống dòng và ElseIf viết liền là ở chỗ ElseIf viết liền nó nằm chung câu lệnh với if
Còn Nếu Viết rời ra, thì If kia là một mệnh đề con.


Ta có thể hiểu kiểu viết liền như sau:

Mã:
If ĐiềukiệnI then
'Lựa chọn 1
ElseIf ĐiềukiệnII then
'Lựa chọn II
Else
'lựa chọn Không thỏa cả hai điều kiện trên
End If

Bạn để ý code trên, ta chỉ dùng 1 lần EndIf thôi. Nhưng nếu viết rời bạn phải viết thế này:

Mã:
If ĐiềuKiệnI then
'Lựa ChọnI
Else ' ngược lại
      If Điều Kiện II
          'Lựa Chọn II
      Else
      ' lựa chọn Không thỏa cả hai điều kiện trên
     End If
End If

bạn thấy ở Code thứ 2 này, bạn dư ra 1 lần end if. Về mặc logic không sai nhưng về mặc lý luận nó dài dòng và xa thực tế.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
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 4 85 11 Giờ trước
Bài mới nhất: maidinhdan
  Cần giúp đỡ chuyển số có thập phân ra chữ ledangvan 12 638 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 141 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 199 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ơ