程序执行结果s的值是 【7】 。 Private Sub subl(Byval p As Integer) p=p*2 End Sub Private Sub Commandl_Click() Dim i As Integer i=3 Call subl(i) ifi>4 then i=i mod 2 Print cstr(i) End Sub
主观题
程序执行结果s的值是 【7】 。 Private Sub subl(Byval p As Integer) p=p*2 End Sub Private Sub Commandl_Click() Dim i As Integer i=3 Call subl(i) ifi>4 then i=i mod 2 Print cstr(i) End Sub