任俊雅这个名字是七十六分，说是“俊”字不适合女生，“雅”字不错，单个字属八星以上共十星鉴于嫂子姓王，我把中间那字改了一下，分数稍高的有任琴雅，八十六，任琪雅，八十一如果考虑出生时间为早上天快亮。

一个textbox，一个labelPrivate Sub Text1_ChangeLabel1ForeColor = vbBlack Label1 = quot请输入分数quotIf LenText1 = 0 Then Exit Sub Select Case ValText1Case Is 100， Is lt 0。