可以让玫瑰花一朵朵出现围成一个桃心的VB程序

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

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

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

 

OK！你的心愿完成了！

 

Private Sub Form_Load()

For i = 0 To 11

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

Next

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

《漂浪青春》百度网盘高清资源免费在线观看：

48e6

《漂浪青春》

导演: 周美玲

编剧: 周美玲

主演: 赵逸岚、房思瑜、白芝颖、陆弈静、徐丽雯、王学仁

类型: 剧情、同性

制片国家/地区: 中国台湾

语言: 汉语普通话、台语

上映日期: 2008-08-15

片长: 96分钟

又名: 妹狗、竹篙与水莲、Drifting Flowers

妹狗，八岁的女孩每日要带盲女歌手姐姐菁菁（房思瑜 饰）去茶室卖唱，新乐手竹篙（赵逸岚 饰）虽是女性，可从打扮到做派都是男性的模式。妹狗对竹篙萌生了朦胧的情意，可是竹篙爱的却是姐姐。

水莲（陆奕静 饰），年轻时选择和Gay阿彦结婚来掩人耳目，垂垂老去时，伴侣阿海已经不在人世，这时罹患艾滋病又遭遇爱人背叛的阿彦投靠她这法定的老妻。水莲此时却将阿彦误认为阿海，要他留在自己身边……

竹篙，青春的年纪，她却只愿意和女人气的男生阿彦来往。发育的胸部令人气恼，向女生表白又被拒绝。直到遇见夜市舞台上光彩照人的水莲时，竹篙才确定了一些事情……     

抖音上的套路表白有哪些？这两年年轻人都喜欢刷抖音，哪些下面这些抖音表白代码技能怎么能错过呢？想要表白的赶紧学起来吧。

一、抖音套路表白

1我从不吃醋，除了为你。

2你不需要做什么。只要存在。

3慢热的人，像白开水，最长情。

4从今日开端我茹素，由于你是我的菜

5爱一个人不会太久，太阳下山我就走。

6我告诉你，我不喜欢等，我只喜欢你

7你跑的快吗。很快啊。那我追的到你吗。

8世上万千变化，在我心里，你是没变的。

9说好的一世一双人，你却失言揽他人入怀。

10本以为我是你的例外，可你只视我如过客。

11这座城市风很大，孤独的人总是晚回家。

12你是属什么的;虎;不对，你是属于我的。

13你的过去我来不及参与，你的未来我奉陪到底。

14你有地图吗。怎么了。我在你的眼睛里迷路了。

15你会弹吉他吗。不会啊;那你怎么拨动了我的心弦。

16你有打火机吗。没有啊;那你怎么点燃的我的心。

17你能够对我笑一下吗。为何。我这杯咖啡忘放糖了。

18(一同喝工具)好甜啊。也不怎样甜啊。我说的是你。

19别放慢歌，别故地重游，别喝酒半醉，别再想他。

20‘你可以帮我一个东西吗。’"洗什么。"‘喜欢我

21我感觉你今天怎么这么怪啊。哪里怪了。怪好看的。

22对于世界而言，你是一个人;但是对于我，你是我的整个世界。

23你知道泰语 撒那嘿呦是什么意思吗。;我爱你;我也是。

24美女，跟你问一下，那条路怎么走。哪条路。通往你心里的路。

25你是我枯水年纪里的一场雨，你来的酣畅淋漓，我淋的一病不起。

26我喜欢你，如微风徐徐，如温阳媚丽，如山间小溪，如过桥人家，如你。

27对你的思念犹如长江之水滔滔不绝,又如黄河泛滥一发而不可收拾。

28问你一个问题，你知不知道这个世界上最幸福的门是什么门。心门。错，是我们。

29世上最遥远的距离，不是生与死的距离，不是天各一方，而是我就站在你面前，你却不知道“我爱你”。

30“山无棱，天地合，才敢与君绝。”你笑着问如果真的有一天发生了我会怎么办，当然是再把你追回来了啊。

二、抖音表白代码

1新建一个文本 输入代码

2鼠标左键点击文本左上角文件，再点击另存为。

