急求一个vb程序软件，要求没有vb也能打开，内容是：你是不是猪，是就说：真聪明，不是就关机

用VB编一个问别人是不是猪，别人回答是，就说恭喜你答对了。答否就说笨的程序。 球写好的代码。。。。。。~

'置放一个 timer,名为timer1
'六十秒重新问一次，超整人
Private Sub Form_Load()
Dim a As String
Do
a = InputBox("你是猪吗？" & vbNewLine & "请回答是或否。", "考考你")
If a = "是" Then
MsgBox "恭喜你答对了", , "恭喜"
a = ""
Exit Do
ElseIf a = "否" Then
MsgBox "笨", , "笨"
a = ""
ElseIf a "是" And a "否" Then
MsgBox "答错了，请重新答题", , "重新答题"
a = ""
End If
Loop
Me.Visible = False
Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
a = ""
Call Form_Load
End Sub

你的command2_click()里没有给C赋值,当然不正确,事件的第一行加上
c = CInt(Text3.Text),就可以了,另外,不用设置标号1和2,这样写就可以:


Private Sub Command2_Click()
c = CInt(Text3.Text)
If c = Int(a + b) Then
Print "正确，你真聪明"
Else
Print "错误，再来一次吧"
End If
End Sub

VBS脚本，创建一个文本文件，复制粘贴如下代码，然后另存为1.vbs就行了

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是只猪，不说就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是只猪")
a = inputbox ("说我是只猪,就不关机，速度，说 ""我是只猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "哈哈你是只猪"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈"

哈哈,,,这个不错。。 在资料里找联系试吧，我有

太坏了吧

---

急求一个vb程序软件，要求没有vb也能打开，内容是：你是不是猪，是就说：真聪明，不是就关机视频