7,784
社区成员
发帖
与我相关
我的任务
分享
- 全部
...
这道题怎么解(重复)
Sub P1(X As Integer,Byval y As Integer)
Dim z As Integer
Z=X
X=Y
Y=X
End Sub
Private Sub Command1_Click( )
Dim m As Integer, n As Integer
M=5
N=20
P1 M,N
Print “m=”; m; “n=”;n
为什么程序运行后结果为:m=20 n=20,请详解,谢谢各位老师!
Dim z As Integer
Z=X
X=Y
Y=X
End Sub
Private Sub Command1_Click( )
Dim m As Integer, n As Integer
M=5
N=20
P1 M,N
Print “m=”; m; “n=”;n
为什么程序运行后结果为:m=20 n=20,请详解,谢谢各位老师!
...全文
给本帖投票
请发表友善的回复…
发表回复
捏造的信仰 2004-07-08
- 打赏
- 举报
第一个参数前面没有byval啦，加上去就行了
byval是按值传递 VB里面默认是按引用传递
byval是按值传递 VB里面默认是按引用传递
pigpag 2004-07-07
- 打赏
- 举报
改错题？还是解释题？
northwolves 2004-07-07
- 打赏
- 举报
Sub P1(X As Integer,Byval y As Integer)
Dim z As Integer
Z=X
X=Y
Y=X '------------->改为 y=z
End Sub
Dim z As Integer
Z=X
X=Y
Y=X '------------->改为 y=z
End Sub
yinweihong 2004-07-07
- 打赏
- 举报
你要什么样的结果？
Sub P1(X As Integer,y As Integer)
Dim z As Integer
Z=X
X=Y
Y=z
End Sub
Sub P1(X As Integer,y As Integer)
Dim z As Integer
Z=X
X=Y
Y=z
End Sub
online 2004-07-07
- 打赏
- 举报
看着是个两个数交换，好像又不是
设置断点跟踪，这样你可以看到变量的变化
设置断点跟踪，这样你可以看到变量的变化
公安备案号11010502030143- 京ICP备19004658号
- 京网文〔2020〕1039-165号
- 经营性网站备案信息
- 北京互联网违法和不良信息举报中心
- 家长监护
- 网络110报警服务
- 中国互联网举报中心
- Chrome商店下载
- 账号管理规范
- 版权与免责声明
- 版权申诉
- 出版物许可证
- 营业执照
- ©1999-2025北京创新乐知网络技术有限公司
