Private Sub Command1_Click() strtmp = Text1.Text nlen = Len(strtmp) k = 1 For i = 1 To nlen j = Asc(Mid(strtmp, i, 1)) If j < 47 Or j > 58 Then k = 2 End If Next i If k <> 2 Then Text2.Text = Val(Text1.Tex

ComputeTrngleCentroid.c“计算三角形中点”-ComputeTrngleCentroid.c " triangle mid-point of the calculation"