PDA

View Full Version : Giúp Tính Tổng Các Số chẵn Trong VB6.0



cptrunghieu
12-10-2010, 13:40
Mình đang là sinh viên cntt, học VB6 có bài khó giải nên mong các bậc tiền bối chỉ giáo nữa nha!
đề bài là: Tính tổng các số chẵn và tổng các số lẻ
vd 1->10: tổng số lẻ là 1+3+5+7+9
Tổng số chẵn là 2+4+6+8+10

Gửi là cảm ơn...! Thân

vzic
12-10-2010, 13:43
Cái này siêu dễ mà anh. HE he:
Ông a quăng vào form, gán biến kết quả cho label nhé.
tongle=0
tongchan=0
for i=1 to 10
if i mod 2 = 0 then
tongchan=tongchan+i
else
tongle=tongle+i
end if
next

FullOfLove
14-10-2010, 18:50
trời cái bài này mà cũng hỏi
vòng for trong VB cho chọn step luôn nên làm còn dễ hơn

for i = 2 to 10 step 2
s = s + 1
next

ningia25
19-10-2010, 15:20
trứoc tiên lập trình ta cần phân tích thế nào là số lẻ và thế nào là số chẵn . sau đó ta sẽ bắt đầu đưa ra thuật giải . đi thẳng vào vấn đề mà bạn đó cần làm là .

thuật giải :
số lẻ là những số không chia hết cho 2
số chẵn là những số chi hết cho 2
từ đó ta có thể xây dựng thuật toán rồi.
trước tiên ta gán cho s = 0 trước .vì s là kết quả tính tổng của các số chẵn và lẻ .
ta có thể khai báo biến s ở đây là kiểu dữ liệu là long
dim s as long
s= 0
sau đó người cần nhập số cần tính là n .
ở đây ngừoi nhập có thể nhập bất kì số nào muốn tính
vì ở đây không biết lập lại bao nhiêu lần nên ta có thể dùng cấu trúc
do while
loop
nhưng để đơn giản hơn ở đây ta có thể dùng vòng lập for với số lần lặp lại biết trước
khai báo biến i kiểu số nguyên
dim i as integer

vậy các yếu tố cần phân tích đã đủ ta đi ngay vào vấn đề cần giải quyết
sau đây là đoạn code nguyên chỉnh đựoc viết lại từ tui :
code:
Private Sub Label2_Click()

End Sub

Private Sub cmdtinh_Click()
Dim n As Integer
Dim i As Integer
Dim s1 As Long
Dim s2 As Long
n = Val(Text1.Text)
s1 = 0
s2 = 0
For i = 1 To n
If (i Mod 2 = 0) Then

s1 = s1 + i
lbl3.Caption = Str(s1)
ElseIf (i Mod 2 <> 0) Then

s2 = s2 + i
lbl5.Caption = Str(s2)
Else
MsgBox (" khong hop ly")

End If

Next

MsgBox ("chuc mung ban den voi vb 6.0")




End Sub

Private Sub Command1_Click()
End
End Sub

soure nè:

http://azsharing.com/sfmelv42q31p/tinh_tong_so_le_va_chan.frm.html