Encontrar a intersecção de duas linhas é um problema comum em matemática , e , portanto, é útil ter um programa de computador que pode resolver o problema . Para fazer isso, tudo o que é necessário é traduzir os passos tudo que aprendemos em nossas aulas de matemática do ensino médio em um algoritmo de Visual Basic , que é uma linguagem de programação da Microsoft, pode entender. Instruções 
 1 
 Crie um novo projeto Visual Basic , clicando em " Arquivo" e " New Project ". Escolha " Console Application ", já que nos permite chegar à carne do problema sem ter que se preocupar com GUI irrelevante trabalho ( Graphical User Interface) . Mais tarde , você pode usar exatamente o mesmo código em uma aplicação gráfica , se assim escolherem 
 2 
 Definir a linha em quatro variáveis : . A inclinação e intercepção de cada linha. Para fazer isso, colando o seguinte : 
 
 Dim firstLineSlope como Double = 3,0 
 
 Dim firstLineYintercept como Double = -8 
 
 Dim secondLineSlope como Double = 7,0 
 
 Dim secondLineYintercept as Double = 9 
 
 Isto seria equivalente às linhas "y = 3x - 8" . " y = 7x + 9" e Você pode alterar os números para caber as duas linhas que você está tentando resolver para 
 3 
 Encontre a coordenada x usando a seguinte fórmula : . 
 
 Dim x como Double = ( firstLineYIntercept - secondLineYintercept ) /( SecondLineSlope - firstLineSlope ) 
 
 Este é equivalente a definir as equações de duas linhas iguais uns aos outros e simplificando os termos , assim: 
 
 3x - 8 = 7x + 9 
 
 3x - 7x = 9 - ( -8) 
 
 x = -4,25 
 4 
 Encontre a coordenada y da interseção , ligando a recém-encontrado valor x em uma das linhas usando o seguinte código: 
 
 Dim y como Double = ( firstLineSlope * x) + firstLineYintercept 
 
 Este é equivalente ao seguinte matemática : 
 
 y = 3 (-4,25) + (-8) 
 
 y = -20,75