Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim i As Integer

n = Val(Text1.Text)

s = 1

For i = 2 To n

  s = s * i

Next i

Label1.Caption = Str(n) + "!=" + Str(s)

End Sub

When did the first Chinese woman arrive at the top of Qomolangma?

小琦同学在用小磁针做“探究条形磁铁周围的磁场分布”的实验时惊奇地发现，小磁针A出现了如图所示的现象．课后小琦同学对这一现象进行了探究，发现：小磁针A实际的“N”极和“S”极与标识的“N”极和“S”极相反．

（1）你认为小琦是怎样得知小磁针A实际的“N”极和“S”极与标识的“N”极和“S”极相反，请简述探究过程．

（2）小琦同学还了解到前几节课的同学用这些器材做实验时，并没有出现这一现象，说明小磁针A在这段时间内“N”极和“S”极出现了反转．你认为出现“N”极和“S”极反转的最可能原因是什么？