• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tính toán trong VB

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

hunter.dll
Thành viên chính thức
Thành viên chính thức
Bài viết: 29
Ngày tham gia: T.Hai 25/04/2011 11:57 pm
Has thanked: 7 time

Tính toán trong VB

Gửi bàigửi bởi hunter.dll » CN 24/07/2011 4:29 pm

Mình có 2 phần a & b, mình muốn tính số %a trong a+b nên viết như này :

  1. a = Text2.Text
  2. b = Text3.Text
  3. MsgBox a / (a + b) * 100


nhưng tính ra thì là bằng : 0.990099 ....

vậy thì cái này sai đâu nhỉ ?

và mình thử làm :
a+b=c
nhưng nó ra là
a+b=ab

cảm ơn các bạn đã đọc, mong đc các bạn giúp!



Hình đại diện của người dùng
VuVanHoanh
Thành viên danh dự
Thành viên danh dự
Bài viết: 1259
Ngày tham gia: T.Năm 03/06/2010 9:23 pm
Đến từ: Kim Sơn - Đông Triều - Quảng Ninh
Has thanked: 22 time
Been thanked: 138 time
Liên hệ:

Re: Tính toán trong VB

Gửi bàigửi bởi VuVanHoanh » CN 24/07/2011 8:38 pm

a,b đặt thể loại biến là gì? phải là số thì mới tính a+b được vì ở chuỗi, a+b được ngầm định là gán chuỗi.
Sửa:

Tương tự, tính %:
  1. MsgBox CInt(a) / (CInt(a) + CInt(b)) * 100
Since 2008...
One love! :x

Hình đại diện của người dùng
VBNewbie
Thành viên tích cực
Thành viên tích cực
Bài viết: 113
Ngày tham gia: T.Bảy 29/03/2008 7:13 pm
Đến từ: Computer
Been thanked: 3 time
Liên hệ:

Re: Tính toán trong VB

Gửi bàigửi bởi VBNewbie » CN 24/07/2011 11:06 pm

  1. Dim a as Double
  2. Dim b as Double
  3. a = CDbl(Text2.Text)
  4. b = CDbl(Text3.Text)
  5. MsgBox "%a = " & (a/(a+b)*100) & "%"
  6.  


Nối chuỗi thì nên dùng hơn dùng

akai_193
Bài viết: 2
Ngày tham gia: T.Sáu 11/11/2011 1:32 pm

Re: Tính toán trong VB

Gửi bàigửi bởi akai_193 » T.Sáu 11/11/2011 10:40 pm

Dim a, b As Double
a = Val(Text2.Text)
b = Val(Text3.Text)
MsgBox a / (a + b) * 100
End Sub

Hình đại diện của người dùng
hongtamtk
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 385
Ngày tham gia: T.Năm 11/08/2011 9:32 am
Đến từ: Trường Cao đẵng KT - KT Quãng Nam !! C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE
Has thanked: 13 time
Been thanked: 63 time
Liên hệ:

Re: Tính toán trong VB

Gửi bàigửi bởi hongtamtk » T.Bảy 12/11/2011 9:53 am

  1. Dim a as double, b As Double ' akai_1993 chú ý cái này cần khai báo cho 2 biến chứ ko phải gộp lại như pascall
  2. a = Val(Text2.Text)
  3. b = Val(Text3.Text)
  4. MsgBox a / (a + b) * 100
  5. End Sub
Hãy ghé thăm blog của tôi tại http://gaduaxe.com nơi chia sẽ những kiến thức về website!


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.5 khách