Public Class frmNum
Dim intNum, intTimes, intMaxNum, intMinNum As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'加载窗体时生成随机数字
Dim rndNum As New Random
intNum = rndNum.Next(0, 100) '大于等于0,小于100的整数
lblAbout.Text = ""
intMinNum = 0
intMaxNum = 99
End Sub
Private Sub btnNum_Click(sender As Object, e As EventArgs) Handles btnNum.Click
If IsNumeric(txtNum.Text) Then '检测是否是数字
Try '防止数字超过整型数字范围
Dim intInputNum As Integer
二分法,算法实例——猜数字小游戏的vb.net代码
最新推荐文章于 2022-09-13 17:32:58 发布