Aprire Visual Basic 6 dalla icona "Start" , che si trova sulla barra delle applicazioni di Windows .
2
Seleziona " Standard.exe " e fare clic su "Apri" per avviare una nuova applicazione di Visual Basic 6 .
3
Trascinare l'icona " casella di testo " per la finestra denominata " Form1 ", la creazione di una casella di testo con l'etichetta " Text1 ".
4
Trascinare l'icona " CommandButton " per la finestra denominata " Form1 ", creando un pulsante " Command1 ".
5 Fare doppio clic sul pulsante " Command1 " per aprire il codice finestra. Sotto la linea denominata " Private Sub Command1_Click ( ) " incolla il codice :
scompare fioco come stringa
dim iCount As Integer
contai = 1 To Len ( Text1. text ) per
scompare = Mid $ ( Text1.Text , iCount , 1 ) per
Text1.Text = Mid $ ( Text1.Text , iCount + 1 , Len _ ( Text1.Textt ) )
Se scompare piace ( " [ AZ ] ") o _
scompare piace ( " [ az] ") o _
scompare piace ( " # ") Then
msgbox ( " caratteri Alpa solo " ) per
Else
msgbox ( caratteri non alfabetici trovati " ) per
Exit Function
End Se
Avanti iCount
6
Premere il tasto " F5 " per eseguire l'applicazione Visual Basic . Digitare il testo che si desidera controllare nella casella di testo . Fai clic sul pulsante " Command1 , " e un messaggio verrà display a verificare se il testo è alfabetico oppure no .
Programmazione © www.354353.com