用vb表达式产生“a”~“n"范围内的一个字母,并转换为大写字母
2013-06-28
展开全部
英文字母在ASCII编码表是连续的,它们的ASCII十进制码值:'a'~'z'是97~122,'A'~'Z'是65~90;因此大小写字母相差32。
字符、整数它们之间是可以进行运算的,对于字符是它们的ASCII值。
C代码实现:
int result = rand() % ('n' - 'a' + 1) //返回'a'~'n'区间内的编码值。rand函数的功能是返回0~MAX内的值。
char lower = (result + 'a')
char upper = (result + 'a' + 32)
字符、整数它们之间是可以进行运算的,对于字符是它们的ASCII值。
C代码实现:
int result = rand() % ('n' - 'a' + 1) //返回'a'~'n'区间内的编码值。rand函数的功能是返回0~MAX内的值。
char lower = (result + 'a')
char upper = (result + 'a' + 32)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-06-28
展开全部
Private Sub Form_Click()
Me.Cls
Randomize
a = Int(Rnd * 26)
Print "随机小写字母:" & Chr(a + 97)
Print "对应大写字母:" & Chr(a + 65)
End Sub
Me.Cls
Randomize
a = Int(Rnd * 26)
Print "随机小写字母:" & Chr(a + 97)
Print "对应大写字母:" & Chr(a + 65)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-06-28
展开全部
' Random range: Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound)
Randomize ' Initialization seed
Dim Letter As Integer
Letter = Int(14 * Rnd + 97)
MsgBox Chr(Letter) & vbCrLf & UCase(Chr(Letter))
Randomize ' Initialization seed
Dim Letter As Integer
Letter = Int(14 * Rnd + 97)
MsgBox Chr(Letter) & vbCrLf & UCase(Chr(Letter))
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询