VBで大文字変換とパーセント計算を実装する方法は何ですか?

VB で小文字のテキストを大文字に変換する際にはまだ問題があります。VB でパーセンテージを使用する方法

次のコードをフォームに直接コピーしてテストします Private Sub Form_Load()

Dim small As String

文字列と同じくらい大きな明るさ

Dim xiaoShu がシングルになりました

文字列としての Dim BaifenShu

small = InputBox（＂文字列を入力してください＂）

大 = UCase(小)

MsgBox "入力した文字列は大文字に変換され、結果は次のようになります:" & vbCrLf & Big

xiaoShu = InputBox (「パーセンテージに変換する必要がある小数を入力してください:」)

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

MsgBox "入力した小数に対応するパーセンテージは次のとおりです:" & BaifenShu

エンドサブ

VBはテキストボックスに入力された文字を変換するプログラムを書きます

たとえば、大文字を入力すると、text_change イベントがトリガーされ、小文字に変更され、変更イベントがトリガーされ、小文字が大文字に変更されます。これは無限ループとなり、オーバーフローが発生します

現在の状態を保存する変数を定義できます。一度変更すると、キーボードまたはマウスの入力があるまで実行されなくなります。

Dim bをブール値として使用

プライベートサブ t1_Change()

もしそうなら

b = 偽

t1.SelStart = Len(t1.Text)

a = Right(t1.Text, 1)

Asc(a) >= 65かつAsc(a)

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

ElseIf Asc(a) >= 97 かつ 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

＃＃＃それ以外＃＃＃

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

終了の場合

終了の場合

エンドサブ

Private Sub t1_KeyDown(整数としてのキーコード、整数としてのシフト)

b = 真

エンドサブ

Private Sub t1_MouseDown(整数としてのボタン、整数としてのシフト、単一としての X、単一としての Y)

b = 真

エンドサブ

入力文字を変換するVB設計プログラム

厳密に言えば、Enter キーと Backspace キーは変換すべきではありません。2 つのテキストを変換すると、進捗が追いつかなくなります。元の投稿者の指示に従って行うしかありません。

プライベートサブフォーム_Load()

Text1.Text = "＂"

Text2.Text = "＂"

エンドサブ

Private Sub Text1_KeyPress(KeyAscii As Integer)

大文字と小文字のキーAsciiを選択してください

ケース 65 ～ 90

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

ケース 97 ～ 122

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

ケース32

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

それ以外の場合

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

終了選択

エンドサブ

以上がVBで大文字変換とパーセント計算を実装する方法は何ですか?の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。