This is what I have please let me know if I am on the right track
CLS
DIM total(1 TO 5000)
firstNumber = 1
lastNumber = 2
FOR Sequence = 1 TO 4999
FOR lastSequence = 1 TO 5000
total = firstNumber + lastNumber
IF total + lastNumber <> 10000 THEN
lastNumber = lastNumber...
The starting number is supposed to be determined by the computer in the program. And yes it has to be exactly 10000.
The actual question is "Write a program that will output the first integer and last integer for each and every series of positive, consecutive integers whose sum is equal to...
I have written this code for a guessing game but it doesn't clear the message box to allow for a new guess.
Any suggestions would be appreciated.
Dim intIndex As Integer
Dim intGuess As Integer
Dim intIndexCount As Integer
intIndexCount = 1
intGuess = txtGuess
Do While intGuess <>...
I need to write a program that adds numbers in sequence that add up to 10000. My problem is that I don't know how many numbers it has. I have been racking my brains trying to figure out how to do this. I figured a For,Next with a Do while loop in the for next but how do I write these numbers...
Yes I did try it first and I was having problems with my program, so I wanted to make sure that you could do the three things together. I try to work out my problems first before I get help and that was all I needed at the time and I thank you for your response.
I can't seem to get this program to work I am not too familiar with randomizing with strings. I have done it several times with numbers. How can I make this work.
Dim Answers$ (1 to 8)
RANDOMIZE -TIMER
CLS
OPEN "reply.txt" FOR OUTPUT AS #1
WRITE #1 Yes
WRITE #1 seldom
WRITE #1...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.