Quelles sont les méthodes pour implémenter la conversion des lettres majuscules et le calcul du pourcentage en VB ?

WBOY
Libérer: 2024-01-17 10:06:16
avant
916 Les gens l'ont consulté

Quelles sont les méthodes pour implémenter la conversion des lettres majuscules et le calcul du pourcentage en VB ?

Il y a un problème avec la conversion du texte minuscule en majuscule en VB Comment utiliser le pourcentage en VB.

Copiez le code ci-dessous directement dans le formulaire pour tester Private Sub Form_Load()

Dim petit comme String

Dim Big As String

Dim xiaoShu en tant que célibataire

Dim BaifenShu comme chaîne

small = InputBox("Veuillez entrer une chaîne")

Grand = UCase (petit)

MsgBox "La chaîne que vous avez saisie sera convertie en majuscule et le résultat sera :" & vbCrLf & Big

xiaoShu = InputBox ("Veuillez saisir une décimale qui doit être convertie en pourcentage :")

BaifenShu = CStr(xiaoShu * 100) & "%"

MsgBox "Le pourcentage correspondant à la décimale que vous avez saisi est :" & BaifenShu

Fin du sous-marin

Écrivez un programme en VB pour convertir les caractères saisis dans la zone de texte

Par exemple, lorsque vous saisissez des majuscules, l'événement text_change est déclenché et il sera modifié en minuscules, ce qui déclenchera l'événement de changement, et les minuscules seront à nouveau modifiées en majuscules. Il s'agit d'une boucle infinie, conduisant à un débordement

.

Vous pouvez définir une variable pour enregistrer l'état actuel. Une fois modifiée, elle ne sera plus exécutée tant qu'il n'y aura pas de saisie au clavier ou à la souris

.

Dim b comme booléen

Sous-marin privé t1_Change()

Si b Alors

b = Faux

t1.SelStart = Len(t1.Texte)

a = Droite(t1.Texte, 1)

Si Asc(a) >= 65 Et Asc(a)

t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + LCase(a)

ElseIf Asc(a) >= 97 Et Asc(a)

t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + UCase(a)

ElseIf Asc(a) = 32 Alors

t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + a

Autre

t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + "*"

Fin si

Fin si

Fin du sous-marin

Sub privé t1_KeyDown (KeyCode en entier, Shift en entier)

b = Vrai

Fin du sous-marin

Private Sub t1_MouseDown (Bouton en tant qu'entier, Shift en tant qu'entier, X en tant que simple, Y en tant que simple)

b = Vrai

Fin du sous-marin

Programme de conception VB pour convertir les caractères d'entrée

À proprement parler, les touches Entrée et Retour arrière ne doivent pas être converties. Si vous convertissez deux textes, vous ne pourrez pas suivre la progression. Vous ne pouvez le faire que selon les instructions de l'affiche originale.

Sous-Formulaire Privé_Load()

Texte1.Texte = ""

Texte2.Texte = ""

Fin du sous-marin

Sous-texte privé1_KeyPress (KeyAscii comme entier)

Sélectionnez Case KeyAscii

Cas 65 à 90

Text2.Text = Text2.Text & LCase(Chr(KeyAscii))

Cas 97 à 122

Text2.Text = Text2.Text & UCase(Chr(KeyAscii))

Cas 32

Text2.Text = Text2.Text & Chr(KeyAscii)

Autre cas

Texte2.Texte = Texte2.Texte & Chr(42)

Fin de la sélection

Fin du sous-marin

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!

source:docexcel.net
Déclaration de ce site Web
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn
Tutoriels populaires
Plus>
Derniers téléchargements
Plus>
effets Web
Code source du site Web
Matériel du site Web
Modèle frontal