VISUAL BASIC 6

Автор

Съобщение

gorgi1
Съб, 12.07.08, 20:45

искам да си направя програма на vb 6 която да прави следното: при дадено двуцифрено число да събира цифрите и след това от даденото число да извади сбора на двете цифри
пример: числото е 43
        4+3=7
        43-7=36
Отговор За печат
anonymous
Нед, 13.07.08, 00:28

Хайде де, задачата не е трудна.
Не знам Visual Basic но ще се опитам да ти помогна
1.Въвежда се числото (примерно 43) и е препоръчително да направиш проверка дали е двуцифрено.
2.След това разделяш двуцифреното число на 10 чрез integer division, за да разбереш цифрата на десетиците (43\10=4).
3.След което намираш колко е модуло (%) 10 от двуцифреното число, за да намериш цифрата на единиците (43%10=3).
4.Накрая остава само да събереш двете получени цифри (4+3=7) и да извадиш сборът им от двуцифреното число (43-7).
Това е, надявам се да съм ти помогнал поне малко.
редактиран от anonymous на 13.07.08 00:28
редактиран от anonymous на 13.07.08 00:31
Отговор За печат
electric_cc
Нед, 13.07.08, 08:51

DIM a as integer
DIM b as integer
DIM c as integer
DIM Result as integer
a = 4
b = 3
c = a * 10 + b
Result = c - (a + b)
Отговор За печат
anonymous
Нед, 13.07.08, 12:57
RE: VISUAL BASIC 6

Цитат на electric_cc от Неделя, 13.07.2008 08:51
” DIM a as integer
DIM b as integer
DIM c as integer
DIM Result as integer
a = 4
b = 3
c = a * 10 + b
Result = c - (a + b) „
Според мен по-скоро има предвид следното:
DIM a as integer DIM b as integer DIM c as integer DIM Result as integer c=43 a = c\10 b = c Mod 10 Result = c - (a + b)
Отговор За печат
gorgi1
Нед, 13.07.08, 15:14

electric_cc благодаря ти много но ще може ли малко по обстоино да ми обясниш как да го направя защото тепърва започвам да се занимавам с VB6 и още ми е трудно.
Отговор За печат
electric_cc
Нед, 13.07.08, 17:47

xardas_tn, прав си. Просто не съм прочел внимателно условието.
gorgi1, ще ти обясня с думи. Ако не се справиш, ще пратя готово примерче.
Стартираш VB. Отваряш една стандартна форма, поставяш едно текстово поле, автоматично ще му се даде име Text1. Можеш да смениш името по свое желание, например txtVariable1. Под него постави един етикет, ще му се даде име Label1. Можеш да му смениш името например lblResult. Представките txt и lbl не са задължителни, но при по-нататъшното им използване улесняват разпознаването на полетата от какъв тип са. След това върху формата постави един бутон и му дай име, например Start. Надписът върху бутона може да бъде Старт. Тези неща се въвеждат в прозореца Properties на формата. Като щракнеш два пъти върху него VB6 автоматично ще създаде процедурата:
Private Sub Start_click()
     DIM a as integer
     DIM b as integer
     DIM c as integer
     DIM Result as integer

     c = Val(txtVariable1.txt)
     a = c\10
     b = c Mod 10
     Result = c - (a + b)
     lblResult.caption =cstr(Result)
end sub
Съдържанието на процедурата е както правилно е посочил xardas_tn.
Стартирай програмката, запиши число двуцифрено число в текстовото поле, след което натисни бутона Старт. Резултатът трябва да се появи полето lblResult.
Не е сложно, ще се справиш.
Отговор За печат
gorgi1
Нед, 13.07.08, 19:11

electric_cc ще съм ти много благодарен да ми го изпратиш.
Отговор За печат
electric_cc
Нед, 13.07.08, 20:04

Добре, ще го пратя на адрес: на село , за дядо.
Отговор За печат
electric_cc
Нед, 13.07.08, 20:05

На кой адрес: на село, за дядо.
Отговор За печат
gorgi1
Нед, 13.07.08, 20:33

бббббббббб
редактиран от gorgi1 на 14.07.08 10:15
редактиран от gorgi1 на 11.11.09 10:58
Отговор За печат

< 1 2 >

Коментар

за нас | за разработчици | за реклама | станете автори | in english

Форум » Програмиране и web-дизайн » VISUAL BASIC 6

VISUAL BASIC 6

RE: VISUAL BASIC 6