Product of Two Numbers in Visual Foxpro

A very simple program that I wrote using Microsoft Visual Foxpro to ask the user to give two numbers and then our program will compute the product of two numbers given by the user. I wrote this code using Microsoft Visual Foxpro 5.0. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Ok Button   Command1  Click

number_val_1 = val(thisform.text1.value) 

number_val_2 = val(thisform.text2.value) 

solve_product = (number_val_1) * (number_val_2)

thisform.label4.caption = "The product of " + alltrim(str(number_val_1)) + " and " + alltrim(str(number_val_2)) + " is " + alltrim(str(solve_product)) + "."

Clear Button  Command2  Click

thisform.text1.value=""

thisform.text2.value=""

thisform.text1.setfocus

thisform.label4.caption =""

Quit Button Command2  Click

Quit