O
oxygen
Trung cấp
- 9/2/04
- 83
- 0
- 0
Em có 1 bt nhỏ như sau:
Lập bảng tính tiền điện thoại với giá cước như sau:
-------------------------------------------------------------------------------------
I Số phút I Giá (đ/phút) I
-------------------------------------------------------------------------------------
I 0 - 300 I 120 I
I 300 - 1000 I 80 I
I >1000 I 40 I
-------------------------------------------------------------------------------------
Thuê bao = 27 000
Tạo from gồm các mục sau:
-------------------------------------------------------------------------------------
I Object I Name I
-------------------------------------------------------------------------------------
I Textbox I txtTongsophut I
I Textbox I txtTongsotien I
I Command button I cmdTinh I
-------------------------------------------------------------------------------------
vd: nếu trong tháng ta sd 200 phút thì phải nộp 27000 + 300*120 + 300*80 = 87000 đ
Code như sau:
Private Sub cmdTinh_Click()
Dim Sophut As Double
Sophut = Val(txtTongsophut.Text)
If Sophut > 1000 Then
txtTongsotien.Text = 27000 + 300 * 120 + 700 * 80 + (Sophut - 1000) * 40
Else
If Sophut > 300 And Sophut <= 1000 Then
txtTongsotien.Text = 27000 + 300 * 120 + (Sophut - 300) * 80
Else
If Sophut > 0 And Sophut <= 300 Then
txtTongsotien.Text = 27000 + Sophut * 120
Else
MsgBox "Nhap so khong hop le.", vbCritical, "Thong bao"
txtTongsophut = ""
txtTongsophut.SetFocus
End If
End If
End If
End Sub
Nhưng khi nhập số phút vào thì bị lỗi. Tại sao vậy?
mẹc xy
Lập bảng tính tiền điện thoại với giá cước như sau:
-------------------------------------------------------------------------------------
I Số phút I Giá (đ/phút) I
-------------------------------------------------------------------------------------
I 0 - 300 I 120 I
I 300 - 1000 I 80 I
I >1000 I 40 I
-------------------------------------------------------------------------------------
Thuê bao = 27 000
Tạo from gồm các mục sau:
-------------------------------------------------------------------------------------
I Object I Name I
-------------------------------------------------------------------------------------
I Textbox I txtTongsophut I
I Textbox I txtTongsotien I
I Command button I cmdTinh I
-------------------------------------------------------------------------------------
vd: nếu trong tháng ta sd 200 phút thì phải nộp 27000 + 300*120 + 300*80 = 87000 đ
Code như sau:
Private Sub cmdTinh_Click()
Dim Sophut As Double
Sophut = Val(txtTongsophut.Text)
If Sophut > 1000 Then
txtTongsotien.Text = 27000 + 300 * 120 + 700 * 80 + (Sophut - 1000) * 40
Else
If Sophut > 300 And Sophut <= 1000 Then
txtTongsotien.Text = 27000 + 300 * 120 + (Sophut - 300) * 80
Else
If Sophut > 0 And Sophut <= 300 Then
txtTongsotien.Text = 27000 + Sophut * 120
Else
MsgBox "Nhap so khong hop le.", vbCritical, "Thong bao"
txtTongsophut = ""
txtTongsophut.SetFocus
End If
End If
End If
End Sub
Nhưng khi nhập số phút vào thì bị lỗi. Tại sao vậy?
mẹc xy