1 Public Class Form1

2 Inherits System.Windows.____.Form

3 Private Sub Form1_Load(ByVal sender As System.Object, __

4 ByVal e As System.EventArgs) Handles MyBase.Load

5

6 ComboBox1._____________("Computer")

7 ComboBox1._____________("Cell Phone")

8 ComboBox1._____________("Web Camera")

9 ComboBox1._____________("Laser Printer")

10 End Sub

11 Private Sub Button1_Click(ByVal sender As System.Object, _

12 __________ e As System.EventArgs) Handles Button1.Click

13 If (Val(TextBox1.Text) = 0) _

14 Or (ComboBox1.Text = "Choose Item") __________

15 MsgBox("Please Input your bid!", , "Missing input data")

16 Else

17 MsgBox("Offer is accepted. Please find the result!")

18 ______________

19 End Sub

20 Private Sub Button2_Click(ByVal sender As System.Object, _

21 ByVal e As System.EventArgs) Handles ______________

22 Dim CurrentHighestBid As ___________

23 If ComboBox1.Text = "Computer" Then

24 CurrentHighestBid = 1000

25 _____________

26 If ComboBox1.Text = "Cell Phone" Then

27 CurrentHighestBid = 200

28 End If

29 If ComboBox1.Text = "Web Camera" Then

30 CurrentHighestBid = 100

31 End If

32 If ComboBox1.Text = "Laser Printer" Then

33 CurrentHighestBid = 400

34 End If

35 If ____________(TextBox1.Text) > CurrentHighestBid Then

36 MsgBox("You win!", , "You win!")

37 Else

38 MsgBox("Sorry, your bid is not high enough. Bid again!")

39 End If

40 End Sub

41 _____________________

I. Given the VB.NET window in the run mode," describe how you would design this GUI (Forml) by filling the table: NAME OF THE GUI OBJECT PROPERTIES: (INDICATE "TEXT" ONLY) Labell Form1 Online Auction Auction Item Choose ltem My Bid $ BID Find Bidding Result 2. Read the flowing VB.NET program for the preceding GUI and fill the blanks. Note that your answers must be consistent with your table in question 1. 1 Public Class Forml 2 Inherits System.Windows Form