一些代码辨别及平台运行

这是我做东西收集到的一些代码(部分展示)，麻烦大家帮忙辨别一下这是属于C或者其他语言，如果我要使用的话有没有推荐的运行平台。
Private Sub Form_Load()
form1.Show
form2.Hide
Form3.Hide
Form4.Hide
End Sub

Private Sub cmdwork_Click()
Dim w1 As Single, w2 As Single, l1 As Single, l2 As Single, h1 As Single, w0 As Single, l0 As Single, h0 As Single, z As Single, z0 As Single
Dim wj As Single, lj As Single, hj As Single, sl As Single, z1 As Single
Dim jg As Double ' 运输时间
Dim sw As Long, sn As Long
'定意ysj,lc
If cmxz.Text = "新疆A公司" Then
ysj = 36: lc = 3326
End If
If cmxz.Text = "天津市A公司" Then
ysj = 7: lc = 552
End If
If cmxz.Text = "陕西A公司" Then
ysj = 8.5: lc = 758
End If
If cmxz.Text = "陕西B公司" Then
ysj = 8.5: lc = 758
End If
If cmxz.Text = "太原A公司" Then
ysj = 9: lc = 396
End If
If cmxz.Text = "山东A公司" Then
ysj = 6: lc = 443
End If
If cmxz.Text = "大连A公司" Then
ysj = 18.5: lc = 1481
End If
If cmxz.Text = "沈阳B公司" Then
ysj = 18: lc = 1241
End If
If cmxz.Text = "长春A公司" Then
ysj = 20: lc = 1541
End If
If cmxz.Text = "哈尔滨A公司" Then
ysj = 23: lc = 1787
End If
If cmxz.Text = "郑州A公司" Then
ysj = 3: lc = 247
End If
If cmxz.Text = "石家庄A公司" Then
ysj = 2: lc = 165
End If
If cmxz.Text = "甘肃青云A公司" Then
ysj = 15.5: lc = 1434
End If
If cmxz.Text = "北京A公司" Then
ysj = 5: lc = 442
End If
If cmxz.Text = "北京B公司" Then
ysj = 5: lc = 442
End If
If cmxz.Text = "其它地区..." Then
ysj = Val(InputBox("请输入至目的地所需总时间："))
lc = Val(InputBox("请输入至目的地总里程"))
End If

这是matlab