a=0:b=0
n= Val(Text1. Text)
Do While n>0
r=n Mod 2
a=a+r
b=b+1-r
n=n\2
Loop
If a=b Then Print "相等" Else Print "不等"
该程序段运行后,在文本框Text1中分别输入下列值,其中运行结果不同的是( )
微信扫码预览、分享更方便