這題誰會啊?程式題目

Question

有誰會ㄋ?程式問題
就是最後執行出來要顯示\"你輸入的是123\"←舉例
1+2+3=6←舉例
有比較簡單的程式碼嗎?
大概5~6行的程式碼

就是要輸入3位數字
最後顯示"你輸入的是123"←舉例
再把這3個數相加算出總和1+2+3=6←舉例

1+2+3=6←舉例
1+2+3=6也要印出來

Answer 1

Private Sub Form_Initialize()I1 = InputBox("數字1") '輸入三數字I2 = InputBox("數字2")I3 = InputBox("數字3")Sum = Val(I1) + Val(I2) + Val(I3) '加總MsgBox ("你輸入的數字是" & Val(I1) & Val(I2) & Val(I3) & " 加總是" & Sum) '輸出End Sub

2006-05-01 18:50:18 補充：
原來只要一個輸入喔= ="I1= InputBox("請輸入三位數字") If Len(I1) <> 3 Then Exit SubSum = Val(Mid(I1, 1, 1)) + Val(Mid(I1, 2, 1)) + Val(Mid(I1, 3, 1)) '加總MsgBox ("你輸入的數字是" & I1 & " 加總是" & Sum) '輸出End Sub

2006-05-01 18:52:11 補充：
Private Sub Form_Activate()I1= InputBox("請輸入三位數字") If Len(I1) <> 3 Then Exit SubSum = Val(Mid(I1, 1, 1)) + Val(Mid(I1, 2, 1)) + Val(Mid(I1, 3, 1)) '加總MsgBox ("你輸入的數字是" & I1 & " 加總是" & Sum) '輸出End Sub

Answer 2

Private Sub Form_Activate()
n = Val(InputBox("請輸入100~999的數值"))
If Len(n) = 3 Then
Print Val(Mid(n, 1, 1)) + Val(Mid(n, 2, 1)) + Val(Mid(n, 3, 1))
Else
MsgBox "請輸入100~999的數值"
End If
End Sub

Answer 3

Private Sub Command1_Click()Dim S$, I%, N$, T&Do  S = InputBox("請輸入大於9的整數")  If S = "" Then Exit SubLoop Until Val(S) > 9S = Int(Val(S)): ClsPrint "你輸入的是"; SFor I = 1 To Len(S)    T = T + Mid$(S, I, 1): N = N & Mid$(S, I, 1) & "+"NextMid$(N, Len(N)) = "=": Print N; TEnd Sub