tính tổng các số hạng visual bacsic

[Vunguyen5611]

giúp với mọi ngườiơi ,.......................................................................................

 

[namvu230397]

View attachment 278081giúp với mọi ngườiơi ,.......................................................................................

bạn trả lời hết rồi còn gì

 

[Vunguyen5611]

View attachment 278081giúp với mọi ngườiơi ,.......................................................................................

bạn trả lời hết rồi còn gi

minh xin code a bạn bài này k phải của mình

Bài đã được tự động gộp: 29/6/22

minh xin code a bạn bài này k phải của mình

giúp mình với

 

[VetMini]

Function ThoaDK1(ByVal so As Long) As Boolean
' xét xem một số có thỏa cả 2 điều kiện:
' 1. số âm
' 2. chia hết cho 7
If so >= 0 Then Exit Function
If (so Mod 7) Then Exit Function
ThoaDK1 = True
End Function

Function ThoaDK2(ByVal so As Long) As Boolean
' xét xem một số có thỏa cả 2 điều kiện:
' 1. số lẻ
' 2. nằm trong đoạn [-20 15]
If (so And 1) = 0 Then Exit Function
If (so < -20) Then Exit Function
If (so > 15) Then Exit Function
ThoaDK2 = True
End Function

Chỗ còn lại dễ ợt. Không biết làm tiếp thì nghỉ học đi.

 

[Vunguyen5611]

bạn ơi mình mới đuowjc học về cái này nên chỉ mới biết được sử dụng if với for nên chưa rành mấy

 

[VetMini]

bạn ơi mình mới đuowjc học về cái này nên chỉ mới biết được sử dụng if với for nên chưa rành mấy

Thì cứ việc thử đưa code if với for lên xem.
Xe máy chỉ cần biết sang số và vặn ga là chạy được rồi. Code còn dễ hơn, đâu có vỡ đầu sứt trán mà phải lo.