t=________(Text1.text) "引用函数，使返回指定字符的ASCII码值”
Text2.text=t>=____________________“判断是否为英文字母的逻辑表达式“
End sub
Private Sub command1_click()
Randomize
Text1.Text = Chr(Int((126 - 33 + 1) * Rnd + 33))
t = Asc(Text1.Text)
Text2.Text = (t >= 65 And t <= 90) Or (t >= 97 And t <= 122)
End Sub
1、为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
2、Asc 函数
返回一个 Integer，代表字符串中首字母的字符代码。
语法
Asc(string)
必要的 string 参数可以是任何有效的字符串表达式。如果string 中没有包含任何字符，则会产生运行时错误。
说明
在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 – 32767。
注意AscB 函数作用于包含在字符串中的字节数据，AscB 返回第一个字节的字符代码，而非字符的字符代码。AscW 函数返回 Unicode 字符代码，若平台不支持 Unicode，则与 Asc
函数功能相同。
Randomize
Text1.Text = Chr(Int((126 - 33 + 1) * Rnd + 33))
t = Asc(Text1.Text)
Text2.Text = (t >= 65 And t <= 90) Or (t >= 97 And t <= 122)
End Sub
1、为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
2、Asc 函数
返回一个 Integer，代表字符串中首字母的字符代码。
语法
Asc(string)
必要的 string 参数可以是任何有效的字符串表达式。如果string 中没有包含任何字符，则会产生运行时错误。
说明
在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 – 32767。
注意AscB 函数作用于包含在字符串中的字节数据，AscB 返回第一个字节的字符代码，而非字符的字符代码。AscW 函数返回 Unicode 字符代码，若平台不支持 Unicode，则与 Asc
函数功能相同。
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2018-04-13
Private Sub command1_click()
Randomize
Text1.Text = Chr(33 + Int(Rnd * 94))
t = Asc(Text1.Text)
Text2.Text = t >= 65 And t <= 90 Or t >= 97 And t <= 122
End Sub本回答被网友采纳
Randomize
Text1.Text = Chr(33 + Int(Rnd * 94))
t = Asc(Text1.Text)
Text2.Text = t >= 65 And t <= 90 Or t >= 97 And t <= 122
End Sub本回答被网友采纳
