VF编程,1到100之间,所有即是3的倍数又是7倍数的自然数

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 01:20:28
VF编程,1到100之间,所有即是3的倍数又是7倍数的自然数

VF编程,1到100之间,所有即是3的倍数又是7倍数的自然数
VF编程,1到100之间,所有即是3的倍数又是7倍数的自然数

VF编程,1到100之间,所有即是3的倍数又是7倍数的自然数
set talk off
clear
for i=1 to 100
if i%3=0.and.i%7=0
?i
endif
endfor
set talk on

for i=1 to 100
if mod(i,3)=0.and.mod(i,7)=0
??i
endif
endfor

Private Sub Command1_Click()
For i = 1 To 100
If i Mod 3 = 0 And i Mod 7 = 0 Then
Print i
End If
Next
End Sub