| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 808 人关注过本帖
标题:我是新手,高手帮帮忙
只看楼主 加入收藏
xiaokiss2008
Rank: 2
等 级:论坛游民
帖 子:37
专家分:20
注 册:2011-7-8
结帖率:28.57%
收藏
已结贴  问题点数:20 回复次数:7 
我是新手,高手帮帮忙
Private Sub 除_Click()
a = CInt(Text1.Text)
b = CInt(Text2.Text)
If b = 0 Then Text3.Text = "N"
    Text2.SetFocus
    Exit Sub
End If
result = a / b
Label2.Caption = "/"
Text3.Text = result
End Sub
 
为什么显示end if 没有块 if  搞不懂
2012-01-12 11:06
apple0072011
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:9
帖 子:249
专家分:989
注 册:2011-8-17
收藏
得分:3 
Exit Sub
干什么用

天道酬勤
2012-01-12 13:22
sczhaozifei
Rank: 1
等 级:新手上路
帖 子:2
专家分:3
注 册:2012-1-12
收藏
得分:3 
exit sub 应该在end if 后面吧
2012-01-12 14:41
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:653
专家分:3402
注 册:2008-5-7
收藏
得分:3 
if 条件 then 表达式 :这种方式不需要end if结束if语句

if 条件 then
   .
   .
   .
  表达式
[else
   .
   .
   .
  表达式]
end if

这种方式需要end if结束if 语句

2012-01-12 15:16
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:3 
Private Sub 除_Click()
a = CInt(Text1.Text)     '二个数
b = CInt(Text2.Text)
If b = 0 Then           '除数为0
    Text3.Text = "N"              '要分成二行写,否则被认为一行IF,后面的 end if 就会报错。
    Text2.SetFocus
    Exit Sub           '退出过
End If
result = a / b           '计算
Label2.Caption = "/"
Text3.Text = result
End Sub

授人于鱼,不如授人于渔
早已停用QQ了
2012-01-12 17:30
w327555162
Rank: 2
等 级:论坛游民
帖 子:45
专家分:43
注 册:2011-1-4
收藏
得分:3 
a = CInt(Text1.Text)
b = CInt(Text2.Text)
If b = 0 Then
Text3.Text = "N"
    Text2.SetFocus
    Exit Sub
End If
result = a / b
Label2.Caption = "/"
Text3.Text = result
End Sub
2012-01-13 08:12
wx414398973
Rank: 1
等 级:新手上路
帖 子:1
专家分:3
注 册:2012-1-15
收藏
得分:3 
看不懂
2012-01-15 15:35
W513625843
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-1-20
收藏
得分:0 
我也是新手。。学习下
2012-01-20 17:11
快速回复:我是新手,高手帮帮忙
数据加载中...
 
   



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

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