求一个表白用的vb程序代码

答案:5 悬赏:0 手机版

解决时间 2021-04-02 02:11

提问者网友：泪痣哥哥
2021-04-01 20:54

求一个表白用的vb程序代码

最佳答案

五星知识达人网友：撞了怀
2021-04-01 21:30

因为我的电脑上没有vb所以我用易语言代替，反正原理都是一样的。谢谢采纳

全部回答

1楼网友：爱难随人意
2021-04-02 01:23

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 "哈哈，我就是怎么强势","你就是猪”

2楼网友：舍身薄凉客
2021-04-01 23:48

简单啊~ 打开VB新建一个exe工程; 按下F7打开代码窗体; 写入以下代码并生成exe发送给对方即可。 Private Sub Form_Load() MsgBox "I love you~" ...

3楼网友：廢物販賣機
2021-04-01 23:08

$!$"
Print "*(^.^)*"
End Sub

4楼网友：玩家
2021-04-01 22:13

Private Sub Form_Load()
Me.AutoRedraw = True
Print "

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！