191问答库 > VB窗体设计随机产生10个两位整数，存放在数组中，将10个数显示在一个文本框中并从中找出一个最大数和一个

VB窗体设计随机产生10个两位整数，存放在数组中，将10个数显示在一个文本框中并从中找出一个最大数和一个

2025-02-28 15:31:44

推荐回答（2个）

回答1：

Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Next
Open "d:\123.txt" For Output As #1
For i = 1 To 10
Print #1, a(i)
Next
Close
For i = 1 To 9
For j = i + 1 To 10 If a(i) >= a(j) Then t = a(j): a(j) = a(i): a(i) = t
Next
Next
Print a(1); a(10)
End Sub

回答2：

问题没有完整显示？

VB窗体设计 随机产生10个两位整数，存放在数组中，将10个数显示在一个文本框中 并从中找出一个最大数和一个

VB窗体设计随机产生10个两位整数，存放在数组中，将10个数显示在一个文本框中并从中找出一个最大数和一个