xem hộ mình bài VB này với :(

[Assasin_Cruz]

1. tìm lỗi sai trong chương trình, sửa và chạy chương trình

Sub PSGRSX ()
Dim pName As String, I, Col, Ts, Pd As Integer
pName = InputBox(“dẫn ra tên người dùng”)
Col = InputBox(“dẫn ra số lượng hàng được mua trong hôm nay”)
Ts = 0
For I = 1 To Col
MsgBox pName & (“đây là của bạn”) & I & (“mua”)
Pd = InputBox(“dẫn ra số lượng tiền phải trả”)
Ts = Ts + Pd
MsgBox pName & (“bạn đã tiêu”) & Ts & (“đô la”)
End Sub

huhu có pro nào làm hộ mình bài này với , xin cảm ơn và + rep 1 tháng
làm trên VB 6.0 nha :-*

 

[soidenband]

forum này chắc sẽ giúp được bạn http://www.caulacbovb.com/forum/index.php

 

[Bối Bối]

For index = start To end [Step step]
[ Statements ]
[ Exit For ]
Next [index]

trong bài còn thiếu Next I để chạy vòng lặp FOR

 

[Assasin_Cruz]

cảm ơn nha nhưng mà mình có biết thay vào đâu đâu
bạn giúp thì giúp cho trót , làm sao mà chỉ cần copy paste là đc ý

 

[Bối Bối]

..........
Ts = Ts + Pd
Next I