接着征了,以pb的方式

[bugubirds]

girl girl
me me
boolean lb_result

girl.city = "深圳"
girl.birthyeah [1] = '1981'
girl.birthyeah [1] = '1980'
girl.work = 'pbcoder'

me.city = "深圳"
me.age = 25
me.work = 'pbcoder'
me.qq = '8413777'

lb_result = false
do

if girl like me then
messagebox("good", "make a friend")
lb_result = true
exit
end if
loop while not (lb_result)

[j9dai]

强人

[lzheng2001]

帮顶

[j9dai]

MessageBox("楼主性别",me.sex)

[圣殿骑士18]

明显不对啊，一个是girl才2个，而且是闭环的程序，没有入口啊，mm怎么用呢？
二是“if girl like me then ”按照前面的写法应该改为"if girl[n] like me then ",后面加n++

[bugubirds]

呀,看来高手都来了,窗口已经画好啦,这是click里面的处理脚本
n++就不要了,只要喜欢一个就够啦

哈 :)

[霖湘凝]

强,替你up

[bugubirds]

不好意思,这是1.0测试版的代码,现在修正一下bug,发布2.0稳定版的代码:
//声明两个对象
girl girl
me me
boolean lb_result

//给对象赋值
girl.city = "深圳"
girl.birthyeah [1] = '1981'
girl.birthyeah [2] = '1980'
girl.work = 'pbcoder'

me.city = "深圳"
me.age = 25
me.work = 'pbcoder'
me.qq = '8413777'

lb_result = false

//处理代码
do

if girl like me then
messagebox("good", "make a friend")
lb_result = true
//得到结果,跳出循环
exit
end if
loop while not (lb_result)

//执行完毕

：））

[bugubirds]

我顶顶顶

[netspies]

顶

[mtu207]

哈哈哈，变量类型不匹配：）

[「已注销」]

不知道你们鉴定过了没

^_^


http://community.csdn.net/Expert/topic/4371/4371441.xml?temp=.7798426

[31737951]

春天过了啊

[li_d_s]

c版的可是要:
if(有房 && 有车)
才可以哦

[herrick]

楼主，还真是个有心人哦，不过属性不要都设成是Private,
Public Readonly的要多拿一点出来哦，
这样你的要求，和别人对你的认识，才能浮现出来哦！