作业帮 > 综合 > 作业

谁能写简单的程序,用VB!

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/25 00:19:36
谁能写简单的程序,用VB!
求整数351~432之间既不能被3整除,又不能被8整除的数的个数及其这些数的和,结果在窗体上输出.我学过 IF END,SELECT CASE,FOR循环,DO循环的结构.最好这些结构中能用的都写出来.
Private Sub Command1_Click()
For i = 351 To 432
j = i Mod 3
k = i Mod 8
n = n + 1
If j 0 And k 0 Then
Print i,n
End If
Next i
修改或接着这个模板写..
我要不能被整除的数的个数及这些数的和!
Private Sub Command1_Click()
Dim i%,j%,k%,n%,u%
For i = 351 To 432
j = i Mod 3
k = i Mod 8
If j0 and k0 then
n = n + 1 '个数
u=u+i '和
endif
next i
Print n,u 'n为个数,u为和
end sub
个数为47,和为18413