• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Giúp đoạn code tìm số nguyên tố!

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Giúp đoạn code tìm số nguyên tố!
• Giúp đoạn code tìm số nguyên tố!

• RE: Giúp đoạn code tìm số nguyên tố!

  hoanglonglangtu > 16-04-12, 05:22 PM

  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

• RE: Giúp đoạn code tìm số nguyên tố!

  casio262 > 18-04-12, 11:08 AM

  ^^ Ok rùi ah.
  Cho mình biết thêm câu lệnh khác rỗng luôn đi

• RE: Giúp đoạn code tìm số nguyên tố!

  hoanglonglangtu > 18-04-12, 11:13 AM

  Khác rỗng thì
  If IsNull(Forms![songuyento]![sONT])=False Then
  MsgBox "TextBox khong rong", 14, "Thong Bao"
  End If

• RE: Giúp đoạn code tìm số nguyên tố!

  casio262 > 18-04-12, 11:16 AM

  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

• RE: Giúp đoạn code tìm số nguyên tố!

  casio262 > 19-04-12, 11:52 AM

  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!

• RE: Giúp đoạn code tìm số nguyên tố!

  Xuân Thanh > 19-04-12, 12:02 PM

  (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

• RE: Giúp đoạn code tìm số nguyên tố!

  casio262 > 24-04-12, 12:33 PM

  Ủ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

• RE: Giúp đoạn code tìm số nguyên tố!

  Noname > 24-04-12, 02:07 PM

  (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

  
  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ế.
• Bài trước Bài tiếp