如何用vB程序随机产生30个不同的字母?

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/11 17:42:27

'以下代码产生30个区分大小写的不同字母
Private Sub Command1_Click()
Dim i As Integer, j As Integer, ich(30) As Integer, ch As String, Ach(30) As String
i = 0
Randomize
Do While i < 30
ch = Int(Rnd * 52)
For j = 1 To i
If ich(j) = ch Then Exit For
Next
If j > i Then
i = i + 1
ich(i) = ch
End If
Loop
For i = 1 To 30
If ich(i) < 26 Then
Ach(i) = chr(65 + ich(i)) '0-25为大写字母
Else
Ach(i) = chr(97 + ich(i) - 26) '26-51为小写字母
End If
Next
For i = 1 To 30
Print Ach(i) & " ";
If i Mod 10 = 0 Then Print
Next
End Su

如何用vB程序随机产生30个不同的字母? 用VB编一个程序,随机产生10个100以内的不同的偶数 VB中要求随机产生10个在［10,30］的不同整数怎么编写程序? 编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果 vb中如何随机产生任意字母? 如何用vb设计计算二次方程的根的程序如何用excel产生1～68,68个不重复的随机的整数? 如何用VB语言编写这个程序? 如何用VB制作随机数程序 vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序用VB编写程序:随机产生三个数,求出其中最小的那个数用VB在1-100中产生10个随机整数,按从小到大的顺序排列如题..求代码