VB גירסה 6.0
אהלן, צריך שתתקנו אותי איפה שטעיתי בתרגיל הבא. שתי תיבות טקסט וכפתור הפעלה אחד: כתוב תכנית שתקלוט מס' בערך כלשהו ותחזיר את סכום הספרות של המס' לדוגמא 1239 >>>>>>> ייתן 15, הפתרון שלי: dim num as integer dim sum as integer ========================== () privat sub command num = text1.text sum = 0 do while num > 0 ( 10 sum = sum + ( num mod num = num / 10 loop text2.text = sum
אהלן, צריך שתתקנו אותי איפה שטעיתי בתרגיל הבא. שתי תיבות טקסט וכפתור הפעלה אחד: כתוב תכנית שתקלוט מס' בערך כלשהו ותחזיר את סכום הספרות של המס' לדוגמא 1239 >>>>>>> ייתן 15, הפתרון שלי: dim num as integer dim sum as integer ========================== () privat sub command num = text1.text sum = 0 do while num > 0 ( 10 sum = sum + ( num mod num = num / 10 loop text2.text = sum