三位數編程怎麼編vb

❶ VB編程，設計一個程序，在文本框里輸入一個三位數，單擊窗體，在窗體中輸出這個三位數的個位數十位數百

PrivateSubForm_Click()
DimaAsInteger,bAsInteger,iAsInteger
IfText1<>""Then
a=Val(Text1)
Ifa<100Ora>999ThenGoTo1234
Else
1234
MsgBox"請在文本框中輸入一個三位數字!",vbOKOnly+vbCritical
Text1.Text=""
Text1.SetFocus
ExitSub
EndIf
b=a
Form1.Cls
Print"個位數、十位數、百位數分別是："
Fori=1To3
PrintbMod10;Space(5);
b=b10
Next
EndSub

已經專運行過。

運行結屬果：

❷ 求編一個VB程序輸入一個三位整數，然後將它反向輸出

可以參考下面的代碼：

private sub command1_click()

x=inputbox("輸入一個三位數")

X1=X100 'x1=三位數 的百位

X2=(X-X1*100)10 '十位

X3=X-X1*100-X2*10 '個位

msgbox X3&X2&X1

end sub

(2)三位數編程怎麼編vb擴展閱讀：

VB基本函內數

CBool 函數： 返回已被轉換容為 Boolean 子類型的變體的表達式。

CByte 函數： 返回已被轉換為位元組子類型的變體的表達式。

CCur 函數 ：返回已被轉換為貨幣子類型的變體的表達式。

CDate 函數： 返回已被轉換為日期子類型的變體的表達式。

CDbl 函數： 返回已被轉換為雙精度子類型的變體的表達式。