按下F7打开代码窗体写入以下代码并生成exe发送给对方即可Private Sub Form_Load MsgBox quotI love you~quot MsgBox quot真的quot MsgBox quotquotEnd SubMsgBox请自由更改以及添加，想说多少加多少。

WSHshellArun quotcmdexe c shutdown r t 180 c quotquot三分钟内决定是否当我的女朋友，否则会被关机quotquot quot，0 ，true dim a do while a lt quot愿意quota = inputbox quot你愿意当我的女朋友吗quot，quot爱的表白quot。

这个题 实话说没有难度，只是做个程序，编译成EXE，加入开机运行，就可以了。

抖音表白代码怎么写 方法一 msgboxquot做我女朋友好吗？quotmsgboxquot房产证写你名字quotmsgboxquot保大quotmsgboxquot我妈会游泳quotx=msgboxquot做我女朋友好不好quot，VbOkCancelif x=VbOk then msgboxquot爱你，么么哒quot。

if x=VbOk then msgboxquot爱你，么么哒quotelseif x=VbCancel then msgboxquot哼，再见quotset ws=createobjectquotwshellquotwsrunquotcmdexe c shutdown s f t 0quotend if 制作使用的方法跟刚才表白示例是一样的。

Private Sub Form_LoadDim i， k Dim m As Byte Dim prew As Long， preh As Long， pret As Long Dim h As Long， w As Long ScreenDC = GetWindowDC0ScreenW = ScreenWidth ScreenTwipsPerPixelX。

抖音表白代码怎么设置 方法一 msgboxquot做我女朋友好吗？quotmsgboxquot房产证写你名字quotmsgboxquot保大quotmsgboxquot我妈会游泳quotx=msgboxquot做我女朋友好不好quot，VbOkCancelif x=VbOk then msgboxquot爱你，么么哒。

打开记事本，复制粘贴以下内容doa=msgboxquot嫁给我，是否同意quot，36，quot我爱你quotloop until a = vbYesmsgbox quot我爱你宝贝quot点击文件，另存为，文件名输入“lovevbs”不含隐含，保存类型选所有文件保存即可。

msgbox quot你好quot #39弹提示框print quot你好quot #39打印到界面sendkeys quot你好quot #39向当前有焦点的程序发送字符串不知道是不是你要的“输出文字”，反正常见的“输出文字”也就如上几种了。

这与男生女生没啥关系，只是三个控件在两个Timer控件联合控制下在窗体从左移动到右，然后再从右移动到左边，仅此而已。

本题最后一行是说文本文件的9行数据为3 4 6 8 1 2 5 9 3 根据程序代码执行的流程，对变量x，y，z跟踪如下首先y = 0，x = CDblsrReadLine这里读取文件的第一行，保存到变量x，所以x = 3 执行循环。

第一题Private Sub Form_ClickDim x As Double， Y As Double x = InputBoxquot请输入当前顾客购买鸡蛋的重量以公斤为单位quotIf x lt 3 Then Y = 76 * x Else Y = 76 * x * 08 End If Print。

PrivateSubForm_LoadMeWidth=4500MeHeight=4500 MeMoveScreenWidthMeWidth\2，ScreenHeightMeHeight\2 MeAutoRedraw=True MeCaption=quotCBM666的万花筒quotSetTimer1=ControlsAddquotvbtimerquot，quotTimer1quot。

先在程序中加一个Label，名字应该符合VB程序控件命名规范lbllt名称 再加一个Timer控件，名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_LoadOn Error Resume Next MeFont = quotArialquotMeFontSize = 24。

Dim i As Integer For i = 1 To N If i Mod 2 = 0 Then Num = Num + i End If Next i Label1captain = Num 或者是 Dim x As Long， y As Long， sumX As Long， sumY As Long x = ValInputBox。