作业帮 > 综合 > 作业

SET TALK OFF STORE 1 TO A,B DO WHILE A

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 06:20:44
SET TALK OFF STORE 1 TO A,B DO WHILE A
SET TALK OFF
--------------------------------------
SET TALK ON | OFF
参数:
ON 显示VFP命令执行的状态.
OFF 不显示VFP命令执行的状态.
--------------------------------------
STORE TO A,B 定义2个变量A、B
--------------------------------------
DO WHILE .T.当为真时候循环、永远.t.那么永远循环
A=A+1 A自加1
IF INT(A/3)=A/3.当 A/3后再int取整、如果也=a/3时
说的意思其实就是 能被3整除 不是嘛
LOOP 当能被3整除时 继续循环
ELSE 否则
IF A>=10 又如果A>=10时
EXIT 退出循环
ELSE 否则
B=B+A B=B+A
ENDIF 结束IF
ENDIF 结束IF
ENDDO 结束循环
------------------------------------
"B="+STR(B,2) 打印B= (把B的值转换为2位字符)
B=?
我不懂vfp 但是看看也能懂
我用vb 做了个意思一样的、你可以参考一下
总感觉你的这个程序逻辑又点不对阿.
也许vfp不一样 我不知道.
Private Sub Command1_Click()
Dim a,b As Integer
Do While True
a = a + 1
If Int(a / 3) = a / 3 Then
Else
If a >= 10 Then
Exit Do
Else
b = b + a
End If
End If
Loop
'ENDdo
Print b
End Su