用VB编写程序输出1~100之间不能被3整除的数,并统计其个数.

问题描述:

用VB编写程序输出1~100之间不能被3整除的数,并统计其个数.

Private Sub Command1_Click()Dim i As IntegerDim n As Integern = 0For i = 1 To 100If i Mod 3 = 0 Thenn = n + 1Print n; iEnd IfNextPrint "总共" & n & "个"End SubPrivate Sub Form_Load()Me.WindowState = 2...