level 3
☞有趣魂☜
楼主
Sub xxzdh()
Dim I as integer
Dim strs as string
Dim sw as string
I=100
Strs="自动化专业"
Sw=NumCal(I,strs)
End Sub
Public Function NumCal(byval nX as integer,byref sTrm as string) As string
Nc=65
Nx=Nc
sTrm=chr(Nx) & "，你好"
NumCal= "ADC" & sTrm
End Function
1、请问，在运行子程序xxzdh后，strs、I、sw的内容是什么？
2018年11月25日 09点11分
1
Dim I as integer
Dim strs as string
Dim sw as string
I=100
Strs="自动化专业"
Sw=NumCal(I,strs)
End Sub
Public Function NumCal(byval nX as integer,byref sTrm as string) As string
Nc=65
Nx=Nc
sTrm=chr(Nx) & "，你好"
NumCal= "ADC" & sTrm
End Function
1、请问，在运行子程序xxzdh后，strs、I、sw的内容是什么？
