[求助]求帮助编一个计算器（如图） - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]求帮助编一个计算器（如图）

标题：[求助]求帮助编一个计算器（如图）

只看楼主

czren

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-5-4

楼主

问题点数：0 回复次数：5

[求助]求帮助编一个计算器（如图）

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

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

搜索更多相关主题的帖子: 计算器　

2006-05-04 12:09

xinfresh

等　级：贵宾
威　望：13
帖　子：594
专家分：0
注　册：2006-1-13

第 2 楼

得分:0

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

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042

2006-05-04 12:13

czren

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-5-4

第 3 楼

得分:0

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

2006-05-04 12:14

purana

来　自：广东-广州
等　级：版主
威　望：66
帖　子：6039
专家分：0
注　册：2005-6-17

第 4 楼

得分:0

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

我的msn: myfend@

2006-05-04 13:19

czren

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-5-4

第 5 楼

得分:0

公式：

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

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

2006-05-04 14:03

风沙雪雨

等　级：新手上路
帖　子：43
专家分：0
注　册：2006-5-4

第 6 楼

得分:0

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

2006-05-04 21:59

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-61814-1-1.html