ublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MessageBox.Show("Please enter a number") Else Dim randNum As New Random Label2.Text = randNum.Next(1, 10) If TextBox1.Text = Label2.Text Then MessageBox.Show("Correct") TextBox1.Clear() Label2.Text = "" Else MessageBox.Show("Incorrect") TextBox1.Clear() Label2.Text = "" End If End If End Sub End Class
ublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MessageBox.Show("Please enter a number") Else Dim randNum As New Random Label2.Text = randNum.Next(1, 10) If TextBox1.Text = Label2.Text Then MessageBox.Show("Correct") TextBox1.Clear() Label2.Text = "" Else MessageBox.Show("Incorrect") TextBox1.Clear() Label2.Text = "" End If End If End Sub End Class
Computer Networking: A Top-Down Approach (7th Edition)
7th Edition
ISBN:9780133594140
Author:James Kurose, Keith Ross
Publisher:James Kurose, Keith Ross
Chapter1: Computer Networks And The Internet
Section: Chapter Questions
Problem R1RQ: What is the difference between a host and an end system? List several different types of end...
Related questions
Question
please help me run this code with showing output and tell me details how to run this progrma in visual studio
This problem can be solved using the visual basics
Code:-
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MessageBox.Show("Please enter a number") Else Dim randNum As New Random Label2.Text = randNum.Next(1, 10) If TextBox1.Text = Label2.Text Then MessageBox.Show("Correct") TextBox1.Clear() Label2.Text = "" Else MessageBox.Show("Incorrect") TextBox1.Clear() Label2.Text = "" End If End If End Sub End Class
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MessageBox.Show("Please enter a number") Else Dim randNum As New Random Label2.Text = randNum.Next(1, 10) If TextBox1.Text = Label2.Text Then MessageBox.Show("Correct") TextBox1.Clear() Label2.Text = "" Else MessageBox.Show("Incorrect") TextBox1.Clear() Label2.Text = "" End If End If End Sub End Class
Expert Solution
This question has been solved!
Explore an expertly crafted, step-by-step solution for a thorough understanding of key concepts.
Step by step
Solved in 7 steps with 8 images
Recommended textbooks for you
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY