vb实验报告编写程序，在文本框中任意输入两个整数，单击命令按钮，分别进行加法运算和字符串连接

Private Sub Command1_Click() MsgBox "加法运算：" & Text1Text & " + " & Text2Text & " = " & (Val(Text1Text) + Val(Text2Text)) & VbCrlf & "字符串连接：" & Text1Text & Text2TextEnd Sub

终于编写出来了，代码如下： Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim intOperator As Integer '清除结果 Private Sub cmdGT_Click() txtDisplayText = "0" strNumber = "" strPoint = "" intOperator = 7 End Sub '输入数字 Private Sub cmdNumber_Click(Index As Integer) strNumber = strNumber & cmdNumber(Index)Caption txtDisplayText = strNumber & strPoint End Sub Private Sub cmdOnOff_Click() End End Sub '运算过程 Private Sub cmdOperator_Click(Index As Integer) Dim dblnum2 As Double '是第一次单击运算符时，将输入的值先赋给第一个数，否则赋值给第二个数进行运算 If intOperator = 7 Then dblNum1 = CDbl(txtDisplayText) Else dblnum2 = CDbl(Val(txtDisplayText)) '根据输入的符号进行运算 '求普通运算 Select Case intOperator Case 0 dblNum1 = dblNum1 + dblnum2 Case 1 dblNum1 = dblNum1 - dblnum2 Case 2 dblNum1 = dblNum1 dblnum2 Case 3 If dblnum2 <> 0 Then dblNum1 = dblNum1 / dblnum2 Else MsgBox "除数不能为“0”！请重新输入除数。", vbOKOnly + vbInformation, "除零错误" Index = intOperator End If Case 6 dblNum1 = dblNum1 dblnum2 / 100 End Select End If '取得当前输入的运算符，以做下次运算 intOperator = Index strNumber = "" txtDisplay = CStr(dblNum1) '判断是否为文本框中的数字加点 If Not txtDisplay Like "" Then txtDisplayText = txtDisplayText & "" End If End Sub Private Sub cmdOtherOper_Click(Index As Integer) Dim dblNum As Double '求平方根，平方， dblNum = CDbl(Val(txtDisplayText)) Select Case Index Case 0 '验证数据是否有效 If dblNum >= 0 Then txtDisplayText = CStr(Sqr(dblNum)) Else MsgBox "负数不能开平方根！", _ vbOKOnly + vbCritical, "开平方根错误" End If Case 1 txtDisplayText = CStr(dblNum ^ 2) End Select '判断是否为文本框中的数字加点 If Not txtDisplay Like "" Then txtDisplayText = txtDisplayText & "" End If End Sub Private Sub cmdPoint_Click() strNumber = strNumber & strPoint strPoint = "" End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '使被按下的数字键的对应按钮取得焦点 Select Case KeyCode Case 48 To 57 cmdNumber(KeyCode - 48)SetFocus Case 96 To 105 cmdNumber(KeyCode - 96)SetFocus Case Else '使按下的符号键对应的按钮取得焦点 If KeyCode = 107 Or (Shift = vbShiftMask And KeyCode = 187) Then cmdOperator(0)SetFocus cmdOperator_Click (0) ElseIf KeyCode = 109 Or KeyCode = 189 Then cmdOperator(1)SetFocus cmdOperator_Click (1) ElseIf KeyCode = 106 Or (Shift = vbShiftMask And KeyCode = 56) Then cmdOperator(2)SetFocus cmdOperator_Click (2) ElseIf KeyCode = 111 Or KeyCode = 191 Then cmdOperator(3)SetFocus cmdOperator_Click (3) ElseIf KeyCode = 13 Then cmdOperator(7)SetFocus cmdOperator_Click (7) ElseIf KeyCode = 8 Then cmdGTSetFocus Call cmdGT_Click End If End Select End Sub Private Sub Form_KeyPress(KeyAscii As Integer) '将合法的数据输入到文本框 Select Case KeyAscii Case 48 To 58 '调用数字键点击处理程序 cmdNumber_Click KeyAscii - 48 KeyAscii = 0 Case 46 '调用小数点输入 cmdPoint_Click KeyAscii = 0 Case 13 '当敲击回车时，不能触发Form的 KeyUp 事件，因此在这里设置文本框的焦点 txtDisplaySetFocus Case Else KeyAscii = 0 End Select End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) txtDisplaySetFocus End Sub Private Sub Form_Load() strNumber = "" strPoint = "" intOperator = 7 End Sub

简单点的：

dim 上一个数 as double

dim 下一个数 as double

dim 结果 as double

dim *** 作 as string

private sub 加减乘除(byval sender as object, byval e as eventargs) handles 加click, 减click, 乘click, 除click

上一个数 = cdbl(输入框text) ' 存储当前输入的数值

输入框text = "" ' 等待下一个数值

select case sendertext ' 根据按下的按钮的文本属性确定你要做什么，这里可以用加减乘除号代替

case "加"

*** 作 = "加"

case "减"

*** 作 = "减"

case "乘"

*** 作 = "乘"

case "除"

*** 作 = "除"

end select

end sub

private sub 计算(byval sender as object, byval e as eventargs) handles 等号click

下一个数 = 输入框text

输入框text ＝ ”“

select case *** 作

case "加"

结果 = 上一个数 + 下一个数

case "减"

结果 = 上一个数 - 下一个数

case "乘"

结果 = 上一个数 下一个数

case "除"

结果 = 上一个数 / 下一个数

end select

输入框text = cstr(结果)

上一个数 = 结果

end sub

NET 的哈，我没有 NET 现在，不知道行不行

以上就是关于vb实验报告编写程序，在文本框中任意输入两个整数，单击命令按钮，分别进行加法运算和字符串连接全部的内容，包括:vb实验报告编写程序，在文本框中任意输入两个整数，单击命令按钮，分别进行加法运算和字符串连接、VB高手教下怎么做个计算器加法代码、用vb设计一个计算器,里面的加减乘除按键的代码怎么写等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！