输入一个大写字母,输出对应的小写字母使用ord()函数得到字母的十进制ASCII？

可以使用 ord() 函数将大写字母转换为对应的十进制 ASCII 码，再通过加上32来得到对应的小写字母的 ASCII 码。然后使用 chr() 函数将 ASCII 码转换为对应的字符。

以下是一个 Python 的示例代码：

upper_case_letter = 'F'lower_case_letter = chr(ord(upper_case_letter) + 32)print(lower_case_letter) # 输出 'f'

在这个例子中，我们将大写字母 'F' 存储在 upper_case_letter 变量中。我们使用 ord(upper_case_letter) 函数得到大写字母 'F' 的 ASCII 码值，即 70。然后将其加上 32，得到小写字母 'f' 的 ASCII 码值 102。最后，我们使用 chr() 函数将 102 转换为对应的字符 'f'。

整体思路如下：

1、判断这个值的范围 如果是'0'到'9' 减去'0'就是想要的整数的。

2、如果是个字符串，可以用sscanf() 就和输入一样。

定义一个char型的变量,直接附值等于ascii码

char MyVar = 65;

那么MyVar的值就是'A'

    ——此文章摘自《Delphi开发经验技巧宝典》定价 ￥特价 ￥ 购买>>//track linktech cn/m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

    汉字的区位码

    汉字是由两个字节组成的 本实例是利用byte()函数来获取汉字两个字节的字节数 并通过两个字节数与$a 的差 组合成汉字的区位码 运行结果如图 所示

//develop csai cn/delphi/images/ jpg >图   获得汉字的区位码

    主要代码如下     procedure TForm Button Click(Sender: TObject);     var       str:String;       hi lo:Integer;     begin       str:=Trim(Edit Text);       hi:=byte(str[ ]) $a ;       lo:=byte(str[ ]) $a ;       Edit Text:=IntToStr(hi)+IntToStr(lo);     end;

    区位码获取汉字

    本实例是将区位码的前两位与后两位分别加上$a 再用Char()函数将前两位和后两位区位码转换成字符 这两个字符组合形成相对应的汉字 运行结果如图 所示

//develop csai cn/delphi/images/ jpg >图   通过区位码获取汉字

    主要代码如下     procedure TForm Button Click(Sender: TObject);     var      S : String;      lef ref : Integer;     begin       S := Trim(Edit Text);       lef := StrToInt(copy(S ))+$a ;       ref := StrToInt(copy(S ))+$a ;       Edit Text := char(lef)+chr(ref);     end;

    ASCII码获得字母

    本实例是用chr()函数将指定范围内的ASCII码转换成字符 运行结果如图 所示

lishixinzhi/Article/program/Delphi/201311/8496

n = 0

Do While n = 0

Randomize

aa = Int((122 - 65 + 1) Rnd + 65)

If aa < 91 Or aa > 96 Then n = 1

Loop

MsgBox Chr(aa)

原理是A-Z的ASCII是65到90，a-z的ASCII是97-122

1随机产生英文字母

Randomize() '功 能：初始化随机数发生器

Metxt1Text = Chr(Asc("a") + Int(Rnd() 26))

'Rnd 函数返回小于 1 但大于或等于 0 的值。

'0 <= Rnd() 26 < 26 是含小数位的数

'Int(Rnd() 26) 转换为整型，就是0~25的随机数

'Asc("a") 得到a的ASCii数值，是整数97（A是65）

'a~z的ASCii为97~122 ，即为a~z之间的字母为97加（0~25）

'Asc("a") + Int(Rnd() 26)为97到122的随机数

'Chr（）又可以起到转换成字符的功能，Chr(97)表示a （a转换成数值又是Asc("a")=97）

'Chr(Asc("a") + Int(Rnd() 26))就是a~z的随机数了

Randomize() '再次初始化随机数发生器

Metxt2Text = Chr(Asc("A") + Int(Rnd() 26)) '这里是A~Z的随机数

'也可以换这种写法

Randomize()

Metxt1Text = Chr(Int((26 Rnd()) + 97)) '这里是a~z的随机数

'这是在你知道ASCII码的情况之下（a~z为97~122，A~Z为65~90）

'Rnd()为0~09999999的随机数

' 26 Rnd()为0~259999的随机数

'Int((26 Rnd())为0~25的随机数

'Int((26 Rnd()) + 97)为97~122的随机数

'Chr(Int((26 Rnd()) + 97))就是a~z的随机数了

Randomize()

Metxt2Text = Chr(Int((26 Rnd()) + 65)) '这里是A~Z的随机数

'至于同时在一处随机大写或小写，ASCII码的数字又不挨在一起（65-90,97-122），比较麻烦。想写的话，你可以自己想一下怎么办

2数字怎样转换成ASCII码所对应的字母

Chr()函数将数字转换成ASCII对应的字母，Asc()函数将字母根据ASCII表转换成数字

Chr(97)表示a （a转换成数值又是Asc("a")=97）

3加到数组，你可以放在一个for循环里

比如

Dim arylst1 As New ArrayList

Dim arr1() As String '数组

Dim str1 As String

For i As Integer = 1 To 15 '比如我想要15个随机字母

Randomize()

str1 = Chr(Int((26 Rnd()) + 65)) '这里是A~Z的随机数

arylst1Add(str1)

Next

ReDim arr1(arylst1Count - 1) '这里是为了比较动态，可以只改变 i 的范围来决定要多少个随机字母

'当然也可以写死，在前面直接定义为 arr1(14)，下次要改的时候就要改定义的地方和i的范围，改两个地方

arylst1CopyTo(arr1)

'就把数值拷贝到数组里面了