| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 501 人关注过本帖
标题:新手菜鸟请教,大虾莫笑
只看楼主 加入收藏
不戒
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-3-15
结帖率:0
收藏
已结贴  问题点数:20 回复次数:4 
新手菜鸟请教,大虾莫笑
我正在自学VB,做一个简单的快递付费软件
图片附件: 游客没有浏览图片的权限,请 登录注册

Private Sub cmd1_Click()
Dim a As Single
a = Val(txt.Text)
If a = 0 Then
lbl.Caption = "您应支付零元"
ElseIf a > 3 Then     '第二段。。。
lbl.Caption = "您应支付" & a + 2 & "元"     
ElseIf 0 < a < 3 Then    '第三段。。。
lbl.Caption = "您应支付5元"
End If
End Sub

Private Sub cmd2_Click()
lbl.Caption = ""
txt.Text = ""
End Sub

有两个问题,第一问题:事件一中,第二段和第三段换个位置,我输入5,6,7。。。结果都是5元,为什么?
第二个问题:如果TXT。TEXT为空,点计算,出错,怎么解决?

菜鸟求指导,自学不容易啊~~~~
搜索更多相关主题的帖子: 问题 
2012-03-29 09:10
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:10 
以下是引用不戒在2012-3-29 09:10:58的发言:

我正在自学VB,做一个简单的快递付费软件

Private Sub cmd1_Click()
Dim a As Single
a = Val(txt.Text)
If a = 0 Then
lbl.Caption = "您应支付零元"
ElseIf a > 3 Then     '第二段。。。
lbl.Caption = "您应支付" & a + 2 & "元"     
ElseIf 0 < a < 3 Then    '第三段。。。
lbl.Caption = "您应支付5元"
End If
End Sub

Private Sub cmd2_Click()
lbl.Caption = ""
txt.Text = ""
End Sub

有两个问题,第一问题:事件一中,第二段和第三段换个位置,我输入5,6,7。。。结果都是5元,为什么?
第二个问题:如果TXT。TEXT为空,点计算,出错,怎么解决?

菜鸟求指导,自学不容易啊~~~~

不容易啊
select

无知
2012-04-03 22:59
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
Private Sub cmd1_Click()
Dim a As Single
if not isnumber(txt.text) then           '如果输入不为数字,则提示
    lbl.caption="请输入重量"
else
  a = Val(txt.Text)      '否则,转换为数值
if a>0 then        '输入了重量
  a=int(a)+2        '取整,并计算价格
  if a<5 then         '如果价格小于5元
    a=5            '最低支付5元
  end if
else   
  a=0            '重量为负数或0,就支付0元
end if
lbl.caption="你应支付" & a & "元。"

End If
End Sub

授人于鱼,不如授人于渔
早已停用QQ了
2012-04-04 09:05
zhaojunkai
Rank: 1
等 级:新手上路
帖 子:2
专家分:1
注 册:2011-8-28
收藏
得分:0 
回复 3楼 风吹过b
楼主、、、代码精炼、、、简洁、、帅啊、、
2012-04-19 16:02
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
不戒
 


 等 级:新手上路
 帖 子:5
 专家分:0
 注 册:2012-3-15
 结帖率:0%
https://bbs.bccn.net/thread-332567-1-1.html

无知
2012-04-20 00:35
快速回复:新手菜鸟请教,大虾莫笑
数据加载中...
 
   



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

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