189 8069 5689
VB2008里的设置：
创新互联建站网站建设公司，提供做网站、网站建设，网页设计，建网站，PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展；专业做搜索引擎喜爱的网站，是专业的做网站团队，希望更多企业前来合作!
项目属性-应用程序-生成单个实例应用程序
1，窗体上使用容器控件比如：Panel，在容器控件里添加文本框，用来显示滚动的号码。
2，添加一个Timer控件，用来不断改变上述文本框的Top属性，实现不断向上滚动的动态效果。
3，使用系统的随机函数，生成所想要的适当位数的随机数，单击按钮，停止滚动，显示随机数。
4，用数组保存产生的随机数，再次停止，与已经产生的保存在数组里的随机进行比较，如果重复，就重新生成随机数，直到不重复。
看代码吧！在上次累加的基础上继续累加
窗体中包含一个Button1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static a As Integer
For i = 1 To 100 '运算100次
a = a + i
Next
End Sub
End Class
static 是声明静态变量，只要程序不退出，值就会一直保存
这样，你第一次点击 a的值就是5050
第二次点击a就变成了 10100
第一个问题：跳转到另一个窗体使用语句 Object.show，
你可以在form1任一控件事件下编写form2.show就行，如果还隐藏form1的话，再添加一句from1.hide
第二个问题
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
op1 = txt1.Text
op2 = txt2.Text
op3 = txt3.Text
op4 = txt4.Text
ba = txt3.Text
If op1 = "" Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
txt1.Text = 100
在这个位置添加一句代码
exit sub
不过我看你这段程序漏洞百出，我改正了一下，不过没明白你为什么用单选按钮去接收文本框的数据，所以就按照你的改了。改正后的代码如下：声明一下，你程序里的txt在我程序里是text，忘改了。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ba As String
op1.Text = Text1.Text
op2.Text = Text2.Text
op3.Text = Text3.Text
op4.Text = Text4.Text
ba = Text3.Text
If op1.Text = "" Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
Text1.Text = 100
Exit Sub
ElseIf op1.Text = 0 Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
Text1.Text = 100
End If
If op2.Text = "" Then
MsgBox("最少需要下注1", vbOKOnly + vbInformation, "输入错误")
ElseIf op2.Text = 0 Then
MsgBox("请输入下注金额", vbOKOnly + vbInformation, "输入错误")
End If
If Val(op1.Text) Val(op2.Text) Then
MsgBox("你没有那么多钱了，请重新输入", vbOKOnly + vbInformation, " 你没那么多钱了")
End If
Dim bytcom As Byte
bytcom = Int(Rnd() * 3)
Select Case bytcom
Case 0
Text4.Text = -(Val(op2.Text) * Val(op3.Text))
Text1.Text = Val(op1.Text) - Val(op2.Text) * Val(op3.Text)
MsgBox("你出布，计算机出剪刀，你输了", vbOKOnly + vbInformation, "很遗憾")
Case 1
Text4.Text = Val(op2.Text) * Val(op3.Text)
Text1.Text = Val(op1.Text) + Val(op2.Text) * Val(op3.Text)
MsgBox("你出布，计算机出石头，你赢了", vbOKOnly + vbInformation, "恭喜")
Case 2
Text4.Text = 0
MsgBox("你出布，计算机出布，平手", vbOKOnly + vbInformation, "不要灰心")
End Select
If Text1.Text = 1000000 Then
MsgBox("恭喜你通关了！重新开始", vbOKOnly + vbInformation, "游戏通关")
Text1.Text = 1000
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If
vb.net程序出错后再重启程序，目前我能实现的最好的方法就是
先用shell命令 “生一个儿子”，然后“自己死掉”。
第一句
Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)
第二句
End
完工！！！