Dim str As String, n As Integer str = InputBox("", "输入n") n = CInt(str) Dim i As Integer, j As Integer, ar(n) As Integer, str1 As String For j = 1 To n For i = 0 To n - 1 ar(i) = CInt(Rnd() * 100) If str1 = "" Then str1 = ar(0) Else str1 = str1 + " " + CStr(ar(i)) End If Next If ListBox1.Text = "" Then ...
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByV...