Ответы на вопрос:
Код для кнопки: private sub command1_click() dim s as string s = inputbox("введите слово") p = instr(s, "в") if p > 0 then msgbox "номер буквы ""в"" в слове равен " + str(p) else msgbox "в слове нет буквы ""в""" end if end sub
Популярно: Информатика
-
LeraLis20109.06.2023 17:38
-
Boba3516.08.2021 14:01
-
НикаКотикТян29.06.2021 19:25
-
ndiana240202.08.2020 04:14
-
Maria2051108.03.2023 06:15
-
krasatulea8322.02.2020 12:02
-
Murad1111111114.11.2021 12:06
-
evstifeevod19.03.2021 19:24
-
maksimprikhodko20.01.2023 05:43
-
LerikKerik12330.11.2020 02:36