public sub procl(n as integer,byval m as integer) n=n mod 10 m=m/10 end sub private sub command1_click() dim x as integer,y as integer x=15:y=56 call procl(x,y) print x,y end sub 纯手打(*/∇\*)完全看不懂,百度也找不到好的答案,求大神指教
这是一段某人自己写的代码。 妻用图和每个变量的含义只能从字面上猜测——好在程序比较简单,还可以猜测: public sub procl(n as integer,byval m as integer)'这是一个设计代码的人自己设计的过程,n是传入参数,并返回其个位的值。m用来传入一个数并返回其十位以及其上各位的总值,结合下属代码看,都是用二位数,m则是十位的值。 n=n mod 10'计算个位的值,并存入n中 m=m/10‘将十位以上存入m中 end sub'这个过程结束 private sub command1_click()‘系统过程,按钮一被单击是运行一下编程人员写的代码 dim x as integer,y as integer'声明两个整数 x=15:y=56'给他俩赋值 call procl(x,y)'调用前面程序员自己写的那个过程,返回第一个参数的个位、第二个参数的十位及以上 print x,y'输出上面过程的返回值 end sub‘过程结束