作业帮 > 综合 > 作业

求满足下列条件最小的自然数,除2余1,除3余2,除4余3,除7余4~要求用VFP语句,只可用循环和条件语句

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/19 09:35:12
求满足下列条件最小的自然数,除2余1,除3余2,除4余3,除7余4~要求用VFP语句,只可用循环和条件语句
Sub qiuzhi()
Dim n As Integer
n = 1
Dim bl As Boolean
bl = False 'True
Do While bl = False
If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 4 = 3 And n Mod 7 = 4 Then
bl = True
MsgBox "符合要求的自然数为:" & n
End If
n = n + 1
Loop
End Sub
再问: 能不能只用dowhile和if语句做啊 我们要用这个
再答: '这样行不? Sub qiuzhi1() Dim n As Integer n = 1 Do If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 4 = 3 And n Mod 7 = 4 Then MsgBox "符合要求的自然数为:" & n End End If n = n + 1 Loop End Sub