VB随机产生10个不重复的大写英文字母,看看我哪边错了Private Sub Command1_Click()Dim a(1 To 10)Dim flag As Boolean, i%, j%RandomizeFor i = 1 To 10 Do a(i) = Int(26 * Rnd) + 65 flag = False For j = 1 To i - 1
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 20:24:58
![VB随机产生10个不重复的大写英文字母,看看我哪边错了Private Sub Command1_Click()Dim a(1 To 10)Dim flag As Boolean, i%, j%RandomizeFor i = 1 To 10 Do a(i) = Int(26 * Rnd) + 65 flag = False For j = 1 To i - 1](/uploads/image/z/5354577-9-7.jpg?t=VB%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F10%E4%B8%AA%E4%B8%8D%E9%87%8D%E5%A4%8D%E7%9A%84%E5%A4%A7%E5%86%99%E8%8B%B1%E6%96%87%E5%AD%97%E6%AF%8D%2C%E7%9C%8B%E7%9C%8B%E6%88%91%E5%93%AA%E8%BE%B9%E9%94%99%E4%BA%86Private+Sub+Command1_Click%28%29Dim+a%281+To+10%29Dim+flag+As+Boolean%2C+i%25%2C+j%25RandomizeFor+i+%3D+1+To+10+++Do++++++++a%28i%29+%3D+Int%2826+%2A+Rnd%29+%2B+65++++++++flag+%3D+False++++++++For+j+%3D+1+To+i+-+1)
VB随机产生10个不重复的大写英文字母,看看我哪边错了Private Sub Command1_Click()Dim a(1 To 10)Dim flag As Boolean, i%, j%RandomizeFor i = 1 To 10 Do a(i) = Int(26 * Rnd) + 65 flag = False For j = 1 To i - 1
VB随机产生10个不重复的大写英文字母,看看我哪边错了
Private Sub Command1_Click()
Dim a(1 To 10)
Dim flag As Boolean, i%, j%
Randomize
For i = 1 To 10
Do
a(i) = Int(26 * Rnd) + 65
flag = False
For j = 1 To i - 1
If a(i) = a(j) Then
flag = True
Exit For
End If
Next j
Loop While flg = True
Next i
Print "随机产生10个不重复的大写英文字母:"
For i = 1 To 10
Print Chr(a(i)),
Next i
End Sub
VB随机产生10个不重复的大写英文字母,看看我哪边错了Private Sub Command1_Click()Dim a(1 To 10)Dim flag As Boolean, i%, j%RandomizeFor i = 1 To 10 Do a(i) = Int(26 * Rnd) + 65 flag = False For j = 1 To i - 1
'试一下:
Private Sub Command1_Click()
Dim a(1 To 10) As String
Dim i As Integer,j As Integer
For i = 1 To 10
Randomize
a(i) = Chr(Int(26 * Rnd) + 65)
If i > 1 Then
For j = 1 To i - 1
If a(i) = a(j) Then Exit For
Next
End If
If j < i And i > 1 Then i = i - 1
Next
MsgBox Join(a,",")
End Sub