Sub stick()Dim i As IntegerDim j As IntegerFor i = 1 To 7For
1个回答
有两个for但是只有一个next
直接在原来next下一行再加个next就行了.
相关问题
请问下列每句的解释Sub Macro1()Dim arr,rng As Range,i As LongApplicati
dim m(5,5),s(5) for i=1 to 5 s(i)=0 for j=1 to 5 m(i,j)=i+j
Private Sub Command1_Click() Dim x As Single,y As Single Pic
0402 Private Sub Command1_Click() Dim a As Single,b As Singl
Private Sub Form_Click( ) Dim x As Integer,y As Integer,z As
如何把整数型转换成文本型dim sz1 as Integerdim sz2 As String * 12ReadProc
Private Sub Form_Click() Dim x As Integer Static y As Intege
英语翻译Dim a,b As IntegerDim c As DoubleIf (a>0,and b>0) Then c
英语翻译Private Sub cmdOK_Click()Dim SQL As StringDim rs As ADOD
Fix函数的具体用法,Prirate sub Form__click( )Dim R1 as double ,Dim R