求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的值：",