VB求素数和的填空题

来源：百度知道编辑：UC知道时间：2024/06/14 06:54:10

4、* 程序功能是统计二维数组A(1 TO 6, 1 TO 6)第一行所有元素中偶数元素的个数，并在窗体上输出其结果。
* 数组元素值为[0，10]内的随机整数。
* 程序代码如下：
Option Base 1
Private Sub Form_Click()
Dim a%(6, 6), n%
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 11)
Next j
Next i
n = ＿＿＿＿＿＿
For i = 1 To 6
For j = 1 To 6
If ＿＿＿＿ And a(i, j) Mod 2 = 0 Then n = n + 1
Next j
Next i
Print "第一行所有元素中偶数元素的个数为："; n
End Sub

Option Base 1
Private Sub Form_Click()
Dim a%(6, 6), n%
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 11)
Next j
Next i
n = 0
For i = 1 To 6
For j = 1 To 6
If i=1 And a(i, j) Mod 2 = 0 Then n = n + 1
Next j
Next i
Print "第一行所有元素中偶数元素的个数为："; n
End Sub

0
i=1

急!!VB中关于求素数和的程序 vb求100以内的所有素数 VB 求100以内的孪生素数求VB素数？ VB求素数~ 关于VB!素数的! vb求100以内的素数的个数关于用VB求素数的一个为什么。用VB 求100以内的孪生素数用VB编一道题目:求一个指定整数以内的所有素数怎么判断素数