1.Dim A(1 To 15) As String, i As IntegerFor i = 1 To 15RandomizeA(i) = Chr(Int(Rnd() * 26) + 65)Print A(i);Next i2.Dim R As String, i As Integer, k As IntegerFor i = 1 To 999R = Trim(Str(i))If R = StrReverse(R) ThenPrint i;k = k + 1If k Mod 10 = 0 Then PrintEnd IfNext i
生成15个不重复的大写字母Private Sub Form_Click()
Dim S As String,A(1 to 15) as string
For i = 1 To 15
Do
k = Chr(Int(Rnd * 26) + 65)
Loop While InStr(S, k) > 0
S = S & k
A(i)=K '如果要数组存储,就加上这句
Next
Print SEnd Sub输出1~999之间的回文(10个一行输出)Private Sub Command1_Click()
Dim R As String, i As Integer, k As Integer
For i = 1 To 999
R = Trim(Str(i))
If R = StrReverse(R) Then
Print Tab((k Mod 10) * 5 + 1); i;
k = k + 1
End If
Next iEnd Sub
