|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 子过程要怎么做
我的收件箱(0)
共有
395
人关注过本帖
标题:
子过程要怎么做
只看楼主
加入收藏
yu1365355231
等 级:
新手上路
帖 子:3
专家分:0
注 册:2022-4-25
结帖率:
0
楼主
收藏
已结贴
√
问题点数:20 回复次数:7
子过程要怎么做
写一个子过程叫“printa”,可以实现一串“aaaaaaaaaa
搜索更多相关主题的帖子:
过程
2022-04-25 19:18
举报帖子
使用道具
赠送鲜花
yu1365355231
等 级:
新手上路
帖 子:3
专家分:0
注 册:2022-4-25
第
2
楼
收藏
得分:0
回复 楼主 yu1365355231
谢谢各位了
2022-04-25 19:21
举报帖子
使用道具
赠送鲜花
與子同跑
等 级:
新手上路
帖 子:4
专家分:5
注 册:2022-3-27
第
3
楼
收藏
得分:5
按F1查看帮助文档,搜索「String函数」。
2022-04-25 19:56
举报帖子
使用道具
赠送鲜花
yu1365355231
等 级:
新手上路
帖 子:3
专家分:0
注 册:2022-4-25
第
4
楼
收藏
得分:0
回复 3楼 與子同跑
能具体点吗大佬,我没懂
2022-04-25 20:57
举报帖子
使用道具
赠送鲜花
风吹过b
等 级:
版主
威 望:
331
帖 子:4782
专家分:29553
注 册:2008-10-15
第
5
楼
收藏
得分:5
过程,还是函数
这二个的区别是过程没有返回值 ,函数是有返回值。
过程 以 sub 关键字定义
sub 过程名(参数表,可为空)
语句....
end sub
函数,以 function 关键字定义
function 函数名(参数表,可以为空) as 返回值类型
语句...
函数名=?? '返回值赋值
end function
-------------------------
还有一种是古老的 gosub 跳转,return 返回的方法,都不记得 VB6 还支持不。
语句
gosub 标号
语句
。。。。。。
end '防止未经跳转执行到子过程中
标号:
语句。。。
return
子过程,无返回值,如需要请使用全局变量。
还有一个命令
On...GoSub
如
on s gosub 标号1,标号2,标号3
授人于鱼,不如授人于渔
早已停用QQ了
2022-04-25 23:40
举报帖子
使用道具
赠送鲜花
apull
来 自:三体星系
等 级:
版主
威 望:
115
帖 子:1098
专家分:6408
注 册:2010-3-16
第
6
楼
收藏
得分:5
程序代码:
sub
printa(ch,n)
for
i=
1
to
n
print
ch
next
end sub
2022-04-25 23:50
举报帖子
使用道具
赠送鲜花
苍穹之舞
等 级:
论坛游民
威 望:
1
帖 子:59
专家分:35
注 册:2014-10-7
第
7
楼
收藏
得分:5
图片附件: 游客没有浏览图片的权限,请
登录
或
注册
Private Sub Command1_Click()
printa(a,6) 这一行提示语法错误,咋回事?
End Sub
Public Function printa(ch, n)
For i = 1 To n
Print ch
Next i
End Function
2022-04-26 15:48
举报帖子
使用道具
赠送鲜花
apull
来 自:三体星系
等 级:
版主
威 望:
115
帖 子:1098
专家分:6408
注 册:2010-3-16
第
8
楼
收藏
得分:0
调用sub不需要加括号,a要用引号引起来,不然会当做变量处理
printa "a",6
2022-04-26 16:35
举报帖子
使用道具
赠送鲜花
8
1/1页
1
快速回复:
子过程要怎么做
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.082699 second(s), 9 queries.
Copyright©2004-2022, BCCN.NET, All Rights Reserved