Информатика, помогите написать программу!!! В Бейсике

Информатика, помогите написать программу!!! В Бейсике
Гость
Ответ(ы) на вопрос:
Гость
В QBasic можно написать так: CONST s = "электрорадиомонтёр" CLS PRINT LEFT$(s, 7) + MID$(s, 10, 1) + " " + MID$(s, 11, 1) + " "; PRINT MID$(s, 4, 1) + MID$(s, 9, 1) + MID$(s, 5, 1) + MID$(s, 7, 1); PRINT MID$(s, 10, 1) PRINT MID$(s, 5, 1) + MID$(s, 3, 1) + MID$(s, 6, 1) + MID$(s, 13, 1); PRINT MID$(s, 11, 1) + MID$(s, 15, 1) + MID$(s, 9, 1) + MID$(s, 5, 1); PRINT MID$(s, 7, 1) + MID$(s, 6, 1) + " " + MID$(s, 16, 3) + " "; PRINT MID$(s, 8, 5) В VBA Microsoft Office можно так сделать Sub aaa()     Const s = "электрорадиомонтёр"     l = Len(s)     ReDim a(1 To l)     For i = 1 To l         a(i) = Mid$(s, i, 1)     Next i     MsgBox Left(s, 7) + a(10) + " " + a(11) + " " + a(4) + a(9) + a(5) + a(7) + a(10)     MsgBox a(5) + a(3) + a(6) + a(13) + a(11) + a(15) + a(9) + a(5) + a(7) + _ a(6) + " " + Mid(s, 16, 3) + " " + Mid(s, 8, 5) End Sub А если в VB делать, то нужно нарисовать форму и прописать в коде какой-нибудь кнопки предыдущий код. Либо на форме организовать вывод в Label или какие-нибудь поля (Text, Edit).
Не нашли ответ?
Ответить на вопрос
Похожие вопросы