请各位VB高手帮我看一下这个程序好吗?

'定义常量

const yourname = "yumiko886"

const title = "爱情测试"

const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。"

const info = "你在说谎！不要逃避，实话实说。"

const scend = "你说出了你的心扉，那就向他（她）表白吧!"

'定义变量

dim youranswer

'判断输入是否等于yumiko886不是则循环

do

youranswer = inputbox(question, title)

if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title

loop until youranswer = yourname

msgbox scend, vbinformation+vbokonly, title

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

然后在窗体上放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

#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％。

打开记事本，复制粘贴以下内容。

do

a=msgbox("嫁给我，是否同意？",36,"我爱你")

loop until a = vbYes

msgbox "我爱你宝贝"

点击文件，另存为，文件名输入“lovevbs”（不含隐含），保存类型选所有文件。保存即可。

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

一、抖音套路表白

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，打开文本即可跳出对话框界面