IF THEN and ELSE statement and Loops Practice Problems in VB with Solution ,Visual basic Programming
Practice
Problems:
- Determine the sum of the first ‘n’ numbers
(without using a formula) where ‘n’ is taken as input from a Text Box.
- Request a number and display asterisks in the
following format. The number you input should be equal to the number of
stars in a line and the number of lines to be printed..
For
example: Input = 4
Every
even line is shifted one space to check if the line is even use the ‘%’
operator which will return you 0 for even numbers when divided by 2 i.e
n %
2=0 for even
n %
2=1 for odd
Output
in a picture box:
****
****
****
****
3.Write
a program to display all the numbers between 1 and “n” that are perfect
squares.
The
value of “n” will be input by the user. You may use any value to input the
value.
Perfect
square are the numbers whose square root can be computed for e.g if n=10
then we
have 1,4,9 as perfect squares up to 10
There
can be many ways to find solution to this problem one way is
Int
(sqr(x))=sqr(x)
If the
above statement is true, the number is perfect square.
SOLUTION:
Problem 2 solution
Private Sub Command1_Click()
Dim row As Byte
Dim col As Byte
Dim n As Byte
n = Val(Text1.Text)
row = 1
Do While row <= n
col = 1
If row Mod 2
<> 0 Then
Picture1.Print
" ";
End If
Do While col <=
n
Picture1.Print
"*";
col = col + 1
row = row + 1
Picture1.Print
""
End Sub
Problem 3 solution
Private Sub Command1_Click()
Dim n As Integer
Dim index As Integer
n = Val(Text1.Text)
index = 1
Do While index <= n
If Int(Sqr(index))
= Sqr(index) Then
Picture1.Print
index
End If
index = index +
1
End Sub
Problem 3 solution
Private Sub Command1_Click()
Dim n As Integer
Dim index As Integer
n = Val(Text1.Text)
index = 1
Do
If Int(Sqr(index))
= Sqr(index) Then
Picture1.Print
index
End If
index = index +
1
Loop Until index
> n
End Sub
0 comments:
Post a Comment