0

hello there, i need some help as my teacher gave us a very vague example on random number code and i'm stuck on doing my assigned homework. the assignment is to have three text boxes, generate random numbers between 1-10, and afterwards both automatically added together. so one text displays the first variable, the second box for the second variable, and the final box for the answer.

honestly this is far as i could go cause it seems so different to me then what we have done so far and i haven't had a chance to run this on VB as i'm not at school right now, the random in general confuses me on the 0,1 and the decimal

cmdCalculate
dim A As Integer
dim B As Integer

Public Function RandomNum (X as Integer) As Integer
Randomize
Random Nu=Int (X*Rnd)+1 {1,10}

firstNum=RandomNum(Limit)
txtFirstNum.text=Str$(A)

secondNum=RandomNum(Limit)
txtSecondNum=Str$(B)

2
Contributors
3
Replies
4
Views
9 Years
Discussion Span
Last Post by Jx_Man
0

so, how far you do this??show us your effort friend, cause We only give homework help to those who show effort.
Use Randomize() to get random number.

0
cmdCalculate
dim A As Integer
dim B As Integer

Public Function RandomNum (X as Integer) As Integer
Randomize
Random Nu=Int (X*Rnd)+1 {1,10}

C=A+B


firstNum=RandomNum(Limit)
txtFirstNum.text=Str$(A)

secondNum=RandomNum(Limit)
txtSecondNum=Str$(B)

txtAnswer=Str$(C)

Edited by Reverend Jim: Fixed formatting

0

see this :

Private Sub Command1_Click()
Dim FirstValue As Integer, SecondValue As Integer
FirstValue = Rnd * Val(Trim(Text1.Text)) + 1
SecondValue = Rnd * Val(Trim(Text1.Text)) + 1
Text2.Text = FirstValue
Text3.Text = SecondValue
Text4.Text = FirstValue + SecondValue
End Sub
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.