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
局外狗
- 粉丝: 80
- 资源: 1万+
最新资源
- 数据结构与算法：快速排序算法原理与实现
- 使用Java Swing窗口来实现《单词记忆游戏 CS 版》可以提供一个更直观和用户友好的界面 包括显示单词、隐藏单词以及接收用户输入的文本框
- 计算机科学中冒泡排序算法的Python实现与解析
- 堆排序算法详解与Python实现
- matlab实现的各种算法源代码100%好用.zip
- 数据结构-排序算法PDF
- 基于python的双目立体视觉及三维重建、源码+文档+全部资料+高分项目.zip
- 基于AD-Census匹配原理实现双目立体视觉匹配、源码+文档+全部资料+高分项目.zip
- 毕业设计-基于双目立体视觉平台上的图像匹配以及目标物体的距离测量技术，图像特征提取部分研究了 SIFT 算法和 SURF 算法、源码+文档+全部资料+高分项目.zip
- utelnetd rk3588移植
- 基于SIFT特征匹配的双目立体视觉测距、源码+文档+全部资料+高分项目.zip
- 操作系统-pv操作PDF
- FortiClientInstaller-Windows-Enterprise-5.6.5.exe
- 检测人工智能生成的人脸，图像数据集，人脸数据集（包含真实人脸和人工智能生成的合成人脸）
- matlab SPEI干旱指数计算 nc tif各种 数据，多个时间尺度 2000到2023年 1 3 6 12 尺度
- 新建文件夹 (2).zip
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
评论0