|
#2
chen35232013-08-27 15:41
大佬：上机试试结果好似不正确呀
 |
程序代码：[local]2[/local]Private Sub Command1_Click()
Dim i%, j%, l%, b(1 To 101, 1 To 101)
For i = 1 To 100
If i Mod 3 = 0 Then
L = L + i
b(i, 1) = i
Print b(i, 1)
End If
If i Mod 7 = 0 Then
N = N + i '累加7的倍数
b(i, 2) = i '记录7的倍数
'Print b(i, 2)
End If
Next i
End Sub
Dim i%, j%, l%, b(1 To 101, 1 To 101)
For i = 1 To 100
If i Mod 3 = 0 Then
L = L + i
b(i, 1) = i
Print b(i, 1)
End If
If i Mod 7 = 0 Then
N = N + i '累加7的倍数
b(i, 2) = i '记录7的倍数
'Print b(i, 2)
End If
Next i
End Sub
b(i，1) 二维数组1记录3的倍数每一条
b(i,2) 二维数组2记录7的倍数每一条
给新手学习
谁说不能 上图[attach]72616[/attach]
输出2条选一条 否则一个3一个7
[ 本帖最后由 tonoy 于 2013-9-1 13:41 编辑 ]
