Private Sub Text1_KeyDown(KeyCode As Integer, ShiftAs Integer)
　　Const Alt=4
　　Const Key_F2=&H71
　　altdown%=(ShiftAnd Alt)> 0
　　f2down%=(KeyCode=Key_F2)
　　If altdown% And f2down%Then
　　Text1.Text="abl"
　　End If
　　EndSub

谢谢你~

考试题~