Задача по VBA

[NitriNKa]

Уважаемые программисты, помогите, пожалуйста!! Для каждой введенной цифры (0–9) вывести соответствующее ей название на английском языке (0 — zero, 1 — one, 2 — two, ...).

[program123]

procedure TForm1.Button1Click(Sender: TObject);
begin
      if Edit1.Text='0' then form1.Caption:='zero';
      if Edit1.Text='1' then form1.Caption:='one';
      if Edit1.Text='2' then form1.Caption:='two';
      if Edit1.Text='3' then form1.Caption:='three';
      if Edit1.Text='4' then form1.Caption:='four';
      if Edit1.Text='5' then form1.Caption:='five';
      if Edit1.Text='6' then form1.Caption:='six';
      if Edit1.Text='7' then form1.Caption:='seven';
      if Edit1.Text='8' then form1.Caption:='eight';
      if Edit1.Text='9' then form1.Caption:='nine';
end;

[NitriNKa]

оооо, спасибо, а можно вот эту же задачку, только через другого оператора, через CASE???

[program123]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
      Case Key of
      '0': Form1.Caption:='zero';
      '1': Form1.Caption:='one';
      '2': Form1.Caption:='two';
      '3': Form1.Caption:='three';
      '4': Form1.Caption:='four';
      '5': Form1.Caption:='five';
      '6': Form1.Caption:='six';
      '7': Form1.Caption:='seven';
      '8': Form1.Caption:='eight';
      '9': Form1.Caption:='nine';
end;
      end;

[NitriNKa]

Спасибочки, добрый человечек

[program123]

Пожалуйста =)

[Лукманов Александр]

Дык ему же на VBA нужно было.

[Terran]

NitriNKa, вот вам написал код на VBA с Case:

Private Sub CommandButton1_Click()
Select Case TextBox1.Text
Case 0
Label1.Caption = "Zero"
Case 1
Label1.Caption = "One"
Case 2
Label1.Caption = "Two"
Case 3
Label1.Caption = "Three"
Case 4
Label1.Caption = "Four"
Case 5
Label1.Caption = "Five"
Case 6
Label1.Caption = "Six"
Case 7
Label1.Caption = "Seven"
Case 8
Label1.Caption = "Eight"
Case 9
Label1.Caption = "Nine"
End Select
Exit Sub
End Sub

C If ... Then он будет таким:

Private Sub CommandButton1_Click()
If TextBox1.Text = 0 Then
Label1.Caption = "Zero"
End If
If TextBox1.Text = 1 Then
Label1.Caption = "One"
End If
If TextBox1.Text = 2 Then
Label1.Caption = "Two"
End If
If TextBox1.Text = 3 Then
Label1.Caption = "Three"
End If
If TextBox1.Text = 4 Then
Label1.Caption = "Four"
End If
If TextBox1.Text = 5 Then
Label1.Caption = "Five"
End If
If TextBox1.Text = 6 Then
Label1.Caption = "Six"
End If
If TextBox1.Text = 7 Then
Label1.Caption = "Seven"
End If
If TextBox1.Text = 8 Then
Label1.Caption = "Eight"
End If
If TextBox1.Text = 9 Then
Label1.Caption = "Nine"
End If
End Sub

[olly*]

а можно спросить,как вообще все это делать?
куда что вводить,куда код вставлять?(