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

i,j分别代表什么,带解释... i,j分别代表什么 ,带解释 展开
 我来答
百度网友faadf46
高粉答主

2019-12-10 · 说的都是干货,快来关注
知道答主
回答量:4556
采纳率:0%
帮助的人:72.1万
展开全部

利用VB,编写一个3*4的二维数组输入任意整数并且求所有数组元素和及平均值方法为:

1、输入头文件和主函数。

2、初始化数组并定义变量类型。

3、输入i和j。

4、输出第i行第j列的元素。

5、编译、运行。

注意事项:

在Visual Basic 6.0中,采用面向对象程序设计方法(Object-Oriented Programming),把程序和数据封装起来作为一个对象,每个对象都是可视的。

jay821120
2014-04-29 · TA获得超过262个赞
知道小有建树答主
回答量:269
采纳率:0%
帮助的人:329万
展开全部

 

Option Base 1
Private Sub Command1_Click()
Dim a(3, 4) As Integer, i As Integer, j As Integer '定义一个二维数组,i循环代表行下标,j循环代表列下标
Dim s As Long, ave As Single                       's存放数组元素的和值,ave为平均值
s = 0
For i = 1 To 3
   For j = 1 To 4
      a(i, j) = Int(Rnd * 101)                     '给这个二维数组赋值为100以内的随机整数
      Print a(i, j);
      s = s + a(i, j)                              '求所有元素的合值
   Next j
   Print
Next i
ave = s / 12                                       '求平均值
Print "二维数组的元素的和=" & s
Print "二维数组的元素平均值=" & ave
End Sub

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ZHMINGEN
推荐于2017-12-16 · TA获得超过1735个赞
知道大有可为答主
回答量:3149
采纳率:68%
帮助的人:1241万
展开全部

Private Sub Command1_Click()
Dim i As Integer, j As Integer, A(1 To 3, 1 To 4) As Integer, X As Integer
'i、j、X 是变量,A(1 To 3, 1 To 4)是二维数组变量
For i = 1 To 3   'i是循环变量,这里循环3次
   For j = 1 To 4   'j是循环变量,这里循环4次
      Randomize    '刷新随机数种子
      A(i, j) = Int(Rnd * 90 + 10)    '产生随机数,存储在A数组中
      X = X + A(i, j)    '计算数组的和
      Print A(i, j) & "   ";    '打印数组的值
   Next j   'j循环结束
Print    '打印换行
Next i    'i循环结束
Print   '设置一个空行
Print "3*4数组的和 = " & X    '打印数组的和
Print "平均值 = " & Round((X / ((i - 1) * (j - 1))), 2) '打印平均值,取小数后二位
End Sub
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
听不清啊
高粉答主

2018-08-10 · 说的都是干货,快来关注
知道顶级答主
回答量:7.8万
采纳率:89%
帮助的人:1.9亿
展开全部

Private Sub Command1_Click()
  Print "请输入一个3*4的二维数组"
  Dim a(3, 4)
  For i = 1 To 3
    For j = 1 To 4
      x = Val(InputBox("请输入a(" & i & "," & j & "):"))
      a(i, j) = x
      s = s + a(i, j)
      Print a(i, j),
    Next j
    Print
  Next i
  Print
  Print "元素总和="; s
  Print "平均值="; s / 12
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式