VB에서 대문자 변환 및 백분율 계산을 구현하는 방법은 무엇입니까?

VB에서 소문자를 대문자로 변환하는 데 문제가 있습니다. VB에서 백분율을 사용하는 방법

Private Sub Form_Load()를 테스트하려면 아래 코드를 양식에 직접 복사하세요

문자열처럼 어둡고 작음

문자열만큼 어둡다

딤샤오슈 싱글

Dim BaifenShu 문자열로

small = InputBox("문자열을 입력하세요")

빅 = U케이스(소형)

MsgBox "입력한 문자열은 대문자로 변환되고 결과는 다음과 같습니다:" & vbCrLf & Big

xiaoShu = InputBox ("백분율로 변환할 소수점을 입력하세요:")

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

MsgBox "입력한 소수점에 해당하는 백분율은 다음과 같습니다:" & BaifenShu

끝 서브

VB에서 텍스트 상자에 입력된 문자를 변환하는 프로그램을 작성하세요

예를 들어 대문자를 입력하면 text_change 이벤트가 발생하고, 소문자로 변경되어 변경 이벤트가 발생하고, 소문자는 다시 대문자로 변경되어 오버플로가 발생합니다

.

현재 상태를 저장하는 변수를 정의할 수 있습니다. 일단 변경되면 키보드나 마우스 입력이 있을 때까지 더 이상 실행되지 않습니다.

Dim b As Boolean

비공개 서브 t1_Change()

만약 그렇다면

b=거짓

t1.SelStart = 렌(t1.Text)

a = 오른쪽(t1.Text, 1)

Asc(a) >= 65이고 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

그밖에

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

끝나면

끝나면

끝 서브

Private Sub t1_KeyDown(정수로 KeyCode, 정수로 Shift)

b = 사실

끝 서브

Private Sub t1_MouseDown(버튼을 정수로, Shift를 정수로, X를 싱글로, Y를 싱글로)

b = 사실

끝 서브

입력 문자를 변환하는 VB 디자인 프로그램

엄밀히 말하면 Enter 키와 백스페이스 키는 변환하면 안 됩니다. 두 개의 텍스트를 변환하면 진행이 안 되니까요. 그냥 원본 포스터의 지시에 따라 하면 됩니다.

비공개 하위 양식_Load()

Text1.Text = ""

Text2.Text = ""

끝 서브

Private Sub Text1_KeyPress(KeyAscii를 정수로)

케이스 KeyAscii 선택

사례 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 중국어 웹사이트의 기타 관련 기사를 참조하세요!