Welcome

Anti Essays offers essay examples to help students with their essay writing.

Sign Up

Visual Eassy Essay

Open Document

Below is an essay on "Visual Eassy" from Anti Essays, your source for research papers, essays, and term paper examples.

Q16) Write a program to search an element in an array, using Linear Search.

Dim a(111), i, n, k, loc(111), value As Integer
Private Sub Form_GotFocus()
k = 0
n = InputBox("Enter total elements")
For i = 0 To n - 1
a(i) = InputBox("enter &i element ")
Next i
value = InputBox("Enter of element you want to search")
For i = 0 To n - 1
If a(i) = value Then
loc(k) = i + 1
k = k + 1
End If
Next i
Print " Total Element ";
For i = 0 To n - 1
Print a(i);
Next i
Print ""
If k = 0 Then
Print "Element not found "
Else
For i = 0 To k - 1
Print value & " element found at " & loc(i)
Next i
End If
End Sub
[pic]



Q10 Create a project that allows the user to input information and then display the lines of output for a mailing label

Private Sub Command1_Click()
Label7.Caption = "F Name   =" + Text1.Text
Label8.Caption = "L Name   =" + Text2.Text
Label9.Caption = "Street No =" + Text3.Text
Label10.Caption = "City   =" + Text4.Text
Label11.Caption = "State   =" + Text5.Text
Label12.Caption = "Zip Code   =" + Text6.Text

End Sub

Private Sub Command2_Click()

Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
Label11.Caption = ""
Label12.Caption = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub

Private Sub Command3_Click()
Unload Me

End Sub
[pic]

























Q8 Write a program to print the series in ascending order and in descending order by using for loop?

Dim a(111) As Integer, n As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
Print "assending order ";
For i = 1 To n
Print a(i);
Next i
Print ""
End Sub
Private Sub Command2_Click()
For i = 1 To n - 1
For j = i + 1 To n
If a(i) < a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If...

Show More


Citations

MLA Citation

"Visual Eassy". Anti Essays. 15 Dec. 2018

<http://parimatch-stavka7.com/free-essays/Visual-Eassy-393497.html>

APA Citation

Visual Eassy. Anti Essays. Retrieved December 15, 2018, from the World Wide Web: http://parimatch-stavka7.com/free-essays/Visual-Eassy-393497.html


November 22 | S04E03 - Buffalo Shuffle | Watch Movie