'统计字符串中是否有文字，是否全是数字 Function hasnoChinese(str) bl = True For i = 1 to Len(str) - 0 'ss=CStr(Asc(Mid(str,i,1))) 'msgbox ss If Asc(Mid(str,i,1)) < 0 Then bl = False End If Next hasnoChinese = bl End Function Function UnAdjustNote(FontClass,dx,dy,wi
欧洲重力卫星软件的手册.The Gravity and Ocean Circulation Experiment - GOCE satellite mission is a new type of Earth observation satellite that will measure the Earth gravity and geoid with unprecedented accuracy. Combining GOCE geoid models with satellite alti
