Question

vb 编程，在线等

随机生成5个1000以内的随机整数,将其置于列表框1中,从中找出回文数,置于列表框2中，并且找出最小回文数，输出在文本框中，时间有按键触发，要求用函数过程

Answer 1

Private Sub Command1_Click()
Dim a() As Integer, b() As Integer
Dim t As Integer
dim n as integer
n=int(val(inputbox("请输入n的值：")))
redim a(1 to n,1 to n)
redim b(1 to n,1 to n)
For i = 1 To n
For j = 1 To n
a(i, j) = Int(Rnd * 100) + 1
Text1.Text=Text1.Text & a(i, j)
Next
Text1.Text=Text1.Text & vbcrlf
Next

For i = 1 To n
For j = 1 To n
b(i, j) = a(j, i)
Text2.Text=Text2.Text & a(i, j)
Next
Text2.Text=Text2.Text & vbcrlf
Next
End Sub