情人节——vbs的学习(句子、情话)
一、藏匿情话
按Ctrl + F
,再输入9
99669999996669999996699666699666999966699666699
99699999999699999999699666699669966996699666699
99669999999999999996699666699699666699699666699
99666699999999999966666999966699666699699666699
99666666999999996666666699666699666699699666699
99666666669999666666666699666669966996699666699
99666666666996666666666699666666999966669999996
二、vbs脚本表白代码
代码1:做我女朋友非同意不可
msgbox ("我有一件事想跟你说"),vbQuestion,("在吗?")
msgbox ("自从第一天遇见你,我便对你难以忘怀了!")
msgbox ("做我女朋友好吗?")
msgbox ("房产写你名字")
msgbox ("保大")
msgbox ("我妈会游泳")
dim j
do while j<1
Select Case msgbox("做我女朋友好吗?",68,"请郑重的回答我!")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox("我就知道你会同意的,哈哈哈哈!!")
代码2:做我女朋友不同意就关机
msgbox("你不知道,这个代码我早已写好,直到今天才有勇气发给你。请你点击确定,耐心的看完!")
msgbox("曾几何时,我一直以为自己是一艘船。木已成舟,不知何时靠岸?")
msgbox("但自从遇到你,我的罗盘就开始不停地打转。")
msgbox("我在海里徘徊,")
msgbox("我在礁石附近游荡,")
msgbox("最终,我还是搁浅在了你的岸边。")
x=msgbox("我不想再孤独下去,做我女朋友吧!",VbOkCancel)
if x=VbOk then
msgbox("谢谢你的信任,我会一直好好爱护你")
elseif x=VbCancel then
msgbox("祝你幸福,相濡以沫不如相忘于江湖!")
msgbox("电脑将会关机,再见!")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"
end if
代码3:做我女朋友,即使不同意因为更爱你所以撤销关机
Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url")
oShellLink.Save
se_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑!!!"))
If se_key=6 Then
MsgBox "谢谢你给了我这次机会,I Love You",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜欢你!求你了,别拒绝我,好吗?是=同意 否=拒绝",4,"别拒绝我,好吗?"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "谢谢你给了我这次机会,I Love You",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉,那祝你能找到自己喜欢的人,若可回头,记住,我在你身后一直等你!--爱你的人",64,"祝你幸福!!"
seven.Run "shutdown.exe -a"
MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!"
End If
End If
代码4:爱情测试
const title = "爱情测试"
const yourname = "王冰冰"
const question = "你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。"
const info = "你在说谎!不要逃避,实话实说。"
const scend = "你说出了你的心扉,那就向他(她)表白吧。"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title
代码5:求对象原谅
msgbox"亲爱的不要生气了好不好"
msgbox"我已经深刻的认识到自己的错误了"
msgbox"但请相信我,我并不是有意的"
msgbox"能原谅我吗?亲爱的。"
dim i
do while i<1
Select Case msgbox("如果原谅我了请点是",68,"")
Case 6 i=1
Case 7
msgbox"你再考虑一下呗,我向你保证,以后绝对不会再犯了!"
end Select
loop
msgbox"谢谢亲爱的你原谅我,mua~"
vbs脚本创建
三、web网页表白程序
网页表白制作可以参考下这位大佬的博客,写的很好!点我
四、C语言表白代码
代码1:I LOVE U
#include<stdio.h>
#include<math.h>
int main()
{
float y, x, z;
printf("那一天\n");
printf("第一次遇见你\n");
printf("忘不了\n");
printf("你的容颜\n");
printf("若轻云之蔽月,如流风之回雪\n");
printf("\n\n\n");
printf("其实\n");
printf("有一句话\n");
printf("我一直想对你说:\n");
for (double y = 2.5; y >= -1.6; y = y - 0.2)
{
for (double x = -3; x <= 4.8; x = x + 0.1)
{
(pow((x * x + y * y - 1), 3) <= 3.6 * x * x * y * y * y
|| (x > -2.4 && x < -2.1 && y<1.5 && y>-1)
|| (((x < 2.5 && x>2.2) || (x > 3.4 && x < 3.7)) && y > -1 && y < 1.5)
|| (y > -1 && y < -0.6 && x < 3.7 && x>2.2)) ? printf("*") : printf(" ");
}
printf("\n");
}
getchar();
}
那一天
第一次遇见你
忘不了
你的容颜
若轻云之蔽月,如流风之回雪
其实
有一句话
我一直想对你说:
*** ***** ***** *** ***
*** ********** ********** *** ***
*** ************* ************* *** ***
*** *************************** *** ***
*** *************************** *** ***
*** ************************* *** ***
*** *********************** *** ***
*** ********************* *** ***
*** ******************* *** ***
*** *************** *** ***
*** *********** *** ***
*** ***** ***************
*** * ***************
代码2:我真挚的心
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
int main()
{
char answer[4];
printf("遇到你\n我才发现\n曾经所有的条件\n似乎都成了我等你的借口\n\n");
printf("我对你的感情已经决堤\n所以\n请允许我,从今往后映入你\n明媚的眼\n");
printf("我\n想和你\n耳鬓厮磨,相濡以沫!\n\n");
printf("答应我吧!\n\n输入yes,你可以看到我的真心!\n\n");
scanf("%s", &answer);
float y, x, z, f;
for (y = 1.5f; y > -1.5f; y -= 0.1f)
{
for (x = -1.5f; x < 1.5f; x += 0.05f)
{
z = x * x + y * y - 1;
f = z * z * z - x * x * y * y * y;
putchar(f <= 0.0f ? "*********"[(int)(f * -8.0f)] : ' ');
}
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;
}
遇到你
我才发现
曾经所有的条件
似乎都成了我等你的借口
我对你的感情已经决堤
所以
请允许我,从今往后映入你
明媚的眼
我
想和你
耳鬓厮磨,相濡以沫!
答应我吧!
输入yes,你可以看到我的真心!
yes
********* *********
***************** *****************
****************************************
*******************************************
*********************************************
*********************************************
*********************************************
*********************************************
*********************************************
*********************************************
*******************************************
*****************************************
****************************************
*************************************
***********************************
*********************************
*****************************
*************************
*********************
***************
*********
***
五、代码情话
1、你的一句明天见,偷走了我整晚的睡眠
2、意见一致的时候听我的,不同的时候听女朋友的
3、山无陵, 江水为竭, 冬雷震震, 夏雨雪, 天地合, 乃敢与君绝!
4、春风十里不如你
5、直到死之前,每天爱你多一点
6、没有你,我就没办法对世界说"你好"
7、如果你觉的我是一个有趣的人,我想那是最好不过的了
8、清醒点,别做梦了
六、matlab表白代码
代码1:心形520表白代码
function [ output_args ] = Untitled( input_args )
%UNTITLED Summary of this function goes here
% Detailed explanation goes here
% Creat by 三天后的承诺
axis equal;
grid on;
axis square;
axis on;
box on;
axis([-13,13,-13,13]); %建立27*27的方格图
set(gca,'xtick',-13:1:13,'ytick',-13:1:13,'xcolor','r','ycolor','r'); %方格图设置为红色细线型
set(gca,'xcolor',[240/255,240/255,240/255]); %颜色减淡与y轴平行的线
set(gca,'ycolor',[240/255,240/255,240/255]); %颜色减淡与x轴平行的线
set(gca,'color','k'); %底色设置为黑色
set(gca,'color',[140/255,169/255,192/255]); %隐藏底色
hold on;
%----------------心轮廓------------------
scatter(0,4,200,'filled','sk');pause(0.5); %(0,4)黑色
scatter([-1,1],[5,5],200,'filled','sk');pause(0.5);
scatter([-2,2],[6,6],200,'filled','sk');pause(0.5);
scatter([-3,3],[7,7],200,'filled','sk');pause(0.5);
scatter([-4,4],[7,7],200,'filled','sk');pause(0.5);
scatter([-5,5],[7,7],200,'filled','sk');pause(0.5);
scatter([-6,6],[7,7],200,'filled','sk');pause(0.5);
scatter([-7,7],[6,6],200,'filled','sk');pause(0.5);
scatter([-8,8],[5,5],200,'filled','sk');pause(0.5);
scatter([-9,9],[4,4],200,'filled','sk');pause(0.5);
scatter([-9,9],[3,3],200,'filled','sk');pause(0.5);
scatter([-9,9],[2,2],200,'filled','sk');pause(0.5);
scatter([-9,9],[1,1],200,'filled','sk');pause(0.5);
scatter([-8,8],[0,0],200,'filled','sk');pause(0.5);
scatter([-7,7],[-1,-1],200,'filled','sk');pause(0.5);
scatter([-6,6],[-2,-2],200,'filled','sk');pause(0.5);
scatter([-5,5],[-3,-3],200,'filled','sk');pause(0.5);
scatter([-4,4],[-4,-4],200,'filled','sk');pause(0.5);
scatter([-3,3],[-5,-5],200,'filled','sk');pause(0.5);
scatter([-2,2],[-6,-6],200,'filled','sk');pause(0.5);
scatter([-1,1],[-7,-7],200,'filled','sk');pause(0.5);
scatter(0,-8,200,'filled','sk');pause(0.5);
%------------------end------------------
%-----------------心填充----------------
scatter(0,-7,200,'filled','sr');pause(0.5);
scatter([-1:1],[zeros(1,3)-6],200,'filled','sr');pause(0.5);
scatter([-2:2],[zeros(1,5)-5],200,'filled','sr');pause(0.5);
scatter([-3:3],[zeros(1,7)-4],200,'filled','sr');pause(0.5);
scatter([-4:4],[zeros(1,9)-3],200,'filled','sr');pause(0.5);
scatter([-5:5],[zeros(1,11)-2],200,'filled','sr');pause(0.5);
scatter([-6:6],[zeros(1,13)-1],200,'filled','sr');pause(0.5);
scatter([-7:7],[zeros(1,15)],200,'filled','sr');pause(0.5);
scatter([-8:8],[zeros(1,17)+1],200,'filled','sr');pause(0.5);
scatter([-8:8],[zeros(1,17)+2],200,'filled','sr');pause(0.5);
scatter([-8:8],[zeros(1,17)+3],200,'filled','sr');pause(0.5);
scatter([-8:-1,1:8],[zeros(1,16)+4],200,'filled','sr');pause(0.5);
scatter([-7:-2,2:7],[zeros(1,12)+5],200,'filled','sr');pause(0.5);
scatter([-6:-3,3:6],[zeros(1,8)+6],200,'filled','sr');pause(0.5);
%-----------520--------
%----------520同时展开-----
scatter([-3,-1,3],[3,3,3],200,'filled','sw');pause(0.5);
scatter([-4,0,4],[3,3,3],200,'filled','sw');pause(0.5);
scatter([-5,1,5],[3,3,3],200,'filled','sw');pause(0.5);
scatter([-5,1,5],[2,2,2],200,'filled','sw');pause(0.5);
scatter([-5,1,5],[1,1,1],200,'filled','sw');pause(0.5);
scatter([-4,0,5],[1,1,0],200,'filled','sw');pause(0.5);
scatter([-3,-1,5],[1,1,-1],200,'filled','sw');pause(0.5);
scatter([-3,-1,4],[0,0,-1],200,'filled','sw');pause(0.5);
scatter([-3,-1,3,3],[-1,-1,-1,0],200,'filled','sw');pause(0.5);
scatter([-4,0,3],[-1,-1,1],200,'filled','sw');pause(0.5);
scatter([-5,1,3],[-1,-1,2],200,'filled','sw');pause(0.5);
%-----------520单独展开----
%-----------5----------
% scatter(-3,3,200,'filled','sw');pause(0.5);
% scatter(-4,3,200,'filled','sw');pause(0.5);
% scatter(-5,3,200,'filled','sw');pause(0.5);
% scatter(-5,2,200,'filled','sw');pause(0.5);
% scatter(-5,1,200,'filled','sw');pause(0.5);
% scatter(-4,1,200,'filled','sw');pause(0.5);
% scatter(-3,1,200,'filled','sw');pause(0.5);
% scatter(-3,0,200,'filled','sw');pause(0.5);
% scatter(-3,-1,200,'filled','sw');pause(0.5);
% scatter(-4,-1,200,'filled','sw');pause(0.5);
% scatter(-5,-1,200,'filled','sw');pause(0.5);
% %-----------2---------------
% scatter(-1,3,200,'filled','sw');pause(0.5);
% scatter(0,3,200,'filled','sw');pause(0.5);
% scatter(1,3,200,'filled','sw');pause(0.5);
% scatter(1,2,200,'filled','sw');pause(0.5);
% scatter(1,1,200,'filled','sw');pause(0.5);
% scatter(0,1,200,'filled','sw');pause(0.5);
% scatter(-1,1,200,'filled','sw');pause(0.5);
% scatter(-1,0,200,'filled','sw');pause(0.5);
% scatter(-1,-1,200,'filled','sw');pause(0.5);
% scatter(0,-1,200,'filled','sw');pause(0.5);
% scatter(1,-1,200,'filled','sw');pause(0.5);
% %-------------0-------------------
% scatter(3,3,200,'filled','sw');pause(0.5);
% scatter(4,3,200,'filled','sw');pause(0.5);
% scatter(5,3,200,'filled','sw');pause(0.5);
% scatter(5,2,200,'filled','sw');pause(0.5);
% scatter(5,1,200,'filled','sw');pause(0.5);
% scatter(5,0,200,'filled','sw');pause(0.5);
% scatter(5,-1,200,'filled','sw');pause(0.5);
% scatter(4,-1,200,'filled','sw');pause(0.5);
% scatter(3,-1,200,'filled','sw');pause(0.5);
% scatter(3,0,200,'filled','sw');pause(0.5);
% scatter(3,1,200,'filled','sw');pause(0.5);
% scatter(3,2,200,'filled','sw');pause(0.5);
%-----------------end-----------------
%------------------箭-----------------
% scatter(-12,-12,200,'filled','sb');pause(0.5);
% scatter(-11,-11,200,'filled','sb');pause(0.5);
scatter(-10,-10,200,'filled','sb');pause(0.5);
scatter(-9,-9,200,'filled','sb');pause(0.5);
scatter(-8,-8,200,'filled','sb');pause(0.5);
scatter(-7,-7,200,'filled','sb');pause(0.5);
scatter(-6,-6,200,'filled','sb');pause(0.5);
scatter(-5,-5,200,'filled','sb');pause(0.5);
scatter(7,7,200,'filled','sb');pause(0.5);
scatter(8,8,200,'filled','sb');pause(0.5);
scatter(9,9,200,'filled','sb');pause(0.5);
scatter(10,10,200,'filled','sb');pause(0.5);
scatter(11,11,200,'filled','sb');pause(0.5);
scatter([10,11],[11,10],200,'filled','sb');pause(0.5);
scatter([9,11],[11,9],200,'filled','sb');pause(0.5);
scatter([8,11],[11,8],200,'filled','sb');pause(0.5);
scatter([7,11],[11,7],200,'filled','sb');pause(0.5);
end
代码2:爱心
clear;clc;%清空工作区以及命令行窗口
n=200;%一共有200个点
x=linspace(-1.5,1.5,n);%均分计算指令,用于产生[-1.5,1.5]之间的200点行线性的矢量。
y=linspace(-1.5,1.5,n);
z=linspace(-1.5,1.5,n);
[X,Y,Z]=meshgrid(x,y,z);%生成三维数组200*200*200,用来计算三变量的函数和绘制三维立体图
F=((-(X.^2).*(Z.^3)-(9/80).*(Y.^2).*(Z.^3))+0.5.*((X.^2)+(Y.^2)+(Z.^2)-1).^3);%心形线公式
isosurface(F,0)%从三维体数据中提取等值面数据
camlight right;%可以设置光源位置
lighting phong%在对象的每个面上产生均匀分布的光照,phong使图表面光滑细腻,色彩丰富
colormap('autumn');%将当前图窗的颜色图设置为autumn指定的颜色图
caxis([0,25])%设置颜色图的范围
grid on%添加网格
axis equal%设置坐标轴范围和纵横比
title('To:丰')
view(-40,15);%指定观看图的角度
代码2:玫瑰
%% 主函数
clear;clc;
t=0:0.001*pi:2*pi;% 控制玫瑰花瓣网格,步长越小,越光滑
for i=1:5%设置另一个变量
r(i,:)=i-0.9:0.1:i+0.1;
end
%绘制花瓣
for i=1:5%控制花瓣层数
a=r(i,:);
b=t;
[a,b]=meshgrid(a,b);%将变量一一对应
z=(log(a)+5).*Petal(5*b+pi*i).*abs(sin(pi*a));%图形的公式
[x,y,z]=pol2cart(b,a,z);%将变量一一对应
C(:,:,1) = ones(size(z)); % red
C(:,:,2) = zeros(size(z)); % green
C(:,:,3) = zeros(size(z)); % blue 根据三原色控制红色最大
mesh(x,y,z,C)%surf的第四个变量控制颜色
hold on
end
%% 绘制花托
[xx,yy]=meshgrid(-5:0.1:5);
h=2*cos((xx.^2+yy.^2).^0.5)-0.64;%图形公式
%% 根据三原色将绿色设为最大
CO(:,:,1) = zeros(size(h));
CO(:,:,2) = ones(size(h));
CO(:,:,3) = zeros(size(h));
mesh(xx,yy,h,CO);%surf的第四个变量控制颜色
hold on%继续绘图
camlight right;%可以设置光源位置
lighting phong%设置光照
view(-50,45);%设置观看角度
set(gcf,'color','[1 1 1]')%将背景设置为白色
hold off%不再继续绘图
axis off%隐藏坐标轴
%% 画花瓣的函数
function y=Petal(x)
%% 花瓣函数,绘制花瓣
[m n]=size(x);%创建大小为x的行向量
for i=1:m%控制循环几次函数
for j=1:n%控制进行几次判断
if rem(x(i,j),2*pi)>=0&&rem(x(i,j),2*pi)<0.5*pi%控制进行那个表达式
y(i,j)=sin(2*x(i,j)-0.5*pi)+1;
elseif rem(x(i,j),2*pi)>=0.5*pi&&rem(x(i,j),2*pi)<1.5*pi
y(i,j)=2;
elseif rem(x(i,j),2*pi)>=1.5*pi&&rem(x(i,j),2*pi)<2*pi
y(i,j)=-cos(2*x(i,j))+1;
end
end
end
代码3:I Love You
%% 画中间的爱心
[x,y,z]=meshgrid(-1.5:0.02:1.5);%生成三维数组
v=(x.^2+9/4*y.^2+z.^2-1).^3-x.^2.*z.^3-9/80*y.^2.*z.^3; %心形线公式
p=isosurface(x,y,z,v,0); %做出函数图像
patch(p,'edgecolor','none','facecolor','w'); %把上图绘制的图像作为补丁放于绘制出的坐标轴中央
%% 可视化三元标量函数
%x,y,z,f共同指明了一个三元标量函数。x,y,z为三维自变量网格,
%一般用meshgrid函数生成,f为三维数组,代表网格中每一点处的函数值
h=contourslice(x,y,z,v,-1.5:0.3:1.5,-1.5:0.3:1.5,-1.5:0.3:1.5,[0 0]);
%% 设置图形的线的宽度,颜色
set(h,'linewidth',2,'edgecolor','r');
view([-37.5 30]);%设置观看的角度
axis equal%设置坐标轴范围
hold on %继续绘图
%% 绘制 I
text(-3,0,1,'I','FontSize',140,'Color','r','FontName','TimesNewRoman','FontAngle','italic');%设置字体,大小,斜体
%% 绘制U
text(2.5,0,0,'U','FontSize',140,'Color','r','FontName','TimesNewRoman','FontAngle','italic');
set(gcf,'color','[1 1 1]')%将背景设置为白色
hold off%不再继续绘图
axis off%隐藏坐标轴
说在后面的话
前天情人节,昨天才想起来写一些文件给“她”,今天才整理出来
面向对象面向君,不负代码不付卿。
https://blog.csdn.net/qq_40777436/article/details/107286090?spm=1001.2014.3001.5502
https://blog.csdn.net/qq_37925680/article/details/115195920?spm=1001.2014.3001.5502
https://blog.csdn.net/weixin_50915462/article/details/113805008