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

Question

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

Answer 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

Answer 2

没说清楚整数的随机范围追问

有说啊，一位的整数