1、首先打开VB程序，新建一个工程，如图所示。
网站设计制作过程拒绝使用模板建站；使用PHP+MYSQL原生开发可交付网站源代码;符合网站优化排名的后台管理系统；成都网站设计、网站建设收费合理；免费进行网站备案等企业网站建设一条龙服务.我们是一家持续稳定运营了10年的创新互联网站建设公司。
2、这里我们选择“标准EXE”，单击“确定”按钮。
3、该软件的界面还是比较简洁的，左边是常用的工具箱，右边是相关的属性栏目。先把我们要制作的软件命名，如图，在“caption”后面输入“随机选号器”。
4、选择“commandbutton”工具，在目标区域用鼠标拖动画出一个按钮，在属性面板输入按钮上显示的文字。步骤如图中标识所示。
5、用“textbox”工具在合适位置画出文本框区域，用来显示你选号的结果，如图所示。
6、用鼠标双击刚才插入的按钮，输入代码即可。
说个思路，
1.写一个字符数组将所有的字母字符存放起来如
a[52]={a,b,c,d.....z,A,B,C,....Z}
2.用随机函数产生器产生一个随机数
c#
里面好像是random,可以带参数，指定产生多大的一个随机数，这里最大的是51，即每次产生一个从0到51的数，
3.利用随机数作为数组下标得到数组里对应的字符，OK
这只是产生了一个字母，如果想产生多个随机字母，则在一个循环里做2-3步
用法 RndString(xx) xx为随机数字长度
比如12位长度的随机字符串 则为 RndString(12)
字符串包含数字和大小写字母，函数如下：
Function RndString(ByVal l As Integer) As String
Randomize()
Dim R, i As Integer
Dim S As Char
Dim returnStr As String
returnStr = ""
'a-z 的ASCII码是：97-122
'A-Z 的ASCII码是：65-90
'0-9 的ASCII码是：48-57
For i = 1 To l
R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字，共有26个
If R 10 Then '如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48
S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符
ElseIf R 36 Then '如果小于36，则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55
S = Chr(R + 55)
Else '如果大于36，则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61
S = Chr(R + 61)
End If
returnStr = returnStr + S
Next
RndString = returnStr
End Function
1、大写字母对应的ASCII码的范围是65~89，因此随机生成65~89之间的数字，生成对应的大写字母即可；
2、打开VB6.0，新建一个标准exe工程，界面上新建一个按钮和一个文本框；
3、按钮代码如下：
Private Sub Command1_Click()
Text1.Text = ""
Dim n As Integer
Randomize
n = Int(Rnd * 25) + 65
Text1.Text = Chr(n)
End Sub
4、运行工程，生成随机的大写字母；
