Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Chập chững VBA
#11
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:

[Hình: ptb2.jpg]


Mã PHP:
Private Sub cmdGiaiPTB2_Click()
Dim ABCdeltaxx1x2 As Double
Dim Kqua 
As String

Me.txta
Me.txtb
Me.txtc

If 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 
= -B
       Kqua 
"Phương trình có 1 nghiệm: X = " x1
   End 
If
Else
   delta = (2) - (C)
   Select Case delta
       Case 0
           x 
= -/ (A)
           Kqua "Phương trình có nghiệm kép: x1 = x2 = " Trim(Str(x))
       Case Is 0
           x1 
= (-Sqr(delta)) / (A)
           x2 = (-Sqr(delta)) / (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
Chữ ký của phuc_thanhtien phuc_thanhtien,gia nhập Thủ Thuật Access từ 08-03 -16.
Reply
Những người đã cảm ơn
#12
Nhờ các bạn xem dùm lỗi này:

[Hình: 123456.jpg]

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 2 To Sqr(n)
   If n Mod i 0 Then Exit For
Next
If <= Sqr(nThen
   isPrime 
False
Else
   isPrime True
End 
If
End Function 

Cảm ơn!
Chữ ký của phuc_thanhtien phuc_thanhtien,gia nhập Thủ Thuật Access từ 08-03 -16.
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
  [Help] Giải dùm đề thi chứng chỉ Tin Học Quốc Gia với Anh - Chị ợi airlblood 1 492 06-12-13, 09:33 PM
Bài mới nhất: khải nguyên

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ơ