hi im trying to write a program that will tell whether the number is a prime num

Question

hi im trying to write a program that will tell whether the number is a prime number or not. like the user gives a number and then pressing a button it tells you whether its a prime number or not... any help? also i have to write a program where a user would write 5 numbers in a textbox and then in 5 different textboxs the 5 numbers will be separated by pressing a button...any help?
visual basic 2008 hi im trying to write a program that will tell whether the number is a prime number or not. like the user gives a number and then pressing a button it tells you whether its a prime number or not... any help? also i have to write a program where a user would write 5 numbers in a textbox and then in 5 different textboxs the 5 numbers will be separated by pressing a button...any help?
visual basic 2008

Explanation / Answer

Here is the code for the Form: _ Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Me.isPrimeButton = New System.Windows.Forms.Button Me.primeNumber = New System.Windows.Forms.TextBox Me.primeLabel = New System.Windows.Forms.Label Me.numbers = New System.Windows.Forms.TextBox Me.number1 = New System.Windows.Forms.TextBox Me.number2 = New System.Windows.Forms.TextBox Me.number3 = New System.Windows.Forms.TextBox Me.number4 = New System.Windows.Forms.TextBox Me.number5 = New System.Windows.Forms.TextBox Me.splitNumbers = New System.Windows.Forms.Button Me.Label1 = New System.Windows.Forms.Label Me.SuspendLayout() ' 'isPrimeButton ' Me.isPrimeButton.Location = New System.Drawing.Point(12, 43) Me.isPrimeButton.Name = "isPrimeButton" Me.isPrimeButton.Size = New System.Drawing.Size(75, 23) Me.isPrimeButton.TabIndex = 0 Me.isPrimeButton.Text = "Is Prime ?" Me.isPrimeButton.UseVisualStyleBackColor = True ' 'primeNumber ' Me.primeNumber.Location = New System.Drawing.Point(12, 12) Me.primeNumber.Name = "primeNumber" Me.primeNumber.Size = New System.Drawing.Size(100, 20) Me.primeNumber.TabIndex = 1 ' 'primeLabel ' Me.primeLabel.AutoSize = True Me.primeLabel.Location = New System.Drawing.Point(118, 15) Me.primeLabel.Name = "primeLabel" Me.primeLabel.Size = New System.Drawing.Size(39, 13) Me.primeLabel.TabIndex = 2 Me.primeLabel.Text = "Label1" ' 'numbers ' Me.numbers.Location = New System.Drawing.Point(12, 90) Me.numbers.Name = "numbers" Me.numbers.Size = New System.Drawing.Size(100, 20) Me.numbers.TabIndex = 3 ' 'number1 ' Me.number1.Location = New System.Drawing.Point(12, 170) Me.number1.Name = "number1" Me.number1.Size = New System.Drawing.Size(100, 20) Me.number1.TabIndex = 4 ' 'number2 ' Me.number2.Location = New System.Drawing.Point(121, 170) Me.number2.Name = "number2" Me.number2.Size = New System.Drawing.Size(100, 20) Me.number2.TabIndex = 5 ' 'number3 ' Me.number3.Location = New System.Drawing.Point(12, 196) Me.number3.Name = "number3" Me.number3.Size = New System.Drawing.Size(100, 20) Me.number3.TabIndex = 6 ' 'number4 ' Me.number4.Location = New System.Drawing.Point(121, 196) Me.number4.Name = "number4" Me.number4.Size = New System.Drawing.Size(100, 20) Me.number4.TabIndex = 7 ' 'number5 ' Me.number5.Location = New System.Drawing.Point(12, 222) Me.number5.Name = "number5" Me.number5.Size = New System.Drawing.Size(100, 20) Me.number5.TabIndex = 8 ' 'splitNumbers ' Me.splitNumbers.Location = New System.Drawing.Point(12, 116) Me.splitNumbers.Name = "splitNumbers" Me.splitNumbers.Size = New System.Drawing.Size(75, 23) Me.splitNumbers.TabIndex = 9 Me.splitNumbers.Text = "Split" Me.splitNumbers.UseVisualStyleBackColor = True ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(118, 97) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(68, 13) Me.Label1.TabIndex = 10 Me.Label1.Text = "Enter 5 digits" ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(284, 262) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.splitNumbers) Me.Controls.Add(Me.number5) Me.Controls.Add(Me.number4) Me.Controls.Add(Me.number3) Me.Controls.Add(Me.number2) Me.Controls.Add(Me.number1) Me.Controls.Add(Me.numbers) Me.Controls.Add(Me.primeLabel) Me.Controls.Add(Me.primeNumber) Me.Controls.Add(Me.isPrimeButton) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents isPrimeButton As System.Windows.Forms.Button Friend WithEvents primeNumber As System.Windows.Forms.TextBox Friend WithEvents primeLabel As System.Windows.Forms.Label Friend WithEvents numbers As System.Windows.Forms.TextBox Friend WithEvents number1 As System.Windows.Forms.TextBox Friend WithEvents number2 As System.Windows.Forms.TextBox Friend WithEvents number3 As System.Windows.Forms.TextBox Friend WithEvents number4 As System.Windows.Forms.TextBox Friend WithEvents number5 As System.Windows.Forms.TextBox Friend WithEvents splitNumbers As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label End Class Here is the code for the events: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load primeLabel.Visible = False End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isPrimeButton.Click primeLabel.Visible = True If IsPrime(primeNumber.Text) Then primeLabel.Text = "Number is Prime" Else primeLabel.Text = "Number is not Prime" End If End Sub Private Function IsPrime(ByVal n As Integer, Optional ByVal f As Integer = 2) As Boolean If n = f Then Return True End If If n Mod f = 0 Or n = 1 Then Return False Else Return IsPrime(n, f + 1) End If End Function Private Sub splitNumbers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles splitNumbers.Click Dim i As Integer Dim n(5) As Integer For i = 0 To numbers.TextLength() - 1 n(i) = numbers.Text().Substring(i, 1) Next i number1.Text = n(0) number2.Text = n(1) number3.Text = n(2) number4.Text = n(3) number5.Text = n(4) End Sub End Class

Related Questions

Navigate

• Browse (All)
• Browse H
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.