Написать процедуру, медленно печатающую строку текста, вводимого с клавиатуры, в ячейку рабочего листа
10-11 класс
|
Вот такой вариант не пойдет?
Sub Кнопка1_Щелчок()
Cells(1, 1) = ""
s = InputBox("Введите текст")
For i = 1 To Len(s)
Cells(1, 1) = Cells(1, 1) & Mid(s, i, 1)
For t = 1 To 100000000
Next t
Next i
End Sub
Число
Комментарий удален
С клавиатуры вводить значение в ячейку и "печатать" каждый вводимый символ, т.е. речь о перехвате каждого вводимого символа
Комментарий удален
Другие вопросы из категории
While.Пожалуйста,помогите...
быть в алгоритме или программе другие ошибки, нежели синтаксические и семантические? Если да, то как бы вы их назвали?
Читайте также
1) С клавиатуры вводится 2 числа - целое и вещественное. Программа выводит их сумму на экран.
2) Написать процедуру, которая умножает число типа int на число типа float на число типа double и выводит результат на экран
3) Написать процедуру, которая будет выводить любой текст, являющийся ее аргументом
4) С клавиатуры вводится 5 символов поочередно, программа выводит на экран акроним к слову которая образует эти 5 символов
Зашифровать ее, переворачивая каждое слово. Создать процедуры для разбиения строки на слова и записи слова в обратном порядке.
Привет, Вася!
!ясаВ ,тевирП
число рядов. Написать программу подсчета мест в кинотеатре «Оскар», в соответствии со схемой кинотеатра, представленной ниже. На экран вывести итоговое количество мест.(вложение - 1 рисунок)
Программа 6. Найти значение выражения для вводимых с клавиатуры А, В и С. при А=4, В=2, С=5.(вложение - формула)
Программа 7. Написать программу, вычисляющую значения логического выражения . На экран вывести это значение.
Программа 8. Пользователь вводит число 0,515625. Написать программу, которая в точности повторяет алгоритм перевода данного числа из десятичной системы счисления в четверичную. На экран вывести окончательный результат.