# vb

Page 1 of 1

## 3 Replies - 701 Views - Last Post: 29 January 2008 - 11:00 PMRate Topic: //<![CDATA[ rating = new ipb.rating( 'topic_rate_', { url: 'http://www.dreamincode.net/forums/index.php?app=forums&module=ajax&section=topics&do=rateTopic&t=41717&amp;s=1030738440e8bb2d23f62a3b368e0d40&md5check=' + ipb.vars['secure_hash'], cur_rating: 0, rated: 0, allow_rate: 0, multi_rate: 1, show_rate_text: true } ); //]]>

### #1 raja_clever

Reputation: 0
• Posts: 17
• Joined: 12-January 08

# vb

Posted 25 January 2008 - 08:00 AM

```command1_click()
dim n%,n1%,a%,a1%
n=val(inputbox("enter n:"))
n1=n
a1=0
while(n>0)
a=nmod10
a1=a1+a*a*a
n=int(n/10)
wend
if(n1=a1)
msgbox "amstrong n"
else
msgbox "not a amstrong no"
endif
endsub
/*use the same code for reversing a number with the modification as

```

Is This A Good Question/Topic? 0

## Replies To: vb

• g+ + -o drink whiskey.cpp

Reputation: 249
• Posts: 13,507
• Joined: 12-July 02

## Re: vb

Posted 25 January 2008 - 08:06 AM

Moved to proper forum. Did you have a question relating to this code?

### #3 DataMan

Reputation: 0
• Posts: 3
• Joined: 02-November 07

## Re: vb

Posted 26 January 2008 - 11:48 PM

Raja I am unsure of what you wish anyone to help you with but to * variable A by 10 without having to go a * a * a ... just do this "(a * 10) the computer will calculate the sum inside the brackets.
Dont know if thats what you wanted help with?

### #4 bector

Reputation: 2
• Posts: 8
• Joined: 23-January 08

## Re: vb

Posted 29 January 2008 - 11:00 PM

i have seen above code

but you are not specify any kind of help regarding above code

so please specify you question clearly other wise there is no use of any comment

thankx

for any type of web designing related information you can visit