vb 关于数组的问题1.利用随机函数生成一个4*5的矩阵(二维数组),范围是[1,100]之间的整数,求所有元

问题描述:

vb 关于数组的问题1.利用随机函数生成一个4*5的矩阵(二维数组),范围是[1,100]之间的整数,求所有元
素的最大值
1个回答 分类:综合 2014-10-17

问题解答:

我来补答
Dim a%(4,5)
Private Sub Command1_Click() '产生并输出
For i = 1 To 4
For j = 1 To 5
a(i,j) = Int(Rnd * 100) '[1,100]
Print a(i,j);
Next j
Print '换行
Next i
End Sub
Private Sub Command2_Click() '求最小值
Max = a(1,1) '最大值的初始值为第一个元素
For i = 1 To 4
For j = 1 To 5
If Max < a(i,j) Then
Max = a(i,j)
End If
Next j
Next i
Print "最大值为:"; Max
End Sub
再问: 如果同时显示最大值的坐标怎么办,
再答: Dim a%(4, 5) Dim imax As Integer Dim jmax As Integer Private Sub Command1_Click() '产生并输出 For i = 1 To 4 For J = 1 To 5 a(i, J) = Int(Rnd * 100) '[1,100] Print a(i, J); Next J Print '换行 Next i End Sub Private Sub Command2_Click() '求最小值 Max = a(1, 1) '最大值的初始值为第一个元素 For i = 1 To 4 For J = 1 To 5 If Max < a(i, J) Then Max = a(i, J) imax = i jmax = J End If Next J Next i Print "最大值为:"; Max; ",坐标为(" & imax & "," & jmax & ")" End Sub 坐标加上了
剩余:2000

相关作业

[ 综合 ] 编程题:利用函数,将一个3行4列的二维数组a的每一列的最大元素放到一个一维的数组中.

#include main(){int a[3][4]={{1,2,7,8},{3,4,9,10},{5,6,11,12}},b[4],i,j;for(j=0;j

1

[ 综合 ] 编写程序,利用随机函数生成一个6 行6列的整型矩阵(数据在100~900范围内),找出某个指定行内最大元素所在的列号.

请说明用什么语言编写 再问: 用VB语言编写,谢谢啦 再答: Dim a(6, 6) As Integer Function lie(h As Integer) As Integer Max = 0 l = 1 For i = 1 To 6 If Max < a(h, i) Then Max = a(h, i) l =

1

[ 综合 ] c++程序设计 求一个3*3的整形二维数组对角线元素之和

#includevoid main(){int a[3][3],i,j,sum=0;cout

1

[ 综合 ] 求一个3×3矩阵对角线元素之和.(提示:定义一个三行三列的二维数组存放该矩阵的所有元素)

#include void main(){ int[3][3],sum=0; int i,j; printf("enter data:\n"); for(i=0;i

1

[ 综合 ] 用C#,利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出其最大值和下标.

C#源程序:class Program{    static void Main()    {        Random&nbs

1

[ 综合 ] 急将一个一维数组a(n)中各元素值按行的顺序放入二维数组b(k*k)(其中:n=k*k)).

#define N 4void transArray(int a[],int b[][N]){int i,j,n=0;for(i=0;i

1

[ 综合 ] 定义一个有25行的二维数组:第1行有1个元素1;第二行有2个元素1、2;第3行有3个元素1、2、3.

#include "stdio.h"void main(){ int x[25][25]; int i=0,j=0; for(i=1;i

1

[ 综合 ] C语言二维数组矩阵法.

C语言最萌了!萌教至高无上!如果你学到C++了,看这个http://zhidao.baidu.com/question/329120220.html?an=0&si=6如果没有,恩哼1. 先看二维数组的本质http://baike.baidu.com/view/1188148.htm2. 然后看二维数组做参数——其实二

1

[ 综合 ] 一维数组和二维数组的理解问题

刚刚我写了很详细来答你刚才的那个提问,但是,但是当我写完时,你已经选择了最佳答案了.int a[][10]这类数字上的数组我想应该比较好理解吧,难理解的是char a[][10]这类字符上的数组,我就拿你上面的程序来说.首先,在你的二维数组里面的是字符串,先举一个简单的例子:char a[10]={"china"} 形

1

[ 综合 ] 利用VB,编写一个3*4的二维数组输入任意整数,求所有数组元素和及平均值

img class="ikqb_img" src="http://b.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=3c45d7fc9058d109c4b6a1b4e168e087/11385343fbf2b211720231ccc88065380cd78e00.jpg"

1

[ 综合 ] vb利用二维数组统计员工业绩

其实你这个需求用电子表格就可以实现,何必用VB编程呢? Microsoft Excel 所见即所得,灰常方便!而且数据输入一次就可以了,如果想要更强的功能,它还支持VBscript编程,虽不如VB强悍但是也足够用了. 再问: 作业 没办法。 再答: Dim result(6, 5) As Integer Dim tot

1

[ 综合 ] 利用二维数组实现矩阵的加法运算

#include "stdio.h"#define M 3#define N 3void add(int A[M][N],int B[M][N],int C[M][N]){int i,j;for(i=0; i 再问: 能不能用VB做下 再答: 早说嘛 Module Module3 Sub Add(ByVal A As

1

[ 综合 ] (1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行

第一题:Option base 1Private Sub Form_Click()Dim a(4,5) as integer ,i as integer ,j as integer ,s as integerdim a_ave as singlerandomizefor i=1 to 4for j =1 to 5a(i

1

[ 综合 ] 2.将一个N行、M列的二维数组a的行和列元素互换,存到另一个二维数组b中.N、M定义成符号常量,元素值随机

#include#include#include#define N 3#define M 4int main(){int i,j,a[N][M],b[M][N];srand((unsigned)time(NULL));for(i =0;i

1

[ 综合 ] VB编程:随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素

Option ExplicitPrivate a(9) As IntegerPrivate iMaxIndex As IntegerPrivate Sub Command1_Click()Dim i,j,k,iMax As IntegerDim b As BooleanRandomizeb = Truei = 0iMa

1

[ 数学 ] .二维数组a有m列,则在a[i][j]之前的元素个数为:.A) j*m+i B) i*m+j C) i*m+j-1 D)

选B;例如:a[4][5]这样的二维数组,列就是5,即m=5; 也就是每行有5个元素a[i][j],i是指行,j指列,过了几行就是i*m,再加上本行上的列就是+j.a[2][3] 就是2*5+3 = 第13个元素 再问: 是a[i][j]之前的元素个数哦 再答: 哦,那就减1吧, 选C咯, 看错了.

1

[ 综合 ] 4.找出一个二维数组的“鞍点”,即该位置上的元素在该行上最大,在该列上最小.也可能没有鞍点.至少准备两组测试数据:

#include#define N 10#define M 10void main(){int i,j,k,m,n,flag1,flag2,a[N][M],max,maxi,maxj;printf("输入行数n:");scanf("%d",&n);printf("\n输入列数m:");scanf("%d",&

1

[ 综合 ] 二维数组中的某列,vb实现对该列每三个元素求平均值(没有重复的元素),最后显示这些平均值

Private Sub Command1_Click() Dim a(6, 10) As Integer Dim i As Integer Dim m As Integer For i = 0 To 10 For m = 0 To 6 a(m, i) = Rnd() * 100 Next Next cc a, 3End

1

[ 综合 ] VB 输入一个3行4列的二维数组,分别求出每一行、每一列元素之和 要求

你可以将行列算出的值用一个数组接收,这里是采用变量接收的方式.Option Compare DatabasePrivate Sub aa()Dim h1, h2, h3, l1, l2, l3, l4,&nbs

1