представить введенное число прописью

[вася радугов]

Помогите найти ошибку. Надо представить введенное с клавиатуры число прописьЮ. вот мой код:

Public Class Form10

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim a(200) As String
        Dim k As String
        k = TextBox1.Text
        Label1.Text = ""
        a(0) = "ноль"
        a(1) = "odin"
        For i = 0 To 200
            If k = a(i) Then
                Label1.Text = Label1.Text + a(i)
            End If
        Next
       
    End Sub
End Class

Программа на Visual Basic. Таких чисел должно быть 1000. я не могу вывести в label элемент массива, т.е. вместо i-того элемента, например, второго выводится в label весь массив из 1000 чисел. как вывести один элемент?

[gaw4]

Label1.Text = Label1.Text + a(i)----->Label1.Text = a(i)

[gaw4]

но это не решает задачу

[VIK_aka_TOR]

вариант решения задания вашего

[вася радугов]

а как можно исправить мою программку?

[VIK_aka_TOR]

Сообщение от вася радугов

а как можно исправить мою программку?

к вашему сожалению VB прошел мимо меня...
а логика написанного вами мной как-то не воспринимается...
но интуитивно можно аналогию сделать на VB опираясь на код в Pascal, который вам нашел...

[gaw4]

а как можно исправить мою программку? ---- написать вновь
в Вашем коде
чисел 1000 -- массив a(200)
k = TextBox1.Text что тут считывается

[вася радугов]

попробовал переделать с паскаля - тяжело, т.к. vb Я плохо знаю. может кто - нибудь знает как решить эту задачу?

[gaw4]

Dim i As Integer
Dim cislo As Integer, j As Integer, ed As Integer, des As Integer, sot As Integer
Dim s1, s10, s100
Dim s
sotni = Array("", "сто", "двести", "триста", "четыреста", "пятьсот", "шестьсот", "семьсот", "восемьсот", "девятьсот")
desyatki = Array("", "десять", "двадцать", "тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто")
edenici = Array("", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять")
special = Array("десять", "одиннадцать", "двенадцать", "тринадцать", "четырнадцать", "пятнадцать", "шестнадцать", "семнадцать", "восемнадцать", "девятнадцать")

s = Text1.Text ' TextBox1.Text
cislo = Val(s)
If ((cislo < 0) Or (cislo > 1000)) Then
MsgBox ("Введите число в диапазоне 0..1000")
Exit Sub
End If
j = Len(s)
Select Case j
Case 1
    ed = cislo
    Label1 = edenici(ed) 'Label1.Text = edenici(ed)

Case 2
    If Mid(s, 1, 1) = "1" Then
      s1 = Mid(s, 2, 1)
      ed = Val(s1)
      Label1 = special(ed)
    Else
    
        s10 = Mid(s, 1, 1)
        s1 = Mid(s, 2, 1)
        des = Val(s10)
        ed = Val(s1)
        Label1 = desyatki(des) & " " & edenici(ed)
    End If
Case 3
    s100 = Mid(s, 1, 1)
    s10 = Mid(s, 2, 1)
    s1 = Mid(s, 3, 1)
    des = Val(s10)
    ed = Val(s1)
    sot = Val(s100)
            If Mid(s, 2, 1) = "1" Then
               Label1 = sotni(sot) & " " & special(ed)
            Else
               Label1 = sotni(sot) & " " & desyatki(des) & " " & edenici(ed)
            End If
Case 4
    
End Select
If cislo = 1000 Then Label1 = "тысяча"
If cislo = 0 Then Label1 = "ноль"

[gaw4]

это в вб 6, там подправь под себя