the Write output of the following program
Public Class Form1
Sub p1(ByRef a As Short)
a = f1(a, a)
End Sub
Function f1(ByVal g As Short, ByVal h As Short) As Single
g=g-1
Return g + (h * 2)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Dim n1 As Short = 3
Dim n2 As Short = 9
Dim n3 As Short = 14
Dim mp As Boolean = True
Do While mp
p1(n2)
n3 = f1(n1, n3)
n1 += n1
If n2 > 100 Then
Select Case n1
Case 0 To 4
n3 = n3 / 2
Case Is > 4
mp = False
End Select
End If
TextBox1.Text = TextBox1.Text & n1 & "_" & n2 & "_" & n3 & vbCrLf
Loop
End Sub
End Class
Answer
6_26_30
12_77_65
24_230_141
Write the output of the following program
Public Class Form1
Sub mandm(ByVal o As Short, ByRef u As Short)
Dim a, b, c As Short
a=7
b=a+9
u=u*2-o
o=a+b
c=2*b-a
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Dim a, b, c, k, t As Short
Dim stringer As String = " Hello "
For k = 10 To 5 Step -3
For t = 0 To a \ 10
TextBox1.Text = TextBox1.Text & stringer & vbCrLf
Next t
a=k
b=a
c=b
If a Mod 2 = 0 Then
b=a*3
Else
c=a*4
End If
If b > c Then
mandm(b, c)
Else
mandm(c, a)
End If
TextBox1.Text =TextBox1.Text & a & vbTab & b & vbTab & c & vbCrLf
Next k
End Sub
End Class
Answer:
Hello
10
30
-10
7
28
Hello
Hello
-14
Write a program that will play the number guessing game with randomly
generated 2 digit integers (based on the above screen examples). The
numbers shown above are arbitrary, you will not use the numbers above. You
need to count and show how many trials it takes for the user to guess the
number. Each guess is entered when it is written in the textbox and the
button is clicked. The line below the button is a label.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text=make a guess
Label1.Text=make a guess to find the 2 digit integer
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class
Write a program that will start with the number provided by the user (by using an inputbox), and
then count backwards down to 0. After every fifth number counted, the backward counting
decrement is increased by 1. The numbers are written in the textbox.
For example:
If the user inputs 23
Then the program will count :
22,21,20,19,18,16,14,12,10,8,5,2
After the first five numbers (22,21,20,19,18) the decrement is increased to 2
After counting for another five numbers (16,14,12,10,8) the decrement is increased to 3
Program stops when zero is reached, or when the next number is less than zero. So the last number
in the series can never be negative.
Answer:
Dim n, k, count As Integer
n = InputBox("enter number")
TextBox1.Text = TextBox1.Text & "starting number is " & n & vbCrLf
Do While n - k >= 0
k=k+1
Do While count < 5 And n - k >= 0
count += 1
n=n-k
TextBox1.Text = TextBox1.Text & n & vbCrLf
Loop
count = 0
Loop
Write the output of the following program in the form given below. In the program, variable named
counter counts the number of times the GCD Function is called, which is equal to the number of
iterations used to find the greatest common divisor of the two numbers.
Public Class Form1
Dim counter As Integer = 0
Function GCD(ByVal p As Long, ByVal q As Long) As Long
counter += 1
TextBox1.Text = TextBox1.Text & "p = " & p & vbTab & "q = " & q _
& vbCrLf
If q Mod p = 0 Then
Return p
Else
Return GCD(q, p Mod q)
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As Integer
a = 18
b = 48
TextBox2.Text = TextBox2.Text & "The GCD of " & a & " and " & b _
& " is " & GCD(a, b) & ", calculated by " & counter & "iterations"
End Sub
End Class
Write the output of the following program in the form given below.
Public Class Form1
Dim array2(5), array1(5), array3(5) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 5
array1(i) = i + 10
array2(i) = 20 - i
If array1(i) >= array2(i) Then
array3(i) = array1(i)
Else
array3(i) = array2(i)
End If
TextBox1.Text = TextBox1.Text & array1(i) & vbTab & array2(i) _
& vbTab & array3(i) & vbCrLf
Next
End Sub
End Class
Write the output of the following program in the form given below.
Public Class Form1
Sub messup(ByVal a1 As Integer, ByRef a2 As Integer, ByRef a3 As _
Single, ByVal a4 As Single)
a3 = a3 + 2
a1 = a2 - 1
a4 = a2 / a1
a2 = a1 + a1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Dim y, z As Integer
Dim k, n As Single
z=0
n = 20
TextBox1.Text = TextBox1.Text & "y +++ z +++ k +++ n " & vbCrLf
For k = 2.3 To 7.5 Step 0.5
For y = 8 To 5 Step -1
z += 1
messup(y, z, k, n)
TextBox1.Text = TextBox1.Text & y & " +++ " & z & " +++ " _
& k & " +++ " & n & vbCrLf
n=n-2
Next
Next
End Sub
End Class
Rewrite the following program by changing the function changeme into a procedure (sub). Make sure
that you change the part where the function is called as well.
HINT: You have to declare an additional variable.
Public Class Form1
Function changeme(ByRef arg1 As Single, ByVal arg2 As Double) As _
Boolean
If arg1 > arg2 Then
Return True
Else
Return False
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Dim answer, count As Single
answer = InputBox("enter number")
count = 0
If changeme(answer, 45) Then
MsgBox("That is greater than 45")
Else
MsgBox("That is not greater than 45")
End If
End Sub
End Class
Write a program that will use the form
When the button is clicked, it will roll two dices (randomly picked numbers between 1 and 6,
inclusive).
a. You win when the total of the two dices is greater than 7
b. You lose when the total is less than 5
c. It results in a draw otherwise
a
b
c
The values for the dice rolls and the result are shown in three separate label boxes, all of
which were set to invisible at the property setting. Remember that the labelbox cannot display
integer values (they need to be converted to string)
1. Trace the following program and write the output that will be seen in the textbox,
when the button is clicked and the user enters 4 as input.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Dim matrix(,), suma(), sumb() As Integer
Dim n, i, j As Integer
TextBox1.Clear()
n = InputBox("Enter N, for NxN matrix")
ReDim matrix(n - 1, n - 1)
ReDim suma(n - 1)
ReDim sumb(n - 1)
For i = 0 To n - 1
For j = 0 To n - 1
matrix(i, j) = i + 2 * j + 1
Next j
Next i
For i = 0 To n - 1
For j = 0 To n - 1
TextBox1.AppendText(matrix(i, j) & " ")
suma(i) = suma(i) + matrix(i, j)
sumb(i) = sumb(i) + matrix(j, i)
Next j
TextBox1.AppendText(" " & suma(i) & vbCrLf)
Next i
For i = 0 To n - 1
TextBox1.AppendText(sumb(i) & " ")
Next i
End Sub
End Class
1. Trace the following program and write the output that will be seen in the textbox,
when the button is clicked.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim numbers(9), total As Double
For i = 1 To 10
If i Mod 2 = 0 Then
numbers(i - 1) = 100 - i
Else
numbers(i - 1) = i
End If
Textbox1.AppendText(numbers(i-1) & vbcrlf)
Next i
j=0
total = 0
Do While (j <= 7)
total = total + numbers(j)
j += 1
Loop
Textbox1.AppendText("Total is " & total)
End Sub
End Class
Write a program that will use the following form
When the button is clicked, it will generate a random number between 0 and 4 (inclusive).
After generating the number, it will write the number in its word form.
The textbox above shows the sample output when the number is 4. It reads as:
number 4 written as four