Автор Ёнежок задал вопрос в разделе Другие языки и технологии
проект слово-перевертыш в visual basic....подскажите, кто знает.... и получил лучший ответ
Ответ от Евгений[гуру]
Судя по вашему тексту, вы пытаетесь использовать не VB а VBA
Label1 выводит не текст, а caption
- и =, * и + это очень разные вещи
в! VB! есть встроенная ф-ция для переворачивания строки, так что код можно сократить до
Label1.Caption = StrReverse(Text1.Text)
ну а ваш вариант выглятит так
Dim S As String, N As Byte
Private Sub Command1_Click()
Label1.Caption = " "
N = 1
Do While N <= Len(Text1.Text)
S = Mid(Text1.Text, N, 1)' текстбокс - это в ВБА
Label1.Caption = S + Label1.Caption
N = N + 1
Loop
End Sub
Успехов )
Евгений
Мастер
(1681)
первым вариантом или вторым?
Ответ от КОЛЯ ЯКОВЛЕВ[новичек]
10 Dim S As String, N As Byte
20 Private Sub Button1_Click()
30 Label1.Text -" "
40 N = 1
50 Do While N <= Len(TextBox1.Text)
60 S = Mid(TextBox1.Text, N, 1)
70 Label1.Text = S * Label1.Text
80 N = N + 1
90 Loop
100 End Sub
10 Dim S As String, N As Byte
20 Private Sub Button1_Click()
30 Label1.Text -" "
40 N = 1
50 Do While N <= Len(TextBox1.Text)
60 S = Mid(TextBox1.Text, N, 1)
70 Label1.Text = S * Label1.Text
80 N = N + 1
90 Loop
100 End Sub
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: проект слово-перевертыш в visual basic....подскажите, кто знает....