Public Class Form1
Inherits System.Windows.Forms.Form
Dim sum = 0
Dim zheng As Integer = 0
Dim fan As Integer = 0
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(32, 32)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(224, 96)
Me.Label1.TabIndex = 0
Me.Label1.Text = "请投硬币吧！"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(40, 192)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 24)
Me.Button1.TabIndex = 1
Me.Button1.Text = "我投"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(152, 192)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(88, 24)
Me.Button2.TabIndex = 1
Me.Button2.Text = "不算，再来"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button2)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Boolean
Button1.Text = "我再掷！"
sum = sum + 1
a = flip()
If a = True Then
zheng = zheng + 1
Else
fan = fan + 1
End If
Label1.Text = "你一共投了" & sum & "次硬币" & vbNewLine & "正面" & zheng & "次" & vbNewLine & "反面" & fan & "次"
End Sub
Private Function flip() As Boolean
Dim b As Double
Dim d As Boolean
Dim rnd As Random
rnd = New Random
b = rnd.NextDouble() * 2
b = Math.Round(b) - 1
If b = 0 Then
d = True
Else
d = False
End If
Return d
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "请掷硬币吧！"
Button1.Text = "请投掷！"
sum = 0
zheng = 0
fan = 0
End Sub
End Class
VB.NET.rar_VB 案例_VB.net案例_vb.net （615个子文件） 
第八章补充习题.exe 27KB ex.05.02.exe 23KB EX.03.14.exe 22KB EX.03.14.exe 22KB ex.03.14.exe 19KB ex.03.14.exe 19KB ex.05.03.exe 19KB ex.05.02.exe 19KB EX.07.01.exe 18KB Ex.03.12.exe 17KB Ex.03.12.exe 17KB ex.06.01.exe 17KB EX.03.03.exe 17KB EX.03.03.exe 17KB m3-1.exe 16KB m3-1.exe 16KB ex.08.08.exe 16KB ex.03.01.exe 15KB ex.03.02.exe 15KB ex.03.01.exe 15KB ex.03.02.exe 15KB EX.04.01.exe 15KB ex.04.06.exe 15KB EX.04.01.exe 15KB ex.04.06.exe 15KB EX.03.06.exe 15KB EX.03.06.exe 15KB EX.03.06.exe 15KB EX.03.06.exe 15KB EX.03.06.exe 15KB EX.03.06.exe 15KB EX.03.13.exe 14KB EX.03.10.exe 14KB EX.03.13.exe 14KB EX.03.10.exe 14KB EX.04.05.exe 14KB Hellocs.exe 14KB Hellocs.exe 14KB ex.04.15.exe 14KB EX.04.05.exe 14KB danji.exe 13KB danji.exe 13KB ex.04.12.exe 13KB ex.04.12.exe 13KB ex.07补充题.exe 8KB EX.05.03-.exe 7KB ex.04.17.exe 7KB ex.04.13.exe 7KB ex.04.10.exe 7KB ex.04.07.exe 7KB ex.04.04.exe 7KB ex.04.13.exe 7KB ex.04.10.exe 7KB ex.04.07.exe 7KB ex.04.04.exe 7KB ex.03.10.exe 6KB ex.03.10.exe 6KB easy.exe 6KB easy.exe 6KB hello.exe 6KB hi.exe 6KB hello.exe 6KB hi.exe 6KB 程序1.exe 6KB 程序1.exe 6KB
EX.07.01.pdb 48KB ex.06.01.pdb 46KB 第八章补充习题.pdb 38KB ex.05.02.pdb 32KB ex.07补充题.pdb 30KB ex.05.03.pdb 26KB ex.05.02.pdb 26KB ex.08.08.pdb 20KB EX.05.03-.pdb 20KB ex.04.06.pdb 20KB ex.04.06.pdb 20KB EX.03.13.pdb 18KB Ex.03.12.pdb 18KB EX.03.03.pdb 18KB EX.03.14.pdb 18KB EX.03.10.pdb 18KB m3-1.pdb 18KB ex.03.14.pdb 18KB EX.04.05.pdb 18KB EX.03.13.pdb 18KB Ex.03.12.pdb 18KB EX.03.03.pdb 18KB EX.03.14.pdb 18KB EX.03.10.pdb 18KB m3-1.pdb 18KB ex.03.14.pdb 18KB EX.04.01.pdb 18KB EX.04.05.pdb 18KB EX.04.01.pdb 18KB EX.03.06.pdb 16KB EX.03.06.pdb 16KB ex.03.01.pdb 16KB EX.03.06.pdb 16KB ex.03.02.pdb 16KB Hellocs.pdb 16KB共 615 条
- 1
- 2
- 3
- 4
- 5
- 6
- 7
局外狗
- 粉丝: 78
- 资源: 1万+
最新资源
- 使用C++实现的常见算法
- travel-web-springboot【程序员VIP专用】.zip
- 基于Matlab, ConvergeCase中部分2D结果文件输出至EXCEL中 能力有限，代码和功能极其简陋.zip
- java桌面小程序，主要为游戏.zip学习资源
- Java桌面-坦克大战小游戏.zip程序资源
- java语言做的魔板小游戏.zip
- 初学JAVA制作的坦克大战小游戏，使用JAVA 的GUI模拟2,5D界面.zip
- 公开整理-2024年832个国家级贫困县摘帽情况分省分年统计.xlsx
- 纯js+Jquery实现2048游戏
- 叠罗汉游戏，安卓java实现，自定义Framlayout,属性动画.zip
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
评论0