Latest topics
November 2014
MonTueWedThuFriSatSun
     12
3456789
10111213141516
17181920212223
24252627282930

Calendar Calendar


bai tap giai phuong trinh bac 2 dung vb6

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

bai tap giai phuong trinh bac 2 dung vb6

Bài gửi  Admin on Tue Dec 25, 2012 6:40 pm

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

Admin
Admin

Tổng số bài gửi: 79
Join date: 03/11/2012
Age: 33

Xem lý lịch thành viên http://diendientuhvct.forumvi.com

Về Đầu Trang Go down

bai tap giai phuong trinh bac 2 dung vb6

Bài gửi  thanhxuan on Sun Jan 06, 2013 9:54 am

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: 21
Đến từ: tra vinh

Xem lý lịch thành viên

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

Permissions in this forum:
Bạn không có quyền trả lời bài viết