HVCT_Khoa Điện - Điện tử
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Keywords

Latest topics
» Trang bị điện
bai tap giai phuong trinh bac 2 dung vb6 EmptyWed 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
bai tap giai phuong trinh bac 2 dung vb6 EmptyMon 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
bai tap giai phuong trinh bac 2 dung vb6 EmptyFri Mar 21, 2014 8:01 pm by saobang

» Chế tạo máy dò kim loại help ?
bai tap giai phuong trinh bac 2 dung vb6 EmptyFri Nov 29, 2013 11:17 am by Thanhtra conan

» mấy bro vào giup em với
bai tap giai phuong trinh bac 2 dung vb6 EmptyWed Nov 27, 2013 9:01 pm by luongthanhvp

» giáo trình plc mitsubishi căn bản và nâng cao
bai tap giai phuong trinh bac 2 dung vb6 EmptyTue Apr 30, 2013 5:55 pm by Admin

» hoc led chay chu
bai tap giai phuong trinh bac 2 dung vb6 EmptyThu Apr 18, 2013 8:05 pm by vuphong

» QUÉT PHÍM MA TRẬN 4X4 HIỂN THỊ RA LED 7 ĐOẠN
bai tap giai phuong trinh bac 2 dung vb6 EmptyThu Apr 18, 2013 7:59 pm by thanhxuan

» cách vẽ mạch in bằng ocard 1 cách đơn giản?
bai tap giai phuong trinh bac 2 dung vb6 EmptyThu Apr 18, 2013 1:09 pm by Admin

March 2024
MonTueWedThuFriSatSun
    123
45678910
11121314151617
18192021222324
25262728293031

Calendar Calendar


bai tap giai phuong trinh bac 2 dung vb6

2 posters

Go down

bai tap giai phuong trinh bac 2 dung vb6 Empty bai tap giai phuong trinh bac 2 dung vb6

Bài gửi  Admin 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 : 42

https://diendientuhvct.forumvi.com

Về Đầu Trang Go down

bai tap giai phuong trinh bac 2 dung vb6 Empty bai tap giai phuong trinh bac 2 dung vb6

Bài gửi  thanhxuan 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 : 31
Đến từ : tra vinh

Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

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