Сколько существует двухбуквенных слов? - VB
Формулировка задачи:
Здравствуйте, сколько их?, есть мнение что 561
как программно их вывести например в текстовый файл?
повторятся буквы могут, задействовать нужно все 33 буквы
Решение задачи: «Сколько существует двухбуквенных слов?»
textual
Листинг программы
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Sub Form_Paint() '97 - a, z - 122, английский алфавит: 'abcdefghijklmnopqrstuvwxyz' For q = 97 To 122 keybd_event q, 0, 0, 0 Next q End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д