VB回文数 - vb吧

VB回文数

level 3

天意i 楼主

求教：生成8个随机四位数的回文数
#VB#

2023年02月19日 11点02分 1

level 15

初音✨七奈

先生成随机两位数，然后个位变十位，十位变个位，拼到原两位数的后面，就得到了一个四位回文数；循环8次即可

2023年02月19日 13点02分 2

level 8

tbzp666

做一个Function过程用于生成一个随机四位数回文数（用字符串做最简单），再做8次调用

2023年02月20日 06点02分 4

level 8

tbzp666

Function 回文数() As String
Dim a As String
Randomize
a = CStr(Int(Rnd * 90) + 10)
回文数 = a & StrReverse(a)
End Function
Private Sub Command1_Click()
For i = 1 To 8
Print 回文数
Next
End Sub

2023年02月20日 07点02分 5