云计算平台运维与开发初级教案设计

求VB课程设计代码文件,最好有报告及模板!VB初级者急用!谢谢!

ef x As Integer, ByRef y As Integer) As Integer ADD = x + yEnd Functionprivate Function Multi(x As Integer, y As Integer) As Integer Multi = x * yEnd FunctionPrivate Sub Command1_Click() x = CInt(InputBox("请输入x的值：", "赋值")) y = CInt(InputBox("请输入y的值：", "赋值")) Sum = ADD(Int(x), Int(y)) Text1.Text = CStr(x) + "+" + CStr(y) + "=" + CStr(Sum)End SubPrivate Sub Command2_Click()x = CInt(InputBox("请输入x的值：",

求VB课程设计代码文件,最好有报告及模板!VB初级者急用!谢谢!

ef x As Integer, ByRef y As Integer) As Integer ADD = x + yEnd FunctionPrivate Function Multi(x As Integer, y As Integer) As Integer Multi = x * yEnd FunctionPrivate Sub Command1_Click() x = CInt(InputBox("请输入x的值：", "赋值")) y = CInt(InputBox("请输入y的值：", "赋值")) Sum = ADD(Int(x), Int(y)) Text1.Text = CStr(x) + "+" + CStr(y) + "=" + CStr(Sum)End SubPrivate Sub Command2_Click()x = CInt(InputBox("请输入x的值：",