수다닷컴

option explicit
dim a as long
dim k as long
private sub command1_click()
lbl가격 = list2.list(list1.listindex)
lbl합계 = list2.list(list1.listindex)
static c
c = c + 1
label6.caption = c
static x as long
a = val(lbl합계.caption)
x = a + x
lbl합계.caption = x

end subprivate sub command2_click()
static i
i = val(label6.caption)
k = 1
i = i - k
label6.caption = i
dim j as long
j = val(lbl가격.caption)
a = val(lbl합계.caption)
j = a - j
lbl합계.caption = j
end subprivate sub form_load()
list1.additem 아메리카노
list1.additem 카패라떼
list1.additem 에스프레소
list1.additem 캬라멜 마끼아또
list1.additem 사이트모카
list1.additem 핫초코
list2.additem 2000원
list2.additem 2300원
list2.additem 2200원
list2.additem 2400원
list2.additem 2100원
list2.additem 1900원
end sub
과제때문에 부탁드립니당여기서 리스트박스에 목록을 클릭하고 계산커맨드를 누르면 합계는 나옵니다.그리고 다른 목록을 클릭하고 빼기 커맨드 누르면 그 숫자가 빼는것도 됩니다.근데 여기서 문제는다시 리스트박스에 목록을 누르고 계산 커맨드를 누르면빼기 전에 합계 그러니까 10000에서 2000을 빼면 합계가 8000이 출력되는데여기서 다시 리스트박스 목록을 누르고 계산을 누르면 12000으로 갑니다.......갯수도 마찬가지구요도와주세요^^^^^^^^^^^^^^^;

신청하기