189 8069 5689
第三句。在类级别的变量声明语句中必须显式指定类型名称，省略AS语句只可以用在局部变量声明语句中。
创新互联公司专注于企业营销型网站、网站重做改版、红古网站定制设计、自适应品牌网站建设、H5技术、商城开发、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为红古等各大城市提供网站开发制作服务。
Private Const c As String = "ok"
在 VB (Visual Basic) 中，合法的常量包括以下类型：
浮点型（Double）：如⑴100.0、⑵%100、⑶1E1、⑷1.23D3、⑹100%、⑻100#。
字符串型（String）：如⑵"asdf"。
布尔型（Boolean）：如⑶Ture、⑾True、⒃False。
日期型（Date）：如⑼#2000/10/7/#、⑽#2000/10/7#。
其他基本类型：如⑻100%表示整数类型（Integer）、⒀π（3.14159265358979）表示双精度浮点型（Double）。
使用进制前缀的整型（Integer）：如⑾＆O100表示八进制100、⑿＆O78表示八进制78、⒀＆H123表示十六进制123。
比较运算符（不等于号）：如⒁-1123！表示-1123不等于。
需要注意的是，在 VB 中，常量名是以字母开头并由字母、数字和下划线组成的字符串，不能以数字开头。
VB中的符号常量(常数)是用于容易修改的目的，可在代码中的任何地方使用常数代替实际的值。
比如说程序代码要多处使用圆周率，可先定义（Const PI =3.14），然后就使用PI来代表3.14。假如在该题目中使用了数百个PI，如果要修改它的精度改为3.141593，只需修改声明中的常量值Const PI= 3.141593就达目的，而不用一次一次的去改。
常数
执行程序时保持常数值的命名项目。常数可以是字符串、数值、另一常数、任何( 除乘幂与 Is 之外的) 算术运算符或逻辑运算符的组合。每个主应用程序皆可定义自己的一组常数。用户也可以 Const 语句定义附加常数。可在代码中的任何地方使用常数代替实际的值。
Const 语句，声明用于代替文字量的常数。
Const 语句示例
该示例使用 Const 语句来声明用于代替文字值的常数。Public 常数在标准模块的通用部分声明，而不是在类模块中声明。Private 常数可以在任何模块类型的通用部分声明。
'缺省情况下常数是私有的。
Const MyVar = 459
'声明公用常数。
Public Const MyString = "HELP"
'声明私有的整数常数。
Private Const MyInt As Integer = 5
'在一行中声明多个常数。
Const MyStr = "Hello", MyDouble As Double = 3.4567
1.随机产生英文字母
Randomize() '功 能：初始化随机数发生器
Me.txt1.Text = 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() '再次初始化随机数发生器
Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '这里是A~Z的随机数
'也可以换这种写法
Randomize()
Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '这里是a~z的随机数
'这是在你知道ASCII码的情况之下（a~z为97~122，A~Z为65~90）
'Rnd()为0~0.9999999.....的随机数
' 26 * Rnd()为0~25.9999...的随机数
'Int((26 * Rnd())为0~25的随机数
'Int((26 * Rnd()) + 97)为97~122的随机数
'Chr(Int((26 * Rnd()) + 97))就是a~z的随机数了
Randomize()
Me.txt2.Text = 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的随机数
arylst1.Add(str1)
Next
ReDim arr1(arylst1.Count - 1) '这里是为了比较动态，可以只改变 i 的范围来决定要多少个随机字母
'当然也可以写死，在前面直接定义为 arr1(14)，下次要改的时候就要改定义的地方和i的范围，改两个地方
arylst1.CopyTo(arr1)
'就把数值拷贝到数组里面了