• 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

Nhờ các anh chị sửa lỗi hàm tính giá trị biểu thức này cho em với ạ

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

huyenthu86
Bài viết: 1
Ngày tham gia: CN 23/09/2018 6:53 am

Nhờ các anh chị sửa lỗi hàm tính giá trị biểu thức này cho em với ạ

Gửi bàigửi bởi huyenthu86 » T.Sáu 28/09/2018 9:15 am

Function Tieu_BT(x As Single) As Single
If x <= 2 Then kq = 1
ElseIf x < 3 Then kq = 3 - x
Else: kq = 0
End If
Tieu_BT = kq
End Function

Khi dịch nó báo lỗi " Else without If", em mới tìm hiểu Visual Basic nên chưa sửa được. Cảm ơn trước ạ!



Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4762
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Nhờ các anh chị sửa lỗi hàm tính giá trị biểu thức này cho em với ạ

Gửi bàigửi bởi truongphu » CN 30/09/2018 5:53 pm

Trong function trên, bạn huyenthu86 viết khá tốt với người mới nhập môn VB6.
1- Cú pháp If... Then
a- Nếu bạn dùng [if=điều kiện] và [Then=kết quả]chỉ 1 hàng thì không dùng End If (kết thúc)
Vd: If x <= 2 Then kq = 1
b- Nếu bạn dùng nhiều hàng, buộc phải dùng End If
Vd: If x <= 2 Then
kq = 1
End If

2- Bởi thế cho nên khi VB6 chạy code của bạn, dòng 1=tốt, dòng 2= tốt, qua dòng 3 tự nhiên lồi ra ElseIf, nó báo lỗi vì chả thấy điều kiện If trước đó.
Tạm sửa = viết > 1 dòng:
If x <= 2 Then
kq = 1
ElseIf x < 3 Then kq = 3 - x

3- Trong function trên, biến kg không rõ ở đâu ra. Nếu nó được khai báo từ đầu Private hay Public thì thôi. Nếu chưa khai báo, bạn phải viết thêm dòng khai báo trong function, vd:


Kết quả tạm sửa như sau:

  1. Function Tieu_BT(x As Single) As Single
  2. Dim kq As Single
  3. If x <= 2 Then
  4.   kq = 1
  5.   ElseIf x < 3 Then kq = 3 - x
  6. Else:  kq = 0
  7. End If
  8. Tieu_BT = kq
  9. End Function
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


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.15 khách