VB学习第十周素数判断,随机数产生
发布时间:2020-12-17 08:15:31 所属栏目:百科 来源:网络整理
导读:Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Asc(e.KeyChar) = 13 Then Dim i,m As Integer,Tag As Boolean m = Val(TextBox1.Text) Tag =
Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Asc(e.KeyChar) = 13 Then Dim i,m As Integer,Tag As Boolean m = Val(TextBox1.Text) Tag = True i = 2 Do If (m Mod i) = 0 Then Tag = False Label2.Text = m & "不是素数" Exit Do End If i = i + 1 Loop While (2 <= i And i <= m - 1) If i = m Then Label2.Text = m & "是素数" End If End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub End Class
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim i,a,s,max,min As Integer max = 1 : min = 100 Label1.Text = "" For i = 1 To 10 a = Int(Rnd() * 100 + 1) Label1.Text &= a & " " If a > max Then max = a If a < min Then min = a s = s + a Next Label3.Text = max & Space(15) & min & Space(15) & s / 10 End Sub End Class (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |