计算器（COMMAND控件数组的原代码） - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 计算器（COMMAND控件数组的原代码）

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1084 人关注过本帖

标题：计算器（COMMAND控件数组的原代码）

只看楼主加入收藏

85538946

等　级：新手上路
帖　子：18
专家分：0
注　册：2004-12-22

楼主

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

计算器（COMMAND控件数组的原代码）

各位大哥，小弟是初学者，正在试编一计算器，可程序老是出错，我想在此请高手给我COMMAND控件数组的原码，知道的朋友请给我回话，不胜感激！

搜索更多相关主题的帖子: COMMAND控件　计算器　代码　回话　

2005-02-19 11:16

zero_one

等　级：新手上路
帖　子：72
专家分：0
注　册：2005-2-12

第 2 楼

得分:0

你把你的贴出来呀

---------------------------------------------- 我郁闷，因为学得差劲。

2005-02-19 14:27

85538946

等　级：新手上路
帖　子：18
专家分：0
注　册：2004-12-22

第 3 楼

得分:0

Dim flag As Boolean Dim num1 As Integer Dim num2 As Integer Private Sub Command1_Click(Index As Integer) Select Case Index Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 Text1.Text = Text1.Text & Index Case 10 If flag Then Text1.Text = Text1.Text & "." End If flag = False Case 12, 13, 14, 15 num1 = Val(Text1.Text) Text1.Text = "" flag = True Case Is = 11 Text1.Text = Val(Text1.Text) * num1 flag = True End Sub

Private Sub Form_Load() flag = True num1 = 0 num2 = 0 End Sub 这是我写的代代码，可不知是哪里出错了。

2005-03-01 10:11