简单的vb编程表白代码,你会用Vb编程B编写爱心用符号“”

简单的vb编程表白代码,你会用Vb编程B编写爱心用符号“”详细介绍

本文目录一览： 如何用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请自由更改以及添加，想说多少加多少。

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
自己做的，如何？

各位大神帮帮忙用VB编一个表白程序，最好能带点惊喜的

这个题 实话说没有难度，只是做个程序，编译成EXE，加入开机运行，就可以了。
程序员教你用代码写一个表白脚本，追女神就靠它了！

各位大神，我想用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抖音网很流行用代码来表白，将代码编写好，然后将文档发给要表白的对象，然后就可以等着对方进入你的表白套路了。其实这是弹窗表白的代码不是很复杂，一般人按照步骤来都可以做到，下面就来看看具体的步骤：
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，效果如下图，打开文本即可跳出对话框界面

你会用Vb编程B编写爱心用符号“”

Private Sub form_Click()Print Tab(10); "**";Print Tab(20); "**", Print Tab(6); "*";Print Tab(14); "*";Print Tab(18); "*";Print Tab(25); "*", Print Tab(4); "*";Print Tab(15); "*";Print Tab(17); "*";Print Tab(27); "*", Print Tab(3); "*";Print Tab(16); "*";Print Tab(28); "*", Print Tab(3); "*";Print Tab(28); "*", Print Tab(4); "*";Print Tab(27); "*",Print Tab(5); "*";Print Tab(26); "*",Print Tab(7); "*";Print Tab(24); "*",Print Tab(9); "*";Print Tab(22); "*",Print Tab(11); "*";Print Tab(20); "*",Print Tab(13); "*";Print Tab(17); "*",Print Tab(15); "*",End Subhi。。。。

帮我编一个vb程序 用来表白的

Private Sub Command1_Click()
Static i As Integer
i = i + 1
If i = 1 Then
Label1.Caption = "我想告诉你一件事"
ElseIf i = 2 Then
Label1.Caption = "我爱你"
ElseIf i > 2 Then
Label1.Caption = "你进来看看"
i = i - 3
End If
End Sub
Private Sub Form_Load()
Label1.FontSize = 16
Label1.Caption = "你进来看看"
End Sub
使用语言：C++使用工具：vs2019
应室友要求,改了一点点,顺便再发上来:
在窗体上放一个label1,然后把原来所有的代码删掉,复制这里代码进去就可以了.嘿嘿,你要先试一下效果喔
错误?!不是说我的吧....你有没有先在窗口上放一个label1?
Private Sub Form_Load()
Dim i&, k&
Dim m() As Byte
Dim prew As Long, preh As Long, pret As Long
Dim h As Long, w As Long
ScreenDC = GetWindowDC(0)
ScreenW = Screen.Width / Screen.TwipsPerPixelX
ScreenH = Screen.Height / Screen.TwipsPerPixelY
ReDim m(ScreenW / 3, ScreenH / 3)
Label1.Visible = False
Me.ScaleMode = 3
Me.Show
pret = Me.Top: prew = Me.Width: preh = Me.Height
Me.Move Me.Left, Screen.Height * 2, Screen.Width / 3, Screen.Height / 3
DoEvents
Me.AutoRedraw = True
Label1.AutoSize = True

Label1 = YourWord
Label1.Font.Size = 100
Label1.Font.Size = Label1.Font.Size * (Me.ScaleWidth / Label1.Width) * BorderScale
Label1.Font.Size = Label1.Font.Size * (Me.ScaleWidth / Label1.Width) * BorderScale

Me.FontName = Label1.FontName
Me.FontSize = Label1.FontSize
Me.ForeColor = 0
CurrentX = (Me.ScaleWidth - Label1.Width) / 2
CurrentY = (Me.ScaleHeight - Label1.Height) / 2
Print Label1

For h = 1 To ScreenH / 3
For w = 1 To ScreenW / 3
If Point(w, h) = 0 Then
m(w, h) = 1
End If
Next w
Next h
Cls
SNOW_MAX = ScreenW * ScreenH \ SnowScale
ReDim Snow&(SNOW_MAX, 1), Last&(SNOW_MAX)
Randomize
For i = 0 To SNOW_MAX
NewSnow i
Snow(i, 1) = -Rnd * ScreenH
Next
Me.Move Me.Left, pret, prew, preh
Me.WindowState = 1

On Error Resume Next
Do
For i = 0 To SNOW_MAX
SetPixel ScreenDC, Snow(i, 0), Snow(i, 1), Last(i)
Snow(i, 0) = Snow(i, 0) + Rnd * FALL_SPEED - FALL_SPEED / 2
Snow(i, 1) = Snow(i, 1) + Rnd * FALL_SPEED
If Snow(i, 0) < 0 Or Snow(i, 0) > ScreenW Or Snow(i, 1) > ScreenH Then
NewSnow i
Else
k = Last(i)
Last(i) = GetPixel(ScreenDC, Snow(i, 0), Snow(i, 1))
SetPixel ScreenDC, Snow(i, 0), Snow(i, 1), SnowColor
If m(Snow(i, 0) / 3, Snow(i, 1) / 3) Then
If Rnd < SpotSpeed Then
If Rnd < 0.5 Then Last(i) = WordColor1 Else Last(i) = WordColor2

End If
End If

End If

Next
Sleep FALL_Interval&
DoEvents
If myend Then Exit Sub
Loop
End Sub
Private Sub NewSnow(i&)
Snow(i, 0) = Rnd * ScreenW
Snow(i, 1) = 0
Last(i) = GetPixel(ScreenDC, Snow(i, 0), 0)
End Sub
Private Function ColorDec(ByVal Color1&, ByVal Color2&) As Long
Dim R1%, G1%, B1%
Dim R2%, G2%, B2%
GetRGB Color1, R1, G1, B1
GetRGB Color2, R2, G2, B2
ColorDec = Abs(R1 - R2) + Abs(G1 - G2) + Abs(B1 - B2)
End Function
Private Sub GetRGB(ByVal Color&, ByRef r%, ByRef g%, ByRef b%)
r = (Color Mod 256)
b = (Int(Color \ 65536))
g = ((Color - (b * 65536) - r) \ 256)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
myend = True
DoEvents
DoEvents
End
End Sub

请帮我编一个稍微有点复杂的vb程序算出来结果要是520。我表白要用呢，跪求高手帮忙啊！！

Option Explicit
Private Sub Form_Click()
On Error Resume Next
Dim i As Integer, a As Integer
Randomize
Me.Caption = "正在生成随机数中 ...."
Do While Not a = 10000
a = a + 1
Print Int(Rnd * (800 - 200 + 1)) + 1
Loop
Cls
Print "520"
Me.Caption = "生成结束,最后得出:520"
End Sub

vb编程代码

以下是两个check的代码
Private Sub Check1_Click()
If Check2.Value = Unchecked And Check1.Value = Checked Then
Command1.Enabled = True
Else
If Check1.Value = Checked And Check2.Value = Checked Then

MsgBox "选了两个，我也不知道您想怎么样:( ！"
End If
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = Checked And Check1.Value = Unchecked Then
Command1.Enabled = False
Else
If Check1.Value = Checked And Check2.Value = Checked Then

MsgBox "选了两个，我也不知道您想怎么样:( ！"
End If
End If
End Sub
自己试试吧。把你想要的补上就行了。
如果仅要选择一项，建议你用option控件比较好。
Private Sub Check1_Click()
If Check1.Value = Checked Then
Check2.Value = UnChecked
Command1.Enabled = True
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = Checked Then
Check1.Value = Unchecked
Command1.Enabled = False
End If
End Sub
在属性设置里把这两个Radio Button设成同一个group就行了