Private? Sub？ Command 1_Click()

Dim? p，？ Me? j，？ Jurist (jurisconsult)

p？ =? 0

For what? Me? =? 1? Where to? 9? One step? 2

JC？ =? 1

For what? j？ =? 1? Where to? I

JC？ =? JC？ *? J

Next? J

p？ =? p？ +? Jurist (jurisconsult)

Next? I

Text 1。 Words? =? P

End? submarine

the second question

Private? Sub？ Command2_Click()

Dim? m，？ n，？ S

s？ =? 0

n？ =? 0

For what? m？ =? 1? Where to? 100

What if? m？ Mod？ 7? =? 0? then

n？ =? n？ +? 1

s？ =? s？ +? ordinary

End? if

Next? M

Text 2. Words? =? ordinary

SMS 3. Words? =? S

End? submarine