Private Sub Command1_Click( )
Dim s As Integer
Dim I As Integer
S=0
For i=1 To 10
s=s+i\7
Next i
Text1.text=str(s)
End sub
该程序段运行后,文本框Text1中显示____
复数(3+i)m-(2+i)对应的点在第三象限内,则实数m的取值范围是( )