海信家电”换帅 “ 高玉玲接替代慧忠出任新任董事长
2024-11-22
sub Add1(ByVal no as int32) no=no+100 end sub sub Add2(ByRef no as int32) no=no+100 end sub private sub button1_click(sender as object,e as eventargs)handles button1.click dim a as int32 a=100 Add1(a) msgbox ("a的值为:" & a) '显示:a的值为100 Add2(a) msgbox ("a的值为:" & a) '显示:a的值为200,因为Add2中的参数no为ByRef,即 '按地址传递,因此在Add2中对no进行修改后,将会导致 '源参数a的值也被修改。 End Sub |
评论 {{userinfo.comments}}
{{child.content}}
{{question.question}}
提交