急！VB编程：计算从1到1000中的能被1整除的数，并输出

来源：百度知道 编辑：UC知道 时间：2024/05/06 04:59:59
计算从1到1000中的能被1整除的数，并输出

如题
计算从1到1000中的能被7整除的数，并输出
\

写出来的最多可以追加分数至150分

Private Sub Form_Load()
For I = 1 To 1000
If I Mod 7 = 0 Then
X = X + 1
If X Mod 10 = 0 Then
Label1.Caption = Label1.Caption & vbNewLine
End If
Label1.Caption = Label1.Caption & " " & I
End If
Next I
End Sub

main()
{
int i;
for(i=1;i<=1000;i++)
if(i%7==0) printf("%d\t",i);

}

结果
7 14 21 28 35 42 49 56 63 70
77 84 91 98 105 112 119 126 133 140
147 154 161 168 175 182 189 196 203 210
217 224 231 238 245 252 259 266 273 280
287 294 301 308 315 322 329 336 343 350
357 364 371 378 385 392 399 406 413 420
427 434 441 448 455 462 469 476