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

Chập chững VBA

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Bài tập Access
  • Chập chững VBA
• Chập chững VBA

• RE: Chập chững VBA

  phuc_thanhtien > 20-04-16, 09:58 AM

  nhân được ongke0711 sửa giúp cho code giải phương trình bậc 2 mình đăng lên cho ai cần tham khảo:
  
  

  

  
  
  

  Mã PHP:

  Private Sub cmdGiaiPTB2_Click()
Dim A, B, C, delta, x, x1, x2 As Double
Dim Kqua As String

A = Me.txta
B = Me.txtb
C = Me.txtc

If A = 0 Then
   If B = 0 Then
       If C = 0 Then
           Kqua = "Phương trình có vô số nghiệm"
       Else
           Kqua = "Phương trình vô nghiệm"
       End If
   Else
       x1 = -C / B
       Kqua = "Phương trình có 1 nghiệm: X = " & x1
   End If
Else
   delta = (B ^ 2) - (4 * A * C)
   Select Case delta
       Case 0
           x = -B / (2 * A)
           Kqua = "Phương trình có nghiệm kép: x1 = x2 = " + Trim(Str(x))
       Case Is > 0
           x1 = (-B + Sqr(delta)) / (2 * A)
           x2 = (-B - Sqr(delta)) / (2 * A)
           Kqua = "Phương trình có 2 nghiệm phân biệt:" + Chr(13) _
           + " X1 = " & x1 & Chr(13) _
           + " X2 = " & x2
       Case Is < 0
           Kqua = "Phương trình vô nghiệm"
   End Select
End If 


  
  https://drive.google.com/open?id=0B2yhiz...WktZG9JbGM

• RE: Chập chững VBA

  phuc_thanhtien > 24-04-16, 01:08 AM

  Nhờ các bạn xem dùm lỗi này:
  
  
  
  Cảm ơn.
  ----------
  Bạn ongke0711 đã sửa dùm cho mình rồi nhé:
  
  

  Mã PHP:

  Public Function isPrime(ByVal n As Integer) As Boolean
For i = 2 To Sqr(n)
   If n Mod i = 0 Then Exit For
Next
If i <= Sqr(n) Then
   isPrime = False
Else
   isPrime = True
End If
End Function 


  
  Cảm ơn!
• Bài trước Bài tiếp