Private Sub Command1_Click ()，Dim x As Single, y As Single，x=Val(Text1.Text)，y=((x+52.8) * 5 - 3.9343) / 0.5–x * 10，Text2.Text=”我要对你说：”+ Str(y)，End Sub
我自身是个编程员，记得第一次接触这个行业时什么都不懂，我的师傅是男生，听他们开会时就像听外语，不同的文字结合在一起意思完全不懂。师傅虽然不帅但是性格超好，特别有耐心的教我，当我看到哪些图案在他手里放任自如时觉得他特别帅气，各种一系列操作下来顿时形象高大起来了。
今天闲来无事，教大家一个哄妹子的小case。我们需要创建一个心形图案，按照心形图案的位置和长度，对所创建的字符串进行截断并在所需的位置上输出，最终能呈现在屏幕上满满的爱心。废话不多说，直接上源码看效果。
话说有位程序员和妹子聊天时，选择用代码表达爱意，在聊天到尾声时，程序员突然传了一串数字“73、76、79、86、69、85”，「这是我想对你说的」。说完这句话，他就离线睡觉去了。
我愿做你的内联，供你无限次的调用，直到海枯石烂！我愿做你的引用，和你同进退共生死，一起经受考验！只是我不愿苦苦地调试你的心情，最终沦为你的友元！
如果对你爱的“病毒”已复制满我的大脑，我宁可将它格式化，我的大脑能格式化吗？不能。所以，我仍然爱你！
