请帮忙把全部翻译下，越详细越好

Dim a(10) As Integer, i As Integer '定义窗体层变量a(10)和i都是短整型，不过这里有个错误：a(10) As Integer是不能在窗体层定义的，只能定义成a() as integer，然后在程序中用redim重新定义

Private Sub s1() '了程序s1

Option Explicit '强制声明所有变量

Dim i%, j%, k% '定义窗体层变量i、j、k都是短整型，这里也有问题，i在前面已经定义过了。

Private Sub Form_Click() '窗体的单击事件

i = 0: j = 1: k = 2 '令i = 0: j = 1: k = 2

Call q(i, k): Print i, j, k '先调用子程序q，参数是i，k，然后以宽行格式打印i, j, k

Call q(j, k): Print i, j, k '先调用子程序q，参数是j，k，然后以宽行格式打印i, j, k

Call q(k, j): Print i, j, k '先调用子程序q，参数是k，j，然后以宽行格式打印i, j, k

End Sub '结束

Private Sub q(ByVal h%, ByVal k%)'定义子程序q

Dim j% '定义变量j

j = k '令j=传过来的参数k

If h = 0 Then '如果传过来的参数h为0，

Call p(i) '就把i作为参数，调用子程序p

ElseIf h = 1 Then '如果传过来的参数h为1

Call p(j) '就把j作为参数，调用子程序p

Else '如果都不是

Call r '就调用子程序r

End If'结束判断

End Sub '结束子程序

Private Sub p(j%) '定义子程序p

j = j + 1 '把j自加1

Print i, j, k '打印 i, j, k

End Sub '结束子程序

Private Sub r() '定义子程序r

j = j + 1 '把j自加1

End Sub'结束子程序

程序参考网上的资源，在此谢谢这些无私奉献的朋友！！！

;/

/ 实验目的：1掌握键盘扫描的原理以及十/十六进制的转换

2了解单片机输入和输出的过程,以及如何对数据进行采集的

实验内容：键盘上对应有16个按键,从0到F,按下相应的键会在数码管上显示相应的数字,

其中K0到K15是采用44的方式连接的

/

;

; 0 1 2 3 ---P20

; 4 5 6 7 ---P21

; 8 9 A B ---P22

; C D E F ---P23

; | | | |

; P24 P25 P26 P27

;

ORG 0000h

LJMP MAIN

ORG 0030h

MAIN:

MOV DPTR,#TAB ;将表头放入DPTR

LCALL KEY ;调用键盘扫描程序

MOVC A,@A+DPTR ;查表后将键值送入ACC

MOV P0,A ;将Acc值送入P0口

CLR P13 ;开显示

LJMP MAIN ;返回调用子程序反复循环显示

KEY: LCALL KS ;调用检测按键子程序

JNZ K1 ;有键按下继续

LCALL DELAY2 ;无键按下调用延时去抖动程序

AJMP KEY ;返回继续检测有无按键按下

K1: LCALL DELAY2

LCALL DELAY2 ;有键按下继续延时去抖动

LCALL KS ;再一次调用检测按键程序

JNZ K2 ;确认有按下进行下一步

AJMP KEY ;无键按下返回继续检测

K2: MOV R2,#0EFH ;将扫描值送入 R2暂存

MOV R4,#00H ;将第一列的列值00H送入R4暂存,R4用于存放列值。

K3: MOV P2,R2 ;将R2的值送入P2口

L6: JB P20,L1 ;P20等于1跳转到L1

MOV A,#00H ;将第一行的行值00H送入ACC

AJMP LK ;跳转到键值处理程序

L1: JB P21,L2 ;P21等于1跳转到L2

MOV A,#04H ;将第二行的行值送入ACC

AJMP LK ;跳转到键值理程序进行键值处理

L2: JB P22,L3 ;P12等于1跳转到L3

MOV A,#08H ;将第三行的行值送入ACC

AJMP LK ;跳转到键值处理程序

L3: JB P23,NEXT ;P23等于1跳转到NEXT处

MOV A,#0cH ;将第四行的行值送入ACC

LK: ADD A,R4 ;行值与列值相加后的键值送入A

PUSH ACC ;将A中的值送入堆栈暂存

K4: LCALL DELAY2 ;调用延时去抖动程序

LCALL KS ;调用按键检测程序

JNZ K4 ;按键没有松开继续返回检测

POP ACC ;将堆栈的值送入ACC

RET

NEXT:

INC R4 ;将列值加一

MOV A,R2 ;将R2的值送入A

JNB ACC7,KEY ;扫描完成跳至KEY处进行下一回合的扫描

RL A ;扫描未完成将A中的值右移一位进行下一列的扫描

MOV R2,A ;将ACC的值送入R2暂存

AJMP K3 ;跳转到K3继续

KS: MOV P2,#0FH ;将P2口高四位置0低四位值1

MOV A,P2 ;读P2口

XRL A,#0FH ;将A中的值与A中的值相异或

RET ;子程序返回

DELAY2: ;40ms延时去抖动子程序8FA2=40ms

MOV R5,#08H

L7: MOV R6,#0FAH

L8: DJNZ R6,L8

DJNZ R5,L7

RET

TAB:

DB 0C0H;0

DB 0F9H;1

DB 0A4H;2

DB 0B0H;3

DB 099H;4

DB 092H;5

DB 082H;6

DB 0F8H;7

DB 080H;8

DB 090H;9

DB 088H;A

DB 083H;b

DB 0C6H;C

DB 0A1H;d

DB 086H;E

DB 08EH;F

END

你写的是主程序调用子程序。根本不是宏程序。起码没有出现宏变量， 例； 主程序名为O1234，子程序为O1233 子程序为一个单独程序。

M98意思就是调用子程序，P代表调调用子程序名，L为调用次数，不论是新代系统还是FANUC系统都是一样的。

例；

O1234

G0 Z30

X-20

Z-4

M0

G0 Z30

M1

M98 P1233 L30

N10 T01

M03 M08 S2800

以上就是关于请帮忙把全部翻译下，越详细越好全部的内容，包括:请帮忙把全部翻译下，越详细越好、c语言怎么编写子程序！、数控车床宏程序的编制问题。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！