welcome!  login | sign up   Facebook Connect
 
Read what you like. Share what you write.

Posted by

albaab

on Jul 01, 2007
Become a fan

compu VB

0


#biggest of 2 unequal positive no.
DIM A as integer
DIM B as integer
A = Inputbox (first number)
B = Inputbox (second number)
IF A>B then
Biggest = A
ELSE Biggest = B
ENDIF
Print Biggest

#Biggest of 3 unequal positive no
DIM A as integer
DIM B as integer
DIM C as integer
A = Inputbox (first number)
B = Inputbox (second number)
C = Inputbox (third number)
IF A>b AND A>C
Then Biggest = A
ENDIF
IF B>A AND B>C
The Biggest = B
ENDIF
IF C>A AND C>B
Then biggest =C
ENDIF
Print Biggest

#The sequential numbers from 1 to 100
n = 1
DO WHILE n<=100
Print n
n = n+1
LOOP

#All odd numbers from 1-100
n = 1
DO WHILE n<=100
Print n
n = n+2
LOOP




#add all numbers from 1-100
n = 1, S = 0
DO WHILE n <=100
Sum= Sum+h
n = n+1
LOOP
Print Sum


#add 100 different numbers ,not sequential
DIM A as integer
Sum = 0
n = 1
DO WHILE n<=100
A=inputbox(enter a number)
Sum = Sum+A
n = n+1
LOOP
Print sum

# find the biggest of 500 positive unequal number
DIM num AS integer
DIM big as integer
DIM i as integer
i = 0
num = 0
DO WHILE n<500
num = inputbox(enter a number)
IF num>big then
Big = num
i = i+1
LOOP
Print big

Comments & Reviews ^top


Login to post your comment.
Be the first to comment on this!


Recommended


Compu VB2

Compu VB3

compu final

compu progs

Bio fin2-ALbaab(Microbes

DEF:CH-12

MIS 1-5