Apakah kaedah untuk melaksanakan penukaran huruf besar dan pengiraan peratusan dalam VB?

Terdapat masalah dengan menukar teks huruf kecil kepada huruf besar dalam VB Salin kod di bawah terus ke dalam borang untuk menguji Private Sub Form_Load()

Malap Kecil Seperti Tali

Malap Sebesar Rentetan

Malapkan xiaoShu Sebagai Bujang

Malapkan BaifenShu Sebagai Rentetan

small = InputBox（＂Sila masukkan rentetan＂）

Besar = UCase(kecil)

MsgBox "Rentetan yang anda masukkan akan ditukar kepada huruf besar dan hasilnya ialah:" & vbCrLf & Big

xiaoShu = InputBox ("Sila masukkan perpuluhan yang perlu ditukar kepada peratusan:")

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

MsgBox "Peratusan yang sepadan dengan perpuluhan yang anda masukkan ialah:" & BaifenShu

Tamat Sub

Tulis program dalam VB untuk menukar aksara yang dimasukkan dalam kotak teks

Sebagai contoh, apabila anda memasukkan huruf besar, peristiwa text_change akan dicetuskan, dan ia akan ditukar kepada huruf kecil, yang akan mencetuskan peristiwa perubahan dan huruf kecil akan ditukar kepada huruf besar sekali lagi. Ini adalah gelung tak terhingga, yang membawa kepada limpahan

Anda boleh menentukan pembolehubah untuk menyimpan keadaan semasa Setelah ditukar, ia tidak akan dilaksanakan lagi sehingga terdapat input papan kekunci atau tetikus

Malapkan b Sebagai Boolean

Sub Peribadi t1_Change()

Jika b Maka

b = Salah

t1.SelStart = Len(t1.Teks)

a = Kanan(t1.Teks, 1)

Jika Asc(a) >= 65 Dan Asc(a) t1.Teks = Pertengahan$(t1.Teks, 1, Len(t1.Teks) - 1) + LCase(a)

LainJika Asc(a) >= 97 Dan Asc(a) t1.Teks = Pertengahan$(t1.Teks, 1, Len(t1.Teks) - 1) + UCase(a)

ElseIf Asc(a) = 32 Then

t1.Teks = Pertengahan$(t1.Teks, 1, Len(t1.Teks) - 1) + a

Lain

t1.Teks = Pertengahan$(t1.Teks, 1, Len(t1.Teks) - 1) + ＂*＂

Tamat Jika

Tamat Jika

Tamat Sub

Sub Peribadi t1_KeyDown(KeyCode Sebagai Integer, Shift Sebagai Integer)

b = Benar

Tamat Sub

Sub Peribadi t1_MouseDown(Butang Sebagai Integer, Shift Sebagai Integer, X Sebagai Tunggal, Y Sebagai Tunggal)

b = Benar

Tamat Sub

Program reka bentuk VB untuk menukar aksara input

Tegasnya, kekunci Enter dan Backspace tidak boleh ditukar jika anda menukar 2 teks, anda tidak akan dapat mengikuti perkembangan saya hanya perlu melakukannya mengikut arahan poster

Sub Borang Persendirian_Muat()

Teks1.Teks = ＂＂

Teks2.Teks = ＂＂

Tamat Sub

Sub Teks Peribadi1_KeyPress(KeyAscii Sebagai Integer)

Pilih Case KeyAscii

Kes 65 Hingga 90

Teks2.Teks = Teks2.Teks & LCase(Chr(KeyAscii))

Kes 97 Hingga 122

Teks2.Teks = Teks2.Teks & UCase(Chr(KeyAscii))

Kes 32

Teks2.Teks = Teks2.Teks & Chr(KeyAscii)

Kes Lain

Teks2.Teks = Teks2.Teks & Chr(42)

Pilih Tamat

Tamat Sub

Atas ialah kandungan terperinci Apakah kaedah untuk melaksanakan penukaran huruf besar dan pengiraan peratusan dalam VB?. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!