Classifica Maschile

1 - Scrivere un programma che legga una frase introdotta da tastiera. La frase contiene sia caratteri
maiuscoli che caratteri minuscoli, e complessivamente al più 100 caratteri. Il programma dovrà stampare su
schermo le seguenti informazioni:
•
•
•
per ognuna delle lettere dell’alfabeto, il numero di volte che la lettera compare nella stringa
il numero di consonanti presenti nella stringa
il numero di vocali presenti nella stringa.
Dim s As String, p As String, carattere As String, sVocali As String, sConsonanti As
String, sAlfabeto As String
Dim l As Integer, vocali As Integer, consonanti As Integer, contatore As Integer
Dim risultato As String
sVocali = "AEIOU"
sConsonanti = "QWRTYPSDFGHJKLZXCVBNM"
risultato = ""
sAlfabeto = sVocali & sConsonanti
s = Trim(UCase(txtIn.Text))
l = Len(s)
For i = 1 To l
carattere = Mid(s, i, 1)
If InStr(sVocali, carattere) > 0 Then
vocali = vocali + 1
Else
If InStr(sConsonanti, carattere) > 0 Then
consonanti = consonanti + 1
End If
End If
Next
For h = 1 To Len(sAlfabeto)
contatore = 0
For i = 1 To l
carattere = Mid(s, i, 1)
If carattere = Mid(sAlfabeto, h, 1) Then contatore = contatore + 1
Next
risultato = risultato & Mid(sAlfabeto, h, 1) & " compare " & Str(contatore)
& " volte" & vbCrLf
Next
risultato = risultato & vbCrLf & "Ci sono " & Str(vocali) & " vocali " & vbCrLf
& "Ci sono " & Str(consonanti) & " consonanti "
txtOut.Text = risultato
2 - Scrivere un programma che legga una frase introdotta da tastiera. La frase contiene sia caratteri
maiuscoli che caratteri minuscoli, e complessivamente al più 100 caratteri. Il programma deve svolgere le
seguenti operazioni:
•
•
•
•
visualizzare la frase inserita;
costruire una nuova frase tale che ogni lettera vocale presente nella frase di partenza sia seguita
dalla lettera ’f’ (se la vocale e minuscola) o dalla lettera ` ’F’ (se la vocale e maiuscola) nella nuova
frase.
Il programma deve memorizzare la nuova frase in una opportuna variabile.
visualizzare la nuova frase.
Ad esempio, la frase VacAnze di NaTAle diviene VafcAFnzef dif NafTAFlef.
Dim s As String, p As String, carattere As String
Dim l As Integer
Dim risultato As String, sVocaliMaiuscole As String, sVocaliMinuscole As String
sVocaliMaiuscole = "AEIOU"
sVocaliMinuscole = "aeiou"
risultato = ""
s = Trim(txtIn.Text)
l = Len(s)
For i = 1 To l
carattere = Mid(s, i, 1)
If InStr(sVocaliMaiuscole, carattere) > 0 Then
risultato = risultato & carattere & "F"
ElseIf InStr(sVocaliMinuscole, carattere) > 0 Then
risultato = risultato & carattere & "f"
else
risultato = risultato & carattere
End If
Next
txtOut.Text = risultato
3 - Scrivere un programma che legga una frase introdotta da tastiera. La frase contiene sia caratteri
maiuscoli che caratteri minuscoli, e complessivamente al piu 100 caratteri. Il programma deve svolgere le
seguenti operazioni:
•
•
•
visualizzare la frase inserita
costruire una nuova frase in cui il primo carattere di ciascuna parola nella frase di partenza è stato
reso maiuscolo. Tutti gli altri caratteri devono essere resi minuscoli. Il programma deve
memorizzare la nuova frase in una opportuna variabile
visualizzare la nuova frase.
Ad esempio la frase cHe bElLA gIOrnaTa diviene Che Bella Giornata.
Dim s As String, carattere As String, carattere_successivo As String
Dim l As Integer, i As Integer
Dim risultato As String
risultato = ""
s = Trim(txtIn.Text)
l = Len(s)
carattere = Mid(s, 1, 1)
risultato = risultato & UCase(carattere)
i = 2
Do
carattere = Mid(s, i, 1)
If carattere = " " Then
carattere_successivo = Mid(s, i, 1 + 1)
risultato = risultato & " " & UCase(carattere_successivo)
i = i + 2
Else
risultato = risultato & LCase(carattere)
i = i + 1
End If
Loop While i <= l
txtOut.Text = risultato
4- Scrivere un programma che legga da tastiera un numero binario puro sotto forma di una stringa di
caratteri (0 o 1) lunga al massimo 24 bit. Il programma deve:
•
•
•
controllare che la stringa inserita sia corretta, vale a dire composta solo da caratteri 0 e 1
convertire il numero binario inserito nell’equivalente valore decimale
stampare sul video il valore decimale.
Dim s As String, flag As String
Dim n10 As Integer, b As Integer
b = 2
Do
flag = "s"
s = Trim(UCase(InputBox("Inserire numero in base 2")))
For i = 1 To Len(s)
If Mid(s, i, 1) <> "0" And Mid(s, i, 1) <> "1" Then
flag = "n"
Exit For
End If
Next
Loop Until flag = "s"
n10 = 0
For i = 1 To Len(s)
n10 = n10 + Val(Mid(s, i, 1)) * (2 ^ (Len(s) - i))
Next
MsgBox("il numero " & s & " in base " & b & " diventa, in base 10 " & Str(n10))
5 - Scrivere un programma che legga da tastiera una base <10 e un numero intero in quella base puro sotto
forma di una stringa di caratteri. Il programma deve:
•
•
•
controllare che la base sia <10 e la stringa inserita sia corretta, vale a dire composta solo da
caratteri appartenenti all’alfabeto della base
convertire il numero inserito nell’equivalente valore decimale
stampare sul video il valore decimale.
Dim s As String, flag As String
Dim n10 As Integer, b As Integer
Do
b = Val(InputBox("inserire base < 10"))
Loop While b >= 10
Do
flag = "s"
s = Trim(UCase(InputBox("Inserire numero in base " & Str(b))))
For i = 1 To Len(s)
If Val(Mid(s, i, 1)) >= b Then
flag = "n"
Exit For
End If
Next
Loop Until flag = "s"
n10 = 0
For i = 1 To Len(s)
n10 = n10 + Val(Mid(s, i, 1)) * (b ^ (Len(s) - i))
Next
MsgBox("il numero " & s & " in base " & b & " diventa, in base 10 " & Str(n10)

Download Report