如何用vB程序随机产生30个不同的字母?
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/06 04:30:46
如何用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 Su
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个随机整数,按从小到大的顺序排列 如题..求代码