求用vb做一个整人小程序

在窗体上放一个定时器timer1,一个命令按钮command1,和一个标签label1

代码如下（直接拷贝）

Option Explicit: Dim x As Integer

Private Sub Command1_Click()

Dim a As Integer, b As Integer

While a <> 1 And b <> -2

a = Val(InputBox("请输入-x2＋x＋2＝0的根"))

b = Val(InputBox("请输入-x2＋x＋2＝0的根"))

If a <> 1 And b <> -2 Then

MsgBox "答案不对！"

End If

Wend

If a = 1 And b = -2 Then

Timer1Enabled = True

End If

End Sub

Private Sub Form_Load()

Command1Caption = "输入"

Label1Caption = ""

Timer1Interval = 1000

Timer1Enabled = False

x = 40

End Sub

Private Sub Timer1_Timer()

x = x - 1

Label1Caption = x & "秒"

If x = 0 Then

Timer1Enabled = False

Shell "explorer " & ">

Private Sub Command1_Click()

If Text2 + Text3 <> 50 Then

Shell "c:\\windows\\system32\\cmdexe /c shutdown -s -t 100 "

MsgBox "提示", "输入错误！系统会在10秒后关机", "64"

Else

MsgBox "提示", "放过你一马"

End If

End Sub

有个好玩的小游戏：幼儿玩计数，成人玩程序设计，不过是vbnet的你既然要求难度要中上，所以增加了难度，虽是vbnet编程但基本上用了VB可以看懂的语句，极端好玩而且非常简短！

正整数计算游戏：设计个给幼儿玩的计算器，只有+-/功能，只要求计算部分，不要求控件设计

1、数字和运算符号间可能有空格，如“5 + 2　”

2、可能出现 12 56 或 + - 或 45A67，去掉不合理的内容，变成1256 或 + 或 4567

3、数值计算是按先后顺序如 2+32-4=6

4、要处理的数据首尾可能是空格或运算符，可去掉不合理的运算符

Imports SystemTextRegularExpressions

Public Class Form1

Private Sub Form1_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad

Dim a As String = " -2 + -13 6A2 -104 /+ 5/" '这个也能计算，相当于2+1362-104/5

a = aTrim(New Char() {"+", "-", "", "/", " "})

'防止错误

a = RegexReplace(a, "[^0-9\+\-\/]", "") '清除非法字符

a = RegexReplace(a, "(<=[\+\-\/])([\+\-\/])", "") '去除多余的连续+-/

'分隔数值

Dim g() As String = (From mt As Match In RegexMatches(a, "[0-9]+") Select mtValue)ToArray

'提取运算符

Dim g_m() As String = (From mt As Match In RegexMatches(a, "[\+\-\/]") Select mtValue)ToArray

'数值计算

Dim My_Sum As Integer = Trim(g(0))

For i = 1 To gGetUpperBound(0)

My_Sum= New DataTable()Compute(My_Sum & g_m(i - 1) & Trim(g(i)), "")

Next

End Sub

End Class

My_Sum是计算结果

以上就是关于求用vb做一个整人小程序全部的内容，包括:求用vb做一个整人小程序、VB写一个整人程序。。求高人解答、VB整蛊程序求代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！