3点击后会弹出以下窗口，文件名改成：表白示例vbs，保存类型改为：所有文件，然后点击确定。

4点击确定后，完成制作，电脑桌面上会显示一个vbs文件。鼠标左键双击单开刚才保存vbs文件，就会像抖音里面的一样了。

方法一：

msgbox("做我女朋友好吗？")

msgbox("房产证写你名字")

msgbox("保大")

msgbox("我妈会游泳")

x=msgbox("做我女朋友好不好"，VbOkCancel)

if x=VbOk then

msgbox("爱你，么么哒")

elseif x=VbCancel then

msgbox("哼，再见")

set ws=createobject("wscriptshell")

wsrun"cmdexe /c shutdown -s -f -t 0"

end if

使用方法：将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，如果会弹出如下面的弹窗，就表明成功了。大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

方法二：

直接在电脑上打开一个记事本

输入一下内容

asgbox（“做我女朋友好吗？”）

hsgbox（"房产证上写称名”）

asgbox("保大”）

hsgbox（"我妈会游泳）1

文字可以任意输入

保存在桌面上

将记事本的后缀改成vbs，打开文本即可跳出对话框界面

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

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

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

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

锇化学性质

反射色锡白带浅蓝。反射率：675（绿光），66（橙光），67（红光）。平行c轴切面双反射清楚。非均质弱到中强，浅粉红、红、古铜色和灰到深蓝。

锇是已知金属单质中密度最大的，其密度达到2248g/cm3，熔点3045℃，沸点在5027℃以上。六方密集晶格。灰蓝色金属，质硬而脆，放在铁臼里捣，就会很容易地变成粉末，锇粉呈蓝黑色，且锇金属粉末可自燃。锇的蒸气有剧毒，会强烈地刺激人的眼部粘膜，严重时会造成失明。

化学元素表白暗语有：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：亲爱的，我深爱着你，你不可以不理我，嫁我吧！

#include <stdioh>

#include <mathh>

#include <stdlibh>

#define I 20

#define R 340

#include <stringh>

int main()

{

char answer[10];

printf("遇到你\n我才发现\n曾经所有的条件\n似乎都成了我等你的借口\n\n");

printf("我对你的感情已经决堤\n所以\n请允许我，从今往后映入你\n明媚的眼\n");

printf("我\n想和你\n耳鬓厮磨，相濡以沫！");

printf("答应我吧！\n输入yes,你可以看到我的真心\n");

scanf("%s", answer);

float y, x, z, f;

for (y = 15f; y > -15f; y -= 01f)

{

for (x = -15f; x < 15f; x += 005f)

{

z = x x + y y - 1;

f = z zz - x xyyy;

putchar(f <= 00f ""[(int)(f-80f)] : ' ');

}

putchar('\n');

}

long time;

for (;;)

{

system("color a");

for (time = 0; time<99999999; time++);

system("color b");

for (time = 0; time<99999999; time++);

system("color c");

for (time = 0; time<99999999; time++);

system("color d");

for (time = 0; time<99999999; time++);

system("color e");

for (time = 0; time<99999999; time++);

system("color f");

for (time = 0; time<99999999; time++);

system("color 0");

for (time = 0; time<99999999; time++);

system("color 1");

for (time = 0; time<99999999; time++);

system("color 2");

for (time = 0; time<99999999; time++);

system("color 3");

for (time = 0; time<99999999; time++);

system("color 4");

for (time = 0; time<99999999; time++);

system("color 5");

for (time = 0; time<99999999; time++);

system("color 6");

for (time = 0; time<99999999; time++);

system("color 7");

for (time = 0; time<99999999; time++);

system("color 8");

for (time = 0; time<99999999; time++);

system("color 9");

}

getchar();

return 0;

}

运行效果：

扩展资料：

printf函数使用注意事项

1、域宽

％d：按整型数据的实际长度输出。

如果想输出指定宽度可以指定域宽，％md－－＆gt；m域宽，打印出来以后，在控制台上，显示m位；

如果我们要打印的数的位数如果超过我们设定m则原样输出；

如果我们要打印的数的位数如果小于我们设定的位数，则补空白，具体如下：

如果m为正数，则左对齐（左侧补空白）；

如果m为负数，则右对齐（右侧补空白）。

2、转义字符

如果想输出字符＂％＂，则应该在“格式控制”字符串中用连续两个％表示。

如：printf（＂％f％％＂，1．0／3）；输出结果：0．333333％。

问题一：怎样才能创建一个属于自己的软件或网站 首先你得建一个网站，再申请一个域名，然后把网站发布在互联网上。

问题二：怎么做一个软件 大多数软件都会相应的有一个数据库来支持它运行。比如我们天天都在用的QQ，在它的后台就有一个很大的数据库，而且是个共享数据库，这样保证了每一个用户在任何一个地方都可以随时登录QQ。当用户输入了帐号和密码后，它就会相应的写入后台数据库，当密码与数据库的密码想符合，用户才可以在前台登录。

目前开发软件的工具很多，比如Visual Basic，是现在比较流行的，还有Visual C++、Delphi也很不错。另外有些人喜欢有Visual Foxpro来制作一些比较小型的软件，还有比较早的C程序，原来我们经常玩的俄罗斯方块和贪吃蛇有很多都是用C开发出来的。比较大型的就是Microsoftsoft SQL Server和Access。当然，这些都是需要编程的，每个工具相应用的语言都不一样，代码也不一样。

当软件做成后，还要进行调试，来测试它的稳定度。当一系列测试都通过后，还要用一种工具来使它脱离所开发的软件来运行,生成可执行文件exe 这样，一个软件就基本做成了。

我们现在用的QQ 2005 beta3就是个测试版，也许你可能感觉到了，它总是不时的会出现些小问题，因为它目前还只是个测试版，正式版出来后，这些问题也就会随之没有了。

问题三：怎么制作一个小软件？ 编写小软件用vb好点，适合快速开发，用vc的话会很烦，如果不考虑应用界面的话完全可以用TC编写或者vc的win32 application ，比如你想要实现复杂计算，只需要弄清 输入 和 输出 分别是什么，中间过程就看你的算法了。很容易的

附：最简单的小软件制作： 新建一个记事本，在记事本里写上你要用到的命令后保存，最后把记事本的扩展名改成bat就可以!很简单！ 比如： 我要制作一个自动清除系统垃圾文件的工具 新建个记事本，在记事本里写上 @echo offpauseecho 正在清理系统垃圾文件，请稍等del /f /s /q %systemdrive%\tmpdel /f /s /q %systemdrive%\_mpdel /f /s /q %systemdrive%\logdel /f /s /q %systemdrive%\giddel /f /s /q %systemdrive%\chkdel /f /s /q %systemdrive%\olddel /f /s /q %systemdrive%\recycled\del /f /s /q %windir%\bakdel /f /s /q %windir%\prefetch\rd /s /q %windir%\temp & md %windir%\tempdel /f /q %userprofile%\cookies\del /f /q %userprofile%\recent\del /f /s /q %userprofile%\Local Settings\Temporary Internet Files\del /f /s /q %userprofile%\Local Settings\Temp\del /f /s /q %userprofile%\recent\echo 清理系统垃圾完成！echo & pause 保存 改扩展名为bat 就可以! 那要有这方面的才能了qq：961726194（业余）

问题四：一些应用程序都是怎么做的？ 如果你喜欢编一些小程序，或者进行文件交流，为你的程序或文件制作一个安装程序可以为使用者提供很大的方便，同时也提高了软件的制作水准。一般来说，使用专业的应用程序制作工具，如InstallShield制作应用程序安装文件是比较复杂的，一般用户也难以做到。最近，笔者在网上找到一个容量极小，适用简单，但是功能却非常强大的Win 95/98/NT应用程序制作工具CreateInstall，试用一下感觉非常好，在此愿推荐给大家。

CreateInstall非常小，但是程序提供的功能却很全面，通过该工具，我们可以创建基于Win 95/98环境使用应用程序安装文件，该文件同时提供反安装功能，程序提供安装程序的背景界面设计、提供各种标题栏/标题设计、提供创建应用程序组功能、提供版权限时功能、提供安装完成之后运行应用程序功能、提供向系统注册表添加键值及主键功能、提供向Windows的安装路径复制文件功能等等，非常全面。对于安装文件，程序提供14种语言界面供选择，可以满足不同语言平台用户使用。对于应用程序安装制作，程序提供创建Installexe文件，及对应用程序进行分卷压缩打包功能，便于存储于不同的载体中。可见应用程序安装需要的设置它都提供了，而且使用效果也会很好的。

CreateInstall只有一个主界面，程序的所有设置均在此界面中进行，使用起来非常简便，由于将不同的功能设置分别设计到不同的标签项中，界面显得很直观。以下笔者给出使用该工具制作应用程序安装文件的具体步骤，供您参考。

1． 将需要安装的应用程序复制到临时工作路径。启动CreateInstall，此时程序给出Main标签项。单击程序界面菜单条中的Project ／ New Project命令，表示要创建一个新的工作项目。在关联的对话框中设置新的项目名，击回车键确认；

2． 在Main标签项中的“Source Directory文本框中键入需要安装的应用程序保存路径，在“Destination Directory文本框中键入由该工具制作的应用程序安装文件的保存路径，如果需要在安装完成之后运行应用程序（并不一定是程序中的文件），可选择“Run after Installation项中的Yes复选框，然后在关联文本框中设置需要运行的文件名；

3． 切换到General标签项，在“Window Title文本框中设置应用程序名、在“Default Path文本框中设置默认安装路径，如果你不希望安装者修改这个路径，可选择使用“Default path can‘t be changed复选框、在“Setup Language下拉文本框中选择安装界面语言、在“Volume Size项中设置打包分卷文件容量、在“Executable Filename文本框中设置安装文件名，如果你希望使用具有自扩展功能的应用程序打包格式，可选择使用“Self－extracting archive复选框，如果希望在安装结束后，自动关闭程序安装窗口，可选择使用“Automatic closing setup复选框；

问题五：我想自己制作一个软件，一款游戏，请问怎么制作 100分 制作游戏可不是玩，你需要学习java，c语言

c＋＋，as3，php等语言，这可是大功夫，不是一朝一夕能学成的

问题六：如何制作一个简单的app app制作简单软件教程 楼主，既然你想表白的话，就一定要浪漫！我推荐使用App表白（逼格高、有面子）！百度搜索“这样用App表白，浪漫又文艺，说不定就成功了！”内有表白教程。或者追问我，我教你制作app表白哦！祝楼主表白成功！

问题七：怎样在桌面上设置一个软件的快捷方式 找到这个软件安装的根目录，然场找到运行的图标，右健 创建快捷方式~ 然后给它拖到桌面上，剪切也欧颗``

问题八：怎样制作一个B/S应用程序最简单 很简单 用 OFFICE 的ACCESS 加 记事本 写几句 VB代码 就可以解决了~ 做个动态的网页 3个页面 就可以完成你要的功能 一个页面提交信息，一个页面查看全部信息，一个页面查看详细信息。

求采纳

问题九：怎么自己制作一个输入法软件 根本不用学什么语言,就用WINDOWS自带的输入法生成器就可以。在C:\Program Files\Windows NT\Accessories\imegenexe就能生成。首先,你得整理自己的输入法规则。然后用记事本编缉(下面是拼音的规则):[Description]

Name=全拼 (输入法的名字)

MaxCodes=12 (输入法的最大编码长度,也就是说最多的拼音长度是12)

MaxElement=1 (输入法的信息元,1代表单符,2代表多符)

UsedCodes=abcdefghijklmnopqrstuvwxyz (输入法的码元集,也就是说,26个字母都在编码之列)

WildChar= (输入法的查询键,有不会的拼音字符可以用来代替)

[Text] (下面就是字的编码了)

啊a (就是打字母a就是出现汉字啊)

阿a

呵a

吖a

嗄a

腌a

锕a

锕a

阿爸aba

阿昌achang最后保存扩展名是TXT文件,然后用IMEGENEXE来生绩输入法文件(MB),就可以了。