求一个表白用的vb程序代码 50
4个回答
展开全部
简单啊~ 打开VB新建一个exe工程; 按下F7打开代码窗体; 写入以下代码并生成exe发送给对方即可。 Private Sub Form_Load() MsgBox "I love you~" ...
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub Form_Load()
Me.AutoRedraw = True
Print "|||$!$"
Print "*(^.^)*"
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Option Explicit
On Error Resume Next
Dim answer
Dim WshShell
set WshShell = CreateObject
("wscript.shll")
WshShell.Run "Shutdown / f / s / t60 / c 输入'我很胖',负责60秒后关机~"，0
Do While answer<>"我很胖"
answer=InputBox("输入'我很胖',负责60秒后关机~","哈哈哈",7000,5000
Loop
WshShell.Run "Shutdown /a",0
Magbox "哈哈，我就是怎么强势","你就是猪”
On Error Resume Next
Dim answer
Dim WshShell
set WshShell = CreateObject
("wscript.shll")
WshShell.Run "Shutdown / f / s / t60 / c 输入'我很胖',负责60秒后关机~"，0
Do While answer<>"我很胖"
answer=InputBox("输入'我很胖',负责60秒后关机~","哈哈哈",7000,5000
Loop
WshShell.Run "Shutdown /a",0
Magbox "哈哈，我就是怎么强势","你就是猪”
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
