一站直销 > （VB编程）如图，利用随机函数产生并且显示5×5的一位整型数方阵，求出所有非零整数的和。

（VB编程）如图，利用随机函数产生并且显示5×5的一位整型数方阵，求出所有非零整数的和。

2025-04-03 16:18:12

推荐回答（2个）

回答1：

Private Sub Command1_Click()
  Randomize
  Dim a(5, 5) As Integer
  Print "产生的序列是："
  For i = 1 To 5
    For j = 1 To 5
      a(i, j) = Int(10 * Rnd)
      s = s + a(i, j)
      If a(i, j) > 0 Then n = n + 1
      Print a(i, j);
    Next j
    Print
  Next i
  Print "非零值的和是："; s; "  一共有"; n; "个"
End Sub

回答2：

没说清楚整数的随机范围