大学生VB程序与设计第四章要点.ppt

* * * * * * * * * * * * * * * * * * For i = 1 To 9 For j = 1 To se = i × j = i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print Next i 例 打印乘法九九表 i 外循环控制打印行数，内循环控制打印列数 循环次数: 1+2+3+4+5+6+7+8+9=45 1 10 19 换行 不换行 例 输出100到300间的所有素数 Sub Form_Click( ) For n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2 swit = 0 While i = k And swit = 0 If n Mod i = 0 Then swit = 1 Else i = i + 1 End If Wend If swit = 0 Then d = d + 1 If d Mod 5 = 0