Question

vb题目：随机产生20个正整数存入二维数组A(4,5),并输出到文本框Text1中，找出其中的素数存入一维数组B并输

出到Text2中，用选择法对B数组元素排序后输出到Text3中

Answer 1

Private Sub Command1_Click()
Dim i, j, A(1 To 4, 1 To 5) As Integer, p, B(), n, temp
Text1 = ""
For i = 1 To UBound(A, 2)
For j = 1 To UBound(A, 1)
Randomize
A(j, i) = Int(Rnd * 100) '0-99的正整数
Text1 = Text1 & A(j, i) & " "
If fc(A(j, i)) Then
n = n + 1
ReDim Preserve B(1 To n)
B(n) = A(j, i)
End If
Next
Print
Next
If n > 0 Then
Text2 = Join(B)
Else
Text2 = ""
Text3 = ""
Exit Sub
End If
For i = 1 To UBound(B) - 1
p = i
For j = i + 1 To UBound(B)
If B(j) < B(p) Then p = j
Next j
If p <> i Then
temp = B(p)
B(p) = B(i)
B(i) = temp
End If
Next
Text3 = Join(B)
End Sub
Function fc(n) As Boolean
Dim i
If n < 2 Then Exit Function
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then Exit Function
Next
fc = True
End Function

追问

求简化。。。那个join(B)是什么意思。。。另外，可否留名咨询？

追答

join(B) 就是把组数连起来输出，可以带格式。
你也可以这样输出,效果是一样的，但啰嗦
for i=lbound(b) to ubound(b)
s=s & b(i) & space(1)
next
text3=trim(s)
-------------------
简化？
UBound(A, 1) -----二维数组的一维上标
UBound(A, 2) -----二维数组的二维上标
这些你都可以用数字指定，但实用的软件很多都是不确定的，所以必须这样做。
其它的没有什么好简化了，素数可能有也可能没有，所以必须是动态数组。判断素数使用函数这样更容易理解，最后就是选择法排序了。

追问

那个能否直接简单的告诉我如何把二维数组A(4,5)转换为一维数组B???我们学的很简单，复杂的不是很懂~~

追答

'修改了一下，按一维数组来处理
Option Explicit
Private Sub Command1_Click()
Dim i, j, A(1 To 20) As Integer, p, B(), n, temp
Text1 = ""
For i = 1 To 20
Randomize
A(i) = Int(Rnd * 100) '0-99的正整数
Text1 = Text1 & A(i) & " "
If fc(A(i)) Then
n = n + 1
ReDim Preserve B(1 To n)
B(n) = A(i)
End If
Next
If n > 0 Then
Text2 = Join(B)
Else
Text2 = ""
Text3 = ""
Exit Sub
End If
For i = 1 To UBound(B) - 1
p = i
For j = i + 1 To UBound(B)
If B(j) i Then
temp = B(p)
B(p) = B(i)
B(i) = temp
End If
Next
Text3 = Join(B)
End Sub
Function fc(n) As Boolean
Dim i
If n < 2 Then Exit Function
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then Exit Function
Next
fc = True
End Function