Sub cmd1_Click()
End Sub İndi A ədədini B-yə bölən alqoritmi reallaşdıran proqram modulunu işləyib
hazırlamaq lazımdır:
1. intA və intB parametrlərinə konkret qiymətlər verməli;
2. Bölmənin nəticəsini bytC, sngD və dblE dəyişənlərinə mənimsətməli;
3. Nəticələri, yəni, bytC, sngD və dblE dəyişənlərinin qiymətlərini formada çap etməli.
4. Proqram kodu pəncərəsində ilk hadisəvi proseduru aşağıdakı şəkildə tərtib etməli:
Dim intA, intB As İnteger, bytC As Byte, sngD As Single, dblE As Double Sub cmd1_Click() intA = 2 intB = 3 bytC = intA / intB sngD = intA / intB dblE = intA / intB frm1. Print bytC, sngD, dblE End Sub İndi sətr və sətri dəyişənləri birləşdirən (konkatenasiya edən) hadisəvi proseduru
hazırlamaq lazımdır. Bunun üçün:
5. frm1 forması üzərində cmd2 əmr düyməsi yerləşdirməli. Yaradılacaq hadisəvi
prosedurda obyekt cmd2 düyməsi, hadisə isə Click() olacaqdır. Bundan sonra sətri
dəyişənləri elan etmək və bunları birləşdirmək lazımdır. Bunun üçün: 6. Proqram kodu pəncərəsində ikinci hadisəvi proseduru yazmaq lazımdır:
