作业帮 > 综合 > 作业

求VB 的编码···题目如下:在窗体上输出100-200(包括100,200)之间不能被3整除的奇数及这些数的和.(

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/23 12:30:56
求VB 的编码···题目如下:在窗体上输出100-200(包括100,200)之间不能被3整除的奇数及这些数的和.(
求VB 的编码···题目如下:在窗体上输出100-200(包括100,200)之间不能被3整除的奇数及这些数的和.(
Private Sub Command1_Click()
Dim i,j,k
For i = 101 To 200 Step 2 '每次加二,确保奇树
If i Mod 3 > 0 Then '不能被3整除
j = j & Str(i) & "," '要打印输出的字符串
k = k + i '奇树和
End If
Next i
Me.Print j
Me.Print vbcrtf
Me.Print "和:" & k
End Su