找回密码
 立即注册
搜索
查看: 620|回复: 5

【问题以解决】请教一个很菜的VB问题??

[复制链接]

70

主题

739

回帖

1112

积分

金牌会员

系统爱好者

积分
1112
发表于 2007-1-20 17:21:52 | 显示全部楼层 |阅读模式
学习vB,做个加法法程序。就是老出错。。不知原因。。。。

代码如下:
Private Sub cmdadd_Click(Index As Integer)
Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))     这地方出错
End Sub

Private Sub cmdclear_Click(Index As Integer)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub cmdclose_Click(Index As Integer)
End
End Sub

[ 本帖最后由 算你狠 于 2007-1-23 18:02 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

×

498

主题

5866

回帖

8541

积分

网站编辑

LMSung

积分
8541
发表于 2007-1-22 01:23:17 | 显示全部楼层
Private Sub cmdadd_Click(Index As Integer)
Private Sub cmdclear_Click(Index As Integer)

这些按钮都是控件数组么?
如果不是就把Index As Integer 去掉吧.去掉了就不会有问题了.
另外textbox直接就可以显示数字了不用str$了,计算的时候val一下倒是有必要.
男人 没良心.
回复

使用道具 举报

70

主题

739

回帖

1112

积分

金牌会员

系统爱好者

积分
1112
 楼主| 发表于 2007-1-22 02:10:31 | 显示全部楼层
首先是谢谢你了,
但是我修改后还是不行的。。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

×
回复

使用道具 举报

498

主题

5866

回帖

8541

积分

网站编辑

LMSung

积分
8541
发表于 2007-1-22 03:45:58 | 显示全部楼层
如果不是控件数组
cmdadd_Click()中就不能写 Index As Integer
:MM

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

×
男人 没良心.
回复

使用道具 举报

70

主题

739

回帖

1112

积分

金牌会员

系统爱好者

积分
1112
 楼主| 发表于 2007-1-23 18:01:24 | 显示全部楼层
非常感谢,问题以解决了,就是你说的那个,,唉,,惭愧呀。。。
回复

使用道具 举报

498

主题

5866

回帖

8541

积分

网站编辑

LMSung

积分
8541
发表于 2007-1-24 01:44:40 | 显示全部楼层
我开始学的时候,还不如你呢~~~
当时能让textbox显示东西就开心的蹦起来了.
哈哈~~
男人 没良心.
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|海浩社区

GMT+8, 2025-9-16 04:02 , Processed in 0.102421 second(s), 21 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表