UC知道VB 题目 谁帮忙我做下?很急
来源：百度知道 编辑：UC知道 时间：2024/07/02 15:45:32
1.随机生成15个100以内的正整数并显示在一个文本框中，再将所有对调后显示在另一个文本框中（第一个与第15个对调。第二个与第14个对调。。。。。）
2.
20个两位随机正整数围成一圈，找出每四个相邻数之和中的最大值，并指出是哪四个相邻的数
3.
设有一个二维数组A（5，5），试编写程序计算
1所有元素之和
2所有靠边元素之和
3两条对角线之和
4.有20个数围成一圈，找出每四个相邻数之和的最大值，并指出是哪四个相邻的数
5.随机生成一个5*5的整数矩阵，该矩阵的副对角线（矩阵左下角到矩阵的右上角连线）和、上方元素都是两位偶数，副对角线和它的下方元素都为奇数
2.
20个两位随机正整数围成一圈，找出每四个相邻数之和中的最大值，并指出是哪四个相邻的数
3.
设有一个二维数组A（5，5），试编写程序计算
1所有元素之和
2所有靠边元素之和
3两条对角线之和
4.有20个数围成一圈，找出每四个相邻数之和的最大值，并指出是哪四个相邻的数
5.随机生成一个5*5的整数矩阵，该矩阵的副对角线（矩阵左下角到矩阵的右上角连线）和、上方元素都是两位偶数，副对角线和它的下方元素都为奇数
==============1===========================
Option Explicit
Private Sub Form_Load()
Dim x(15) As Integer
Dim a As Integer
For a = 1 To 15
x(a) = Rnd * 100
Text1.Text = Text1.Text + Str(x(a)) + " "
Next
For a = 15 To 1 Step -1
Text2.Text = Text2.Text + Str(x(a)) + " "
Next
End Sub
==============3====================
Option Explicit
Private Sub Form_Click()
Dim a(5, 5)
Dim i, j
Dim all
'生成随机矩阵数
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 10)
Print a(i, j); ;
all = all + a(i, j)
Next
Print
Next
Print
Print "所有元素之和" + Str(all)
all = 0
For i = 1 To 5
all = all + a(1, i)
all = all + a(i, 1)
all = all + a(5, i)
all = all + a(i, 5)
Next
Print
Print "所有靠边元素之和"