Private Sub Command1_Click()
If Text1.Text = "" Then
Text1.SetFocus
Else
Text2.Text = "星期" & Text1.Text
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text1.MaxLength = 1
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Chr(KeyAscii)
Case "1" To "7", Chr(8)
Case Else
KeyAscii = 0
End Select
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024