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

来源：学生作业帮助网编辑：作业帮时间：2024/05/09 18:17:50

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

如何用vB程序随机产生30个不同的字母?
'以下代码产生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 Sub

如何用vB程序随机产生30个不同的字母? VB中要求随机产生10个在［10,30］的不同整数怎么编写程序? 用VB编一个程序,随机产生10个100以内的不同的偶数要不同的10个如何用VB制作随机数程序用VB制作一个 0-9十个数中随机出8个不重复的数字,例如：01235689, 如何用vb编个每次产生的随机数与之前产生过的都不同?求代码如何用VB产生随机的3,5,8,在这三个数中变化 vb中如何用随机方式产生一个今天的时间 VB:随机产生30个[100,500]区间的随机整数,求其和及平均值. 编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果如何用VB求30个100-3000的随机数如何用vb中的随机函数产生奇数?（只要奇数） vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序如何用C语言产生一个六位数的随机数?请问如何用C语言编一个程序算出随机的一个六位数随机数啊? VB 编程随机产生30个学生的成绩,统计各分数段人数用VB编写程序:随机产生三个数,求出其中最小的那个数 VB随机产生一个英文字母程序怎么编啊? 用VB在1-100中产生10个随机整数,按从小到大的顺序排列如题..求代码用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写