Question

求高人帮我写一下这几个VB程序设计代码，急急！！！！！

高手没帮我写一下这几个程序的代码
1.inputbox函数和msgbox函数
使用inputbox函数从键盘接收3个数字，计算3个数字之和，将和用msgbox函数输出。。

2.从12位学号中取出中间4位数（数字法）。

3.从12位学号中取出中间4位数（字符法）。

4.将从键盘输入的4位整数逆序输出，要求使用print语句输出，输出的时候保留3位小数(使用format函数）。

就是这4个程序设计的题目，请高手帮帮忙啊，分不是问题！！！！

Answer 1

昨天就有人问一模一样的问题 是你么？ 你是不是换了个马甲来的御闭？
一.
Private Sub Form_Load()
Dim x(1 To 3) As Double
For i = 1 To 3
x(i) = InputBox("请输入第" & CStr(i) & "个数字")
Next
MsgBox CStr(x(1)) & "+" & CStr(x(2)) & "+" & CStr(x(3)) & "=" & CStr(x(1) + x(2) + x(3))
End Sub

二.1.数字法
Private Sub Form_Load()
Dim x As Double, r As Double
x = 123456789012#
r = Fix(x / 10000)
r = r Mod 10000
MsgBox r
End Sub

2.字符法
Private Sub Form_Load()
Dim x As String, r As String
x = "123456789012"
r = Mid(x, 5, 4)
MsgBox r
End Sub

三.
Private Sub Form_Load()
Dim x As String, i As Integer, r As String
Me.AutoRedraw = True
x = InputBox("卜清请输入四型拆前位整数")
For i = 4 To 1 Step -1
r = r & Mid(x, i, 1)
Next
Print Format(r, "0000.000")
End Sub

Answer 2

第一题
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim sum As Integer
a1 = InputBox("请输入掘晌第一乎源个数")
a2 = InputBox("请输入第二个数")
a3 = InputBox("请输入第三个数")
sum = a1 + a2 + a3
MsgBox "三个数的和是" & sum
第二题
val（mid（12为数，5，4）） '将字符转换为数字
第三题
str（mid（12为数，5，4）） '将数字转换为字符
第四题
Dim s As String
Dim a As String
Dim i As Integer
a = InputBox("请输岁散态入4位整数")
For i = 1 To Len(a) '这样不一定是4位数，n位数也行
s = Mid(a, i, 1) + s
Next i
Print s