js选项卡切换:能否写个函数,将数字 1 转成 A 数字 2 转成 B

来源:百度文库 编辑:高考问答 时间:2024/04/28 06:46:18
能否写个函数,将数字 1 转成 A 数字 2 转成 B,以些类推 数字 3 转成 C

请高手帮帮忙
不好意思,没说清楚,需要Asp来实现的

VB语言:
Private Function Change(Text As TextBox, label As label) As String
Dim Temp As Integer
If IsNumeric(Text.Text) Then
Temp = Text.Text
label.Caption = Chr(Temp + 64)
Else
MsgBox "请输入数字"
End If
End Function

Private Sub Command1_Click()
Change Text1, Label1
End Sub

C语言:

char f(int i)
{
if(i<1 || i>26)
return '\0';
return i-1+'A';
}

create function(parm:int):char
var
result:char
case parm of
1:result:=A
2:result:=B
3: result:=C
4:result:=D
END CHOOSE
RETURN RESULT

pascal:

function f(n:integer):char;
begin
if (n>0 and n<26) then f:=char(n+64);
end;