用VB做:通过随机产生20到40之间的整数形成4*5的矩阵,然后按行递减次序排列
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/06 08:21:52
用VB做:通过随机产生20到40之间的整数形成4*5的矩阵,然后按行递减次序排列
Option Base 1
Dim a(4,5) As Integer
Private Sub Command1_Click()
Dim i As Integer,j As Integer
For i = 1 To 4
For j = 1 To 5
Randomize
a(i,j) = Int(Rnd * 9 + 1)
Picture1.Print a(i,j);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim max As Integer,min As Integer,max_i As Integer,min_i As Integer,s As String
max = 0
min = 9999
For i = 1 To 4
Sum = 0
For j = 1 To 5
Sum = Sum + a(i,j)
Next j
s = s + Str(Sum) + vbCrLf
Text2.Text = s
If Sum > max Then
max = Sum
max_i = i
End If
If Sum < min Then
min = Sum
min_i = i
End If
Next i
Text1.Text = Str(max_i) & Str(min_i)
For j = 1 To 5
temp = a(max_i,j)
a(max_i,j) = a(min_i,j)
a(min_i,j) = temp
Next j
For i = 1 To 4
For j = 1 To 5
Picture2.Print a(i,j);
Next j
Picture2.Print
Next i
End Sub
更详细说明见
另外,站长团上有产品团购,便宜有保证
Dim a(4,5) As Integer
Private Sub Command1_Click()
Dim i As Integer,j As Integer
For i = 1 To 4
For j = 1 To 5
Randomize
a(i,j) = Int(Rnd * 9 + 1)
Picture1.Print a(i,j);
Next j
Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim max As Integer,min As Integer,max_i As Integer,min_i As Integer,s As String
max = 0
min = 9999
For i = 1 To 4
Sum = 0
For j = 1 To 5
Sum = Sum + a(i,j)
Next j
s = s + Str(Sum) + vbCrLf
Text2.Text = s
If Sum > max Then
max = Sum
max_i = i
End If
If Sum < min Then
min = Sum
min_i = i
End If
Next i
Text1.Text = Str(max_i) & Str(min_i)
For j = 1 To 5
temp = a(max_i,j)
a(max_i,j) = a(min_i,j)
a(min_i,j) = temp
Next j
For i = 1 To 4
For j = 1 To 5
Picture2.Print a(i,j);
Next j
Picture2.Print
Next i
End Sub
更详细说明见
另外,站长团上有产品团购,便宜有保证
vb 用随机函数产生10个[100,200]之间的随机整数向数组赋值,按降序排列并输出
VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计
VB 随机产生35个 20到80的随机整数
vb编写程序,单击按钮,使计算机产生一个0到100之间的随机整数,然后判断这个数是奇数还是偶数,并输出该
VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”,
VB编程,产生20个0~350之间的随机整数
使用随进函数产生0~9之间的随机整数形成一个5阶矩阵元素,计算矩阵元素之和
vb问题利用随机函数产生80个10~99之间的随机整数,
vb中利用随机函数产生30个不同的三位正整数,打印出这30个数,然后将它们按从大到小的次序排序