想不通，不明白！_资讯

我猜两种可能（当然只有两种）

1、她确实有男朋友。并且，喜欢他胜过喜欢你。你很可能只是她的一个发泄情绪的工具。

2、她没有男朋友。很可能是为了自我保护，不想让你靠得太近。

总之，你在其中的角色，很不是滋味。

要想搞清楚，必要时，发动异性朋友，去了解了解她内心想法。

本人建议：不搞清楚，或许更好。高中爱情成功率很低。

（还有，你发表的内容，不应该在VB中。）

do while true

if msgbox("询问",vbyesno)=vbyes then

msgbox "内容2"

exit do

end if

loop

化学元素表白暗语有：Os、At、Nb，分别对应锇、砹、铌，谐音是我爱你。锇：元素周期表第六周期Ⅷ族元素，铂族金属成员之一。砹：是一种非常稀少的天然放射性元素。铌：属周期系VB族。

化学方程式表白

2Na+2H2O==2Na+ +2OH-+ H2↑：我是煤油里的钠，你是平淡无奇的水，我们相遇是我生命最灿烂的样子。

Mg+ZnSO4=MgSO4+Zn：你的美偷走了我的心。SiO2+4HF=SiF4↑+2H2O：我还是很喜欢你，像二氧化硅与氢氟酸，独溶于你。

H At Tc，Os As At Ge Nb，Nb Pu Kr Y Pu Li Os，Ga Os Pd：亲爱的，我深爱着你，你不可以不理我，嫁我吧！

首先你要准备一个玫瑰花文件，要小一点。

然后在窗体上放12个Image控件，组成一个控件数组，摆成心形，Picture属性设置为你的玫瑰花。Visibel属性全部设置为False。

在窗体上放一个Timer控件。Interval属性设置为1000，每秒显示一朵玫瑰花。

OK！你的心愿完成了！

Private Sub Form_Load()

For i = 0 To 11

Image1(i)Picture = LoadPicture(AppPath + "\西安绿博园七彩玫瑰jpg")

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

Static i As Integer

Image1(i)Visible = True

i = i + 1

If i = Image1Count Then

Label1Visible = True

Timer1Enabled = False

End If

End Sub

Os、At、Nb，对于化学元素周期表，分别对应的是，锇，砹，铌，谐音表达出来就是我爱你。

锇：元素周期表第六周期Ⅷ族元素，铂族金属成员之一。元素符号为Os，原子序数76，相对原子质量1902。属重铂族金属，是已知的密度最大的金属。

砹：原子序数85，是一种非常稀少的天然放射性元素，化学符号源于希腊文＂astator＂，原意是“改变”。

铌：化学符号Nb，原子序数41，原子量9290638，属周期系VB族。1801年英国C哈切特从铌铁矿中分离出一种新元素的氧化物。

想不通，不明白！