bai tap giai phuong trinh bac 2 dung vb6
2 posters
Trang 1 trong tổng số 1 trang
bai tap giai phuong trinh bac 2 dung vb6
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim x
Dim y
Dim d As Long ' delta
Dim kl As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
'kiem tra a b c
If a = 0 And b = 0 And c = 0 Then
Text5 = "p trinh vo so nghiem"
ElseIf a = 0 And b = 0 And c <> 0 Then
Text5 = "p trinh vo nghiem"
ElseIf a = 0 And b <> 0 And c <> 0 Then
Text5 = "p trinh co 1 nghiem duy nhat"
Text6 = -c / b
Text7 = ""
ElseIf a = 0 And b <> 0 And c = 0 Then
Text6 = 0
Text5 = "p trinh co 1 nghiem duy nhat"
End If
' a#0 thi ta co pt bac 2
If a <> 0 Then
Text4 = Val(b * b - 4 * a * c) ' cong thuc tinh delta
' kiem tra su hien dien cua delta
If Text4 = 0 Then
Text5 = "phuong trinh co nghiem kep"
Text6 = -b / 2 * a
Text7 = Text6
ElseIf Text4 > 0 Then
Text5 = "phuong trinh co 2 nghiem rieng biet"
Text6 = (-b + Sqr(Text4)) / (2 * a)
Text7 = (-b - Sqr(Text4)) / (2 * a)
Else
Text5 = "phuong trinh vo nghiem"
Text6 = ""
Text7 = ""
End If
End If
End Sub
Dim a As Long
Dim b As Long
Dim c As Long
Dim x
Dim y
Dim d As Long ' delta
Dim kl As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
'kiem tra a b c
If a = 0 And b = 0 And c = 0 Then
Text5 = "p trinh vo so nghiem"
ElseIf a = 0 And b = 0 And c <> 0 Then
Text5 = "p trinh vo nghiem"
ElseIf a = 0 And b <> 0 And c <> 0 Then
Text5 = "p trinh co 1 nghiem duy nhat"
Text6 = -c / b
Text7 = ""
ElseIf a = 0 And b <> 0 And c = 0 Then
Text6 = 0
Text5 = "p trinh co 1 nghiem duy nhat"
End If
' a#0 thi ta co pt bac 2
If a <> 0 Then
Text4 = Val(b * b - 4 * a * c) ' cong thuc tinh delta
' kiem tra su hien dien cua delta
If Text4 = 0 Then
Text5 = "phuong trinh co nghiem kep"
Text6 = -b / 2 * a
Text7 = Text6
ElseIf Text4 > 0 Then
Text5 = "phuong trinh co 2 nghiem rieng biet"
Text6 = (-b + Sqr(Text4)) / (2 * a)
Text7 = (-b - Sqr(Text4)) / (2 * a)
Else
Text5 = "phuong trinh vo nghiem"
Text6 = ""
Text7 = ""
End If
End If
End Sub
bai tap giai phuong trinh bac 2 dung vb6
neu ma ta them phan ket qua va xoa nguoi ta dung lenh nao vay thay? va cac ban ai biet chi cho minh! thank
thanhxuan- Tổng số bài gửi : 27
Join date : 03/11/2012
Age : 31
Đến từ : tra vinh
Similar topics
» Giải phương trình bậc 3 dùng VB6
» bài tập giải phương trình bậc 3 bằng VB6 [Lê Minh Huy]
» bai giai phuong trinh bang visual basic
» co ai lam adc cua avr khong
» Hướng dẫn sử dụng phần mền Karnaugh Map Minimizer
» bài tập giải phương trình bậc 3 bằng VB6 [Lê Minh Huy]
» bai giai phuong trinh bang visual basic
» co ai lam adc cua avr khong
» Hướng dẫn sử dụng phần mền Karnaugh Map Minimizer
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
Wed Sep 24, 2014 8:46 am by vinagreensun
» Chia sẻ source code mạch đếm 0-99 sử dụng 8051 và LED hồng ngoại
Mon Mar 24, 2014 2:07 pm by xuantruong1911
» mình đang làm đồ án 1 cần làm mạch khó số điện tử dùng ic số và phải có thể thay đổi password
Fri Mar 21, 2014 8:01 pm by saobang
» Chế tạo máy dò kim loại help ?
Fri Nov 29, 2013 11:17 am by Thanhtra conan
» mấy bro vào giup em với
Wed Nov 27, 2013 9:01 pm by luongthanhvp
» giáo trình plc mitsubishi căn bản và nâng cao
Tue Apr 30, 2013 5:55 pm by Admin
» hoc led chay chu
Thu Apr 18, 2013 8:05 pm by vuphong
» QUÉT PHÍM MA TRẬN 4X4 HIỂN THỊ RA LED 7 ĐOẠN
Thu Apr 18, 2013 7:59 pm by thanhxuan
» cách vẽ mạch in bằng ocard 1 cách đơn giản?
Thu Apr 18, 2013 1:09 pm by Admin