画出来了，不会写代码。求哪位高手帮忙，我要源代码。万分感谢

[此贴子已经被作者于2006-5-4 12:10:02编辑过]

你好歹要自己写一写，然后大家帮你改改，总不能全让别人写吧

不瞒大家说，我是第一次接触vb啊，我真的不会啊，有人愿意帮助我吗？

我倒...计算的公式是什么???没有公式怎么计算?...

公式：

上方红字不是是：贷款月数（幂）

[此贴子已经被作者于2006-5-4 14:04:40编辑过]

Private Sub Text1_Change()
If Text1.Text = "" Or Text1.Text = vbNullString Then Exit Sub
If Right(Text1.Text, 1) > "9" Or Right(Text1.Text, 1) < "0" Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)
Exit Sub
End If
If Text2.Text <> "" Or Text2.Text <> vbNullString Then
Text3.Text = 公式
If text6.Text <> "" Or Text2.Text <> vbNullString Then
text7.Text = Val(text6.Text - Text3.Text)
End If
End If
End Sub
别的TEXT源码雷同
text1.2 3.为调整前的第1,2,3个text
text4.5.6为调整后的第1.2 ,3个text
text7为最下面的那个text