• 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

Moderator: tungblt

hunter.dll
Thành viên chính thức
Thành viên chính thức
Posts: 29
Joined: Mon 25/04/2011 11:57 pm
Has thanked: 7 times

Tính toán trong VB

Postby hunter.dll » Sun 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!



User avatar
VuVanHoanh
Thành viên danh dự
Thành viên danh dự
Posts: 1259
Joined: Thu 03/06/2010 9:23 pm
Location: Kim Sơn - Đông Triều - Quảng Ninh
Has thanked: 22 times
Been thanked: 138 times
Contact:

Re: Tính toán trong VB

Postby VuVanHoanh » Sun 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:
  1. MsgBox CInt(a) + CInt(b)

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

User avatar
VBNewbie
Thành viên tích cực
Thành viên tích cực
Posts: 113
Joined: Sat 29/03/2008 7:13 pm
Location: Computer
Been thanked: 3 times
Contact:

Re: Tính toán trong VB

Postby VBNewbie » Sun 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

Code: Select all

&
hơn dùng

Code: Select all

+

akai_193
Posts: 2
Joined: Fri 11/11/2011 1:32 pm

Re: Tính toán trong VB

Postby akai_193 » Fri 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

User avatar
hongtamtk
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 385
Joined: Thu 11/08/2011 9:32 am
Location: Trường Cao đẵng KT - KT Quãng Nam !! C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE
Has thanked: 13 times
Been thanked: 64 times
Contact:

Re: Tính toán trong VB

Postby hongtamtk » Sat 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!


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: Bing [Bot] and 2 guests