Question

谁能帮我做下计算机vb的题，急！急！急！，非常之急！【包括实验名称，目的，内容还有实验方法和步骤

实验一 顺序结构程序设计

1．设计一程序，从键盘上输入一个12位的学号，然后取出中间4位，例如“200912345678”这个学号取出的中间4位就是“1234”，要求使用数学处理方法 和 字符处理方法分别实现。(保存时窗体文件名设置为“2.1 取学号中间4位.frm”，工程文件名设置为“2.1 取学号中间4位.vbp”)

2．设计一程序，将从键盘输入的四位整数逆序输出，四位整数输入的时候方式不限，要求使用print语句输出，输出的时候保留3位小数。

3．使用Inputbox函数从键盘接收3个数，计算3个数之和，将3个数之和用msgbox函数输出。

4．设计一程序，使用随机数函数产生一个10~99之间的随机整数。
编程

Answer 1

3、在按钮里面写
a=inputbox("输入a"）
b=inputbox("输入b")
c=inputbox("输入c")
sum=a+b+c
msgbox sum
4、在按钮里写
randmonize
x=int(90*rnd+10)
print x

Answer 2

LZ你真牛掰，把VB的题放在C/C++分类里面，佩服死你了

Answer 3

如果我没猜错，你这是二级题吧？二级题，输入输出的框架应该都是有的吧，那我就把算法给你写出来吧
ps.艹，没看清楚，原来是实验。我可没时间为这么破5分给你写实验报告，谁愿意写就写吧。我只把程序写出来

1.
公共部分：
dim sno as string
sno = inputbox("输入学号")
数学方法：
dim dno as double
dno = cdbl(sno)
dim ino as long
ino = clng(dno / 10000)
ino = ino mod 10000
所得的ino就是结果
字符串方法：
dim result as string
result = mid(sno, 5, 4)
所得的result就是结果

2.
dim inp as string
inp = inputbox("输入4位整数")
dim n as integer
n = cint(inp)
n = (n mod 10)*1000 + (n mod 100)\10*100 + (n mod 1000)\100*10 + n \1000
print format(n, "#.000")

3.
dim a1 as double, a2 as double, a3 as double
a1 = cdbl(inputbox("输入第一个数"))
a2 = cdbl(inputbox("输入第二个数"))
a3 = cdbl(inputbox("输入第三个数"))
msgbox a1 + a2 + a3

4.
msgbox cint(rnd() * 90) + 10

PS.上面的问题补充说的什么乱七八糟的