| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 706 人关注过本帖
标题:大哥们下面的应怎样改
只看楼主 加入收藏
ddjzzx
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-7-7
收藏
 问题点数:0 回复次数:6 
大哥们下面的应怎样改

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim p As String
a = Val(InputBox("请输入第1个数:", "输入框", 0))
b = Val(InputBox("请输入第2个数:", "输入框", 0))
c = Val(InputBox("请输入第3个数:", "输入框", 0))
h = a + b + c
p=" "&a&","&b&","&c
p=p&"的和是:"& str(h)
Labell.Caption = p
End Sub
为什么我输入p=" "&a&","&b&","&c和p=p&"的和是:"& str(h) 它说是

图片附件: 游客没有浏览图片的权限,请 登录注册

搜索更多相关主题的帖子: Val Single InputBox 
2007-07-07 20:15
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
以下是引用ddjzzx在2007-7-7 20:15:33的发言:

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim p As String
a = Val(InputBox("请输入第1个数:", "输入框", 0))
b = Val(InputBox("请输入第2个数:", "输入框", 0))
c = Val(InputBox("请输入第3个数:", "输入框", 0))
h = a + b + c
p=" "&a&","&b&","&c
p=p&"的和是:"& str(h)
Labell.Caption = p
End Sub
为什么我输入p=" "&a&","&b&","&c和p=p&"的和是:"& str(h) 它说是


& 这个是连接符号也不是MM,不要靠那么紧嘛. (小心告非礼哦)

p=" " & a & "," & b & "," & c
p=p & "的和是:" & str(h)

[此贴子已经被作者于2007-7-7 20:58:36编辑过]


Repeat  Life=Study;Until (death);
2007-07-07 20:38
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
如果它是MM的话,犯那点错是可以理解滴

Repeat  Life=Study;Until (death);
2007-07-07 20:39
静夜嘶
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2007-7-2
收藏
得分:0 
以下是引用缘吇弹在2007-7-7 20:39:54的发言:
如果它是MM的话,犯那点错是可以理解滴

严重同意


2007-07-08 02:15
ddjzzx
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-7-7
收藏
得分:0 
回复:(缘吇弹)以下是引用ddjzzx在2007-7-7 20:15:3...

原来它是要告诉我 :老大,空间太小,你让我们怎么施展手脚啊
大哥 小弟谢谢你了


2007-07-08 20:48
ddjzzx
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-7-7
收藏
得分:0 
回复:(静夜嘶)以下是引用缘吇弹在2007-7-7 20:39:5...
谢谢MM的光临
下次有什么不知道的地方,我先问你哈
呵呵

2007-07-08 20:50
寻找
Rank: 2
等 级:论坛游民
帖 子:132
专家分:19
注 册:2007-3-2
收藏
得分:0 

呵呵~~注意了

2007-07-08 23:48
快速回复:大哥们下面的应怎样改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031007 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved