trợ giúp hàm tính tổng các chữ số của số nguyên dương (1 người xem)

[truonghd95]

Chào các bác, e đang tập tành học VBA đến bài tính tổng các số nguyên dương, e viết chương trình không hiểu sao n toàn cộng thêm 1 đơn vị,
Các bác check hộ e với ạ.
E cảm ơn các bác ạ
Public Function Tongchuso(N As Variant)
Dim tong, chiadu As Variant
tong = 0
Do While N > 0
chiadu = N Mod 10
N = N / 10
tong = tong + chiadu
Loop
Tongchuso = tong
End Function

 

[Phuocam]

Chào các bác, e đang tập tành học VBA đến bài tính tổng các số nguyên dương, e viết chương trình không hiểu sao n toàn cộng thêm 1 đơn vị,
Các bác check hộ e với ạ.
E cảm ơn các bác ạ
Public Function Tongchuso(N As Variant)
Dim tong, chiadu As Variant
tong = 0
Do While N > 0
chiadu = N Mod 10
N = N / 10
tong = tong + chiadu
Loop
Tongchuso = tong
End Function

Thử thay dòng: N = N / 10

bằng N = N \ 10

hoặc N = int( N / 10)

 

[Tình nghĩa giang hồ]

Thử thay dòng: N = N / 10

bằng N = N \ 10

hoặc N = int( N / 10)

Em thấy N = int( N / 10) thì đúng đó anh.
123 sẽ cho ra kết quả 6

 

[truonghd95]

Thử thay dòng: N = N / 10

bằng N = N \ 10

hoặc N = int( N / 10)e cảm o

Em thấy N = int( N / 10) thì đúng đó anh.
123 sẽ cho ra kết quả 6

Thử thay dòng: N = N / 10

bằng N = N \ 10

hoặc N = int( N / 10)

cảm ơn các bác ạ, e làm như bác đã đúng r ạ, e đọc tài liệu thì toán tử "/" là chia lấy phần nguyên mà th này lại k đúng, bác có thể giải thích cho e được k ạ

 

[Phuocam]

cảm ơn các bác ạ, e làm như bác đã đúng r ạ, e đọc tài liệu thì toán tử "/" là chia lấy phần nguyên mà th này lại k đúng, bác có thể giải thích cho e được k ạ

.
a/ b => a chia b lấy hết.

a\b => a chia b lấy phần nguyên.

 

[truonghd95]

.
a/ b => a chia b lấy hết.

a\b => a chia b lấy phần nguyên.

vâng, e cảm ơn bác nhiều ạ

 

[Phuocam]

vâng, e cảm ơn bác nhiều ạ

Một cách khác:

Public Function Tongchuso(N As String) As Long
Dim tong As Long, i As Long
For i = 1 To Len(N)
    tong = tong + Mid(N, i, 1)
Next i
Tongchuso = tong
End Function

 

[truonghd95]

Một cách khác:

Public Function Tongchuso(N As String) As Long
Dim tong As Long, i As Long
For i = 1 To Len(N)
    tong = tong + Mid(N, i, 1)
Next i
Tongchuso = tong
End Function

em cảm ơn bác ạ

 

[VetMini]

.
a/ b => a chia b lấy hết.

a\b => a chia b lấy phần nguyên.

Không hẳn vậy.
Hầu hết các ngôn ngữ lập trình cũ đều phân biệt rõ số nguyên và số thập phân. Và vì vậy, chúng làm toán với số nguyên (integer, long) hiệu quả hơn số thập phân (single, double) nhiều (khá nhiều đối với máy tính cũ)
/ là con toán chia số thập phân. Tham số nó là số thập phân, Và kết quả là số thập phân. Không có gì quan trọng để nói.
\ là con toán chia số nguyên. Tham số nó là số nguyên. Và kết quả là số nguyên. Nếu bạn nạp sô thập phân làm tham, số này sẽ được ép kiểu thành số nguyên.
Nếu chỉ "chia lấy phần nguyên" thì 3.5 \ 2 = 1 (phần nguyên của 1.75 là 1)
Theo VBA thì 3.5 \ 2 = 2 (3.5 ép kiểu sang nguyên là 4).

 

[truonghd95]

Không hẳn vậy.
Hầu hết các ngôn ngữ lập trình cũ đều phân biệt rõ số nguyên và số thập phân. Và vì vậy, chúng làm toán với số nguyên (integer, long) hiệu quả hơn số thập phân (single, double) nhiều (khá nhiều đối với máy tính cũ)
/ là con toán chia số thập phân. Tham số nó là số thập phân, Và kết quả là số thập phân. Không có gì quan trọng để nói.
\ là con toán chia số nguyên. Tham số nó là số nguyên. Và kết quả là số nguyên. Nếu bạn nạp sô thập phân làm tham, số này sẽ được ép kiểu thành số nguyên.
Nếu chỉ "chia lấy phần nguyên" thì 3.5 \ 2 = 1 (phần nguyên của 1.75 là 1)
Theo VBA thì 3.5 \ 2 = 2 (3.5 ép kiểu sang nguyên là 4).

View attachment 301434

e cảm ơn bác nhiều ạ