vb编程代码表白大全,如何用vb编写个表白程序
vb编程代码表白大全,如何用vb编写个表白程序详细介绍
本文目录一览： VBS向女生表白编码万分感谢
菜鸟写了两个小时，如下
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否当我的女朋友，否则会被关机......"" ",0 ,true
dim a
do while (a <> "愿意")
a = inputbox ("你愿意当我的女朋友吗","爱的表白","",8000,7000)
if ( a <> "愿意" ) then
msgbox "不愿意么？再考虑一下哦"
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox "嘿嘿嘿"
msgbox "叫我老公"
msgbox "快点"
dim b
do while (a <> "老公")
a = inputbox ("叫吧","叫的你就是我老婆了","",8000,7000)
if ( a <> "老公" ) then
msgbox "不愿意叫吗？再考虑一下哦"
end if
loop
msgbox "老婆~"
msgbox "mua~"
msgbox "爱你"
msgbox "嘿嘿"
文字都可随便替换，同时msgbox为弹窗，是可以增加，删除的
msgbox"我喜欢你很久了"
x=msgbox("做我女朋友好吗？",vbyesno)
if x=vbno then
do
msgbox"我妈会游泳!"
msgbox"零食全给你吃!"
msgbox"家务我来做!"
msgbox"房产证上写你名字！"
y=msgbox("所以，做我女朋友好吗？",4+64,"好不好")
if y=vbyes then
msgbox"目标已拿下"
exit do
end if
loop
else
msgbox"目标已拿下"
end if
自己做的，如何？
表白的代码是什么？
表白代码大全可复制免费
表白代码大全可复制免费，用代码表白是一件非常浪漫的事情，只需要短短的一行代码,就可以制作生活中的惊喜和小浪漫，但是设置代码是需要技巧的，以下分享表白代码大全可复制免费。
表白代码大全可复制免费1 1.发送xoxO(会出现满屏亲亲)
2.发送mi manchi(会出现满屏小星星)
3.发送ohh(翻译:留在我身边)
4.发送ch will mit dir S wim(翻译:我想和你在一起)
5.发送Voce e meu bebe(翻译:你是我的宝贝)
6.发送 RUYDUAautrinuU(翻译我只喜欢你)
7.发送 love at first sight(翻译:—见钟情)
8.发送We will be happy(我们会幸福)
9.发送missu(会出现星星雨)
10.发送u621u7231u460(翻译:爱你)
11.发送u5728u4e0Ou8d7Nu5427(翻译在一起)
12.发送Milji pouze jednu osobu, ta osoba jste vy.我只爱一个人,那个人就是你)
13.发送 yax you(翻译我跟你说)发送yyyax you翻译我喜欢你)发送 yox you!(我爱死你了)
14.n 55 iw!(倒过来是i miss you我想你。)
15.我想要两颗西柚("1 wanttoseeyou"我想要见你)
16.962464(用九宫格输入试试)
17.Mg+Znso4==MgSo4+zn(你的镁夺走了我的锌）
18.Te echo de menos(微信翻译:我想你)
19.双木非林田下有心(相思)
20.n.nggui(倒过来看就是ineedyoy我需要你)
表白代码大全可复制免费2 程序员的表白代码
第一条语言：Java代码翻译：直到死之前，每天爱你多一点代码：while(lifeend){love++;}
第二条语言：C语言代码翻译：IcannotsayHellototheWorldwithoutu.代码：#incldestdio.hintmain(){printf(HelloWorldn);retrn0;}//IcannotsayHellototheWorldwithoutu.
第三条语言：python代码翻译：山无陵，江水为竭，冬雷震震，夏雨雪，天地合，乃敢与君绝！代码：if(mountain.arris==None):if(river.water==None):if(winter.thunder==True):if(summer.snow==
True):if(sky.height==ground.height):i.withyou=Falseelse:i.withyou=True.
第四条语言：Erlang代码代码翻译：深圳相遇，至死不渝代码：-module(you_and_me).-export([start/1]).-record(person,{name,address,status}).start(Name)-one_world(Name).one_world(Name)keep_to_love_you(Person).say_goodbye(Person)-io:format(~p:seeyounextworld!~n,[Person#person.name]).see_you_next_world(Name)-one_world(Name).
第五条语言：Java语言代码翻译：爱你到天荒地老代码：while(!world.destroy){System.out.println(iloveyou);}
表白代码大全可复制免费3 第一条
语言：Java
代码翻译：
直到死之前，每天爱你多一点
代码：
while (life < end) {
love++;
}
// I can not say Hello to the World without u.
第二条
语言：python
代码翻译：
山无陵， 江水为竭， 冬雷震震， 夏雨雪， 天地合， 乃敢与君绝！
代码：
if(mountain.arris==None):
if(river.water==None):
if(winter.thunder==True):
if(summer.snow==True):
if(sky.height==ground.height):
i.withyou=False
else:
i.withyou=True
one_world(Name).
第三条
语言：Java语言
代码翻译：
爱你到天荒地老
代码：
while(!world.destroy){
System.out.println("i love you");
}
第四 条
语言：C语言
代码翻译：
两隔的`世界;
无名的信件;
短暂的停留;
长久的记忆;
说这么多，只是想说：我想你了。
代码：
#include
int main()
{
double world;
unsigned letter;
short stay;
long memories;
printf("I miss you. ");
return 0;
}
各位大神帮帮忙用VB编一个表白程序，最好能带点惊喜的
这个题 实话说没有难度，只是做个程序，编译成EXE，加入开机运行，就可以了。
程序员教你用代码写一个表白脚本，追女神就靠它了！
如何用vb编写个表白程序
非常简单
打开记事本，输入如下代码：
createobject("SAPI.SPVoice").speak"我爱你"
createobject("SAPI.SPVoice").speak"爱你一生一世"
其中，引号内的中文内容可以自定义。
另存为vbs文件即可。
简单啊~
打开VB新建一个exe工程；
按下F7打开代码窗体；
写入以下代码并生成exe发送给对方即可。
Private Sub Form_Load() MsgBox "I love you~" MsgBox "真的！" MsgBox "..."End SubMsgBox请自由更改以及添加，想说多少加多少。
表白代码大全可复制免费
1.发送xoxO(会出现满屏亲亲) 2.发送mi manchi(会出现满屏小星星) 3.发送ohh(翻译:留在我身边) 4.发送ch will mit dir S wim(翻译:我想和你在一起) 5.发送Voce e meu bebe(翻译:你是我的宝贝) 6.发送 RUYDUAautrinuU(翻译我只喜欢你) 7.发送 love at first sight(翻译:—见钟情) 8.发送We will be happy(我们会幸福) 9.发送missu(会出现星星雨) 10.发送u621u7231u460(翻译:爱你) 11.发送u5728u4e0Ou8d7Nu5427(翻译在一起) 12.发送Milji pouze jednu osobu, ta osoba jste vy.我只爱一个人,那个人就是你) 13.发送 yax you(翻译我跟你说)发送yyyax you翻译我喜欢你)发送 yox you!(我爱死你了) 14.n 55 iw!(倒过来是i miss you我想你。) 15.我想要两颗西柚("1 wanttoseeyou"我想要见你) 16.962464(用九宫格输入试试) 17.Mg+Znso4==MgSo4+zn(你的镁夺走了我的锌） 18.Te echo de menos(微信翻译:我想你) 19.双木非林田下有心(相思) 20.n.nggui(倒过来看就是ineedyoy我需要你) 表白代码大全可复制免费2 程序员的表白代码 第一条语言：Java代码翻译：直到死之前，每天爱你多一点代码：while(lifeend){love++;} 第二条语言：C语言代码翻译：IcannotsayHellototheWorldwithoutu.代码：#incldestdio.hintmain(){printf(HelloWorldn);retrn0;}//IcannotsayHellototheWorldwithoutu. 第三条语言：python代码翻译：山无陵，江水为竭，冬雷震震，夏雨雪，天地合，乃敢与君绝！代码：if(mountain.arris==None):if(river.water==None):if(winter.thunder==True):if(summer.snow== True):if(sky.height==ground.height):i.withyou=Falseelse:i.withyou=True. 第四条语言：Erlang代码代码翻译：深圳相遇，至死不渝代码：-module(you_and_me).-export([start/1]).-record(person,{name,address,status}).start(Name)-one_world(Name).one_world(Name)keep_to_love_you(Person).say_goodbye(Person)-io:format(~p:seeyounextworld!~n,[Person#person.name]).see_you_next_world(Name)-one_world(Name). 第五条语言：Java语言代码翻译：爱你到天荒地老代码：while(!world.destroy){System.out.println(iloveyou);} 表白代码大全可复制免费3 第一条 语言：Java 代码翻译： 直到死之前，每天爱你多一点 代码： while (life < end) { love++; } // I can not say Hello to the World without u. 第二条 语言：python 代码翻译： 山无陵， 江水为竭， 冬雷震震， 夏雨雪， 天地合， 乃敢与君绝！ 代码： if(mountain.arris==None): if(river.water==None): if(winter.thunder==True): if(summer.snow==True): if(sky.height==ground.height): i.withyou=False else: i.withyou=True one_world(Name). 第三条 语言：Java语言 代码翻译： 爱你到天荒地老 代码： while(!world.destroy){ System.out.println("i love you"); } 第四 条 语言：C语言 代码翻译： 两隔的`世界; 无名的信件; 短暂的停留; 长久的记忆; 说这么多，只是想说：我想你了。 代码： #include int main() { double world; unsigned letter; short stay; long memories; printf("I miss you. "); return 0; }
各位大神，我想用VB编写一个程序来表白，希望可以帮我，成人之美功德无量呀，谢啦！！！
方法：
先将要轮流显示的图片编辑好，建议图片尺寸设置为一致！并转换为BMP格式的图片！
打开VB,新建工程,单击窗体中【外接程序】=>【外接程序管理器】=>选择【VB 资源管理器】，并加载它！
将图片添加进VB 资源管理器里面，文件的ID依次是 101 102 103 .... ...
在工程项目中添加两个窗体,分别为 Form1 Form2
在Form1窗体中添加一个Command控件, 并在窗体中添加如下代码:
Private Sub Command1_Click()
Form2.Show
End Sub
在Form2窗体中添加一个Timer控件,一个PictureBox控件,并在窗体中添加如下代码:
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 2000 '延时2000ms
i = 1
End Sub
Private Sub Timer1_Timer()
Picture1.Picture = LoadResPicture(100 + i, vbResBitmap)
i = i + 1
If i = 6 Then i = 1 ' 数字6是代表有6张图片
End Sub
这样就按照你的要求做出一个每两秒钟就自动循环更换图片的程序了!
抖音上的表白代码是什么 抖音表白代码自动生成方法
最近，抖音DJ上流行起了许多表白的套路，最有意思的就是DJ抖音网表白代码了。那抖音上的表白代码有哪些_怎么弄呢？下面来具体了解下DJ抖音网表白代码设置生成方法吧。
抖音表白代码怎么设置
方法一
msgbox("做我女朋友好吗?")
msgbox("房产证写你名字...")
msgbox("保大...")
msgbox("我妈会游泳..")
x=msgbox("做我女朋友好不好"，VbOkCancel)
if x=VbOk then
msgbox("爱你，么么哒")
elseif x=VbCancel then
msgbox("哼，再见")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"
end if
使用方法：将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，如果会弹出如下面的弹窗，就表明成功了。大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。
方法二
直接在电脑上打开一个记事本
输入一下内容
asgbox(“做我女朋友好吗?”)
hsgbox("房产证上写称名”)
asgbox("保大”)
hsgbox("我妈会游泳)1
文字可以任意输入
保存在桌面上
将记事本的后缀改成.vbs，效果如下图，打开文本即可跳出对话框界面
表白代码大全 抖音vbs表白代码怎么用
步骤一：在电脑上新建一个txt文件。
步骤二：打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。
do
msgbox"我爱你"
loop
步骤三：点文件/另存为，然后输入你想改的名字，然后把后缀名改成.vbs，再在下面那个框框选择所有文件。保存到桌面。
步骤四：把所有的安全卫士关了。然后双击之前做的程序就行了。
请采纳，谢谢！
抖音上的表白代码是什么 抖音表白代码怎么写
以前大家总说工科生不懂浪漫，但最近DJ抖音网很流行用代码来表白，将代码编写好，然后将文档发给要表白的对象，然后就可以等着对方进入你的表白套路了。其实这是弹窗表白的代码不是很复杂，一般人按照步骤来都可以做到，下面就来看看具体的步骤：
1、KS97新建一个文本 输入代码
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("wscript.shell")
ws.run"cmd.exe /cshutdown-s -f -t 0"
end if
使用方法：将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，如果会弹出如下面的弹窗，就表明成功了。大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。
方法二
直接在电脑上打开一个记事本
输入一下内容
asgbox(“做我女朋友好吗?”)
hsgbox("房产证上写称名”)
asgbox("保大”)
hsgbox("我妈会游泳)1
文字可以任意输入
保存在桌面上
将记事本的后缀改成.vbs，效果如下图，打开文本即可跳出对话框界面