Welche Methoden gibt es, um die Konvertierung von Großbuchstaben und die Prozentberechnung in VB zu implementieren?

Es gibt ein Problem beim Konvertieren von Kleinbuchstaben in Großbuchstaben in VB. Wie man Prozentsätze in VB verwendet Kopieren Sie den Code unten direkt in das Formular, um Private Sub Form_Load() zu testen

Dim klein als String

Dim Big As String

Dim xiaoShu als Single

Dim BaifenShu As String

small = InputBox（＂Bitte geben Sie eine Zeichenfolge ein）

Groß = UCase (klein)

MsgBox „Die von Ihnen eingegebene Zeichenfolge wird in Großbuchstaben umgewandelt und das Ergebnis ist:“ & vbCrLf & Big

xiaoShu = InputBox („Bitte geben Sie eine Dezimalzahl ein, die in einen Prozentsatz umgewandelt werden muss:“)

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

MsgBox „Der Prozentsatz, der der von Ihnen eingegebenen Dezimalzahl entspricht, ist:“ & BaifenShu

End Sub

Schreiben Sie ein Programm in VB, um die im Textfeld eingegebenen Zeichen umzuwandeln

Wenn Sie beispielsweise Großbuchstaben eingeben, wird das Ereignis text_change ausgelöst und in Kleinbuchstaben umgewandelt, wodurch das Änderungsereignis ausgelöst wird, und der Kleinbuchstabe wird wieder in Großbuchstaben umgewandelt. Dies ist eine Endlosschleife, die zu einem Überlauf führt

Sie können eine Variable definieren, um den aktuellen Zustand zu speichern. Sobald sie geändert wurde, wird sie erst dann ausgeführt, wenn eine Tastatur- oder Mauseingabe erfolgt

Dim b As Boolean

Private Sub t1_Change()

Wenn b Dann

b = Falsch

t1.SelStart = Len(t1.Text)

a = Right(t1.Text, 1)

Wenn Asc(a) >= 65 und Asc(a) t1.Text = Mid$(t1.Text, 1, Len(t1.Text) - 1) + LCase(a)

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

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

ElseIf Asc(a) = 32 Then

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

Sonst

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

Ende wenn

Ende wenn

End Sub

Private Sub t1_KeyDown(KeyCode als Ganzzahl, Verschiebung als Ganzzahl)

b = Wahr

End Sub

Private Sub t1_MouseDown(Button als Ganzzahl, Umschalttaste als Ganzzahl, X als Einzelzahl, Y als Einzelzahl)

b = Wahr

End Sub

VB-Designprogramm zum Konvertieren von Eingabezeichen

Genau genommen sollten die Tasten Enter und Backspace nicht konvertiert werden, wenn Sie zwei Texte konvertieren. Sie können dies nur gemäß den Anweisungen des Originalposters tun

Private Sub Form_Load()

Text1.Text = ＂＂

Text2.Text = ＂＂

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Wählen Sie Case KeyAscii

Fall 65 bis 90

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

Fall 97 bis 122

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

Fall 32

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

Fall sonst

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

Auswahl beenden

End Sub

Das obige ist der detaillierte Inhalt vonWelche Methoden gibt es, um die Konvertierung von Großbuchstaben und die Prozentberechnung in VB zu implementieren?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!