[原创]求100之内3、7的倍数
程序代码:
[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
b(i,1) 二维数组1记录3的倍数每一条
b(i,2) 二维数组2记录7的倍数每一条
给新手学习
谁说不能 上图[attach]72616[/attach]
输出2条选一条 否则一个3一个7
[ 本帖最后由 tonoy 于 2013-9-1 13:41 编辑 ]