Question

如何用vb随机大写字母？

点击command1后在text1显示
格式是：
5个大写字母+“-"+5个大写字母+“-"+5个大写字母+“-"+5个大写字母

如： DJDGE-ICBRT-SXGTG-ERXGT

Answer 1

1、首先打开VB程序，新建一个工程，如图所示。

2、这里我们选择“标准EXE”，单击“确定”按钮。

3、该软件的界面还是比较简洁的，左边是常用的工具箱，右边是相关的属性栏目。先把我们要制作的软件命名，如图，在“caption”后面输入“随机选号器”。

4、选择“commandbutton”工具，在目标区域用鼠标拖动画出一个按钮，在属性面板输入按钮上显示的文字。步骤如图中标识所示。

5、用“textbox”工具在合适位置画出文本框区域，用来显示你选号的结果，如图所示。

6、用鼠标双击刚才插入的按钮，输入代码即可。

Answer 2

1、打开VB软件，在窗体上面，添加两个文本框，如下图所示；

2、单击文本框，在属性窗口分别设置文本框的属性，清空文本的内容，如下图所示；

3、在窗体上面，添加一个命令按钮，如下图所示；

4、单击命令按钮，在属性窗口中，设置命令按钮的属性，如下图所示；

5、双击命令按钮，编写其代码，如下图所示；

6、运行程序，在第一个文本框中，输入baidu，点击转换命令按钮，第二个文本框出现BAIDU，如下图所示；

Answer 3

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、运行工程，生成随机的大写字母；

Answer 4

为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

用以上公式生成ASCII码，再用CHR()把生成的ASCII码转换成字母

Private Sub Command1_Click()
Randomize
Dim i As Long
i = 5
While i>0 Then
Text1.Text = Text1.Text + Chr( Int(（90-65+ 1）*Rnd+65 ) ) '获取随机数
i = i - 1
If I=0 Then
Text1.Text = Text1.Text + "-"
End If
Wend
End Sub

Answer 5

Private Sub Command1_Click()
Dim s As String, i As Integer
Randomize
For i = 1 To 5
s = s & Chr(Int(Rnd * 26) + 65)
Next
s = s & "-"
For i = 1 To 5
s = s & Chr(Int(Rnd * 26) + 65)
Next
s = s & "-"
For i = 1 To 5
s = s & Chr(Int(Rnd * 26) + 65)
Next
s = s & "-"
For i = 1 To 5
s = s & Chr(Int(Rnd * 26) + 65)
Next
Text1 = s
End Sub