編寫程序，在窗體上輸出3-100之間的所有素數，要求每行顯示4個數！

Dim i as integer

prime = True

For i =2 to sqr(n)

if n Mod i =0 Then prime = False Exit For End ifNext i100以內的素數：For I = 100 to 2 step -1 if prime (I) Then ReDim preserve S(k) S(k)=I k=k+1 Ene ifNext I5個壹行輸出：Private Sub Command1_() Dim i As Integer , j As Integer Randomize For i = 1 to UBound(a) For j = 1 to 5 a(i,j)=I Form1.print a(i,j) Next j From1.print Next iEnd Sub