*-1
aa = 0
i = 0
DO WHILE aa < 10
i = i + 1
aa = aa + 1 - 0.5
ENDDO
?i
*-2
_name1 = INPUTBOX("输入第一个人的姓名拼音:")
_name2 = INPUTBOX("输入第二个人的姓名拼音:")
_name_1_2 = ALLTRIM(_name1)+ALLTRIM(_name2)
s = 0
FOR i = 1 TO LEN(_name_1_2)
s = s + ASC(SUBSTR(_name_1_2,i,1))
ENDFOR
?s
IF s%2 = 0
?"有缘"
ELSE
?"缘分待确认"
ENDIF