用VB编写把9个元素的数组A的围成一圈,每三个相邻数相加得到数组B,再对B升序排列

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 13:12:31
用VB编写把9个元素的数组A的围成一圈,每三个相邻数相加得到数组B,再对B升序排列

用VB编写把9个元素的数组A的围成一圈,每三个相邻数相加得到数组B,再对B升序排列
用VB编写把9个元素的数组A的围成一圈,每三个相邻数相加得到数组B,再对B升序排列

用VB编写把9个元素的数组A的围成一圈,每三个相邻数相加得到数组B,再对B升序排列
Public Function MyMod&(ByVal N&, ByVal M&)
MyMod = (N + M) Mod M
End Function
Private Sub Command1_Click()
Dim i%, j%, a%(9), b%(9), t%: Cls
Print "数组a() : "
For i = 0 To 8 '产生并输出数组a()
a(i) = Int(Rnd() * 10)
Print a(i) & " ";
Next
Print: Print "数组b() 未排序: "
For i = 0 To 8 '产生并输出数组B()
b(i) = a(MyMod(i - 1, 9)) + a(MyMod(i, 9)) + a(MyMod(i + 1, 9))
Print b(i) & " ";
Next
For i = 0 To 7 '数组B()排序
For j = i + 1 To 8
If b(i) > b(j) Then t = b(i): b(i) = b(j): b(j) = t
Next
Next
Print: Print "数组b() 已排序: "
For i = 0 To 8 '输出数组B()
Print b(i) & " ";
Next
End Sub

不懂帮你顶

用VB编写把9个元素的数组A的围成一圈,每三个相邻数相加得到数组B,再对B升序排列 vb程序题:将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来,要求把 A(1,1)到 A(1,10)依次赋给 B( 1)到 B( VB程序编写:某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.即第1个元素与第20个元素 vb编写程序:一个具有10个元素的一维数组,下标从1到10,要求用inputbox从键盘上输入其元素值,并找出最小的那个数. vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入提示:1.线查找删除的元素,没有则返回2.找到后.则从下一个元素到最后元素依次往前移3.最 VB编写程序,生成一个10个元素的随机整数组,数组元素的范围0-100,要求将这个数组的最大值和最小值的位置对调 用c语言编写:从键盘输入10个数存入数组a中,统计数组下标是奇数且数组元素值为偶数的元素个数 编写函数有10个数围成一圈,求出相邻三个数之和的最小值并返回最小值的起始数组元素的下标(用指针变量做函数参数传递最小的值,函数原型为int min(int *a,int n,int *minval)).#includeint min(int *a,int 有一个具有十个元素的一维数组,编写程序来求10个元素的平均值,并且比平均值大的元素的个数,有完整的VB程 【c语言】编写程序,求数组a中前n个元素的最大值max、最小值min及平均值avg.编写程序,求数组a中前n个元素的最大值max、最小值min及平均值avg. vb操作题 改错:设有如下两组数据A:2,8,7,6,4,28,70,25B:79,27,32,41,57,66,78,80编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对应下表的元素相加,并把相应的结果放入第三个 利用VB,编写一个3*4的二维数组输入任意整数,求所有数组元素和及平均值i,j分别代表什么 , VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0,1,2..9的元素个数(使用数组 C++中,定义一个整型数组a[10]={1,2,3,4,5,6,7,8,9,10},编写一个函数实现将a数组各个数组元素的值加2.以数组元素作函数参数 请问用C#语言怎么编写下面问题的程序啊?假设数组a[]={18,9,10,6,15,-16,6,-9,7,-8,14,7,16,9,13,-17,18};一共有17个元素,现在要求对该数组所有的第奇数个元素:9,6,-16,-9,-8,7,9,-17进行操作,例如对于元素-16 用VB编写一个程序,计算出给定的10*10矩阵(存放在二维数组A中)每行元素的最大值和每列元素的最小值如果行元素中最大值的最小值大于列元素中最小值的最大值则输出“row”否则输出“col vb中 dim a(3,4,5)定义的数组中所包含的数组元素的个数是多少? 编写VB程序,在窗体上输入5个整数存放在数组中,找出这些数中最大值和最小值及它们所在的位置,(接上)并且求出所有元素的相加之和.