怎么用msgbox写出两个计算结果

在vb编程中怎么让msgbox函数同时显示两个数据？~

可以通过&符号来连接字符。
msgbox "面积是:" & mj & " 体积是:" & tj,vbinformation,"计算结果"

先定义a Dim a As String Private Sub Command1_Click() ...... End Sub Private Sub Form_Click() a = Int(Rnd * (999 - 100 + 1) + 100) ...... End Sub

msg = MsgBox("长为：" & X1 & "和" & X2, vboknly, "输出")

少了连接符 &

MsgBox "长为：" & X1 & Chr(13) & Chr(10) & "和为：" & X2, vboknly, "输出"


在表单添加两个text，一个按钮和一个label
代码：
Private Sub Command1_Click()
If IsNumeric(Text1) Then
If CLng(Text1) < 0 Then
Label1.Caption = "第一个数为负数，不能开方；"
Else
Label1.Caption = "第一个数的开方为：" & Sqr(CDbl(Text1)) & "；"
End If
Else
Label1.Caption = "第一个不是数字；"
End If

If IsNumeric(Text2) Then
If CLng(Text2) < 0 Then
Label1.Caption = Label1.Caption & "第二个数为负数，不能开方"
Else
Label1.Caption = Label1.Caption & "第二个数的开方为：" & Sqr(CDbl(Text2))
End If
Else
Label1.Caption = Label1.Caption & "第二个不是数字"
End If
End Sub

---

海城区15586555305： 怎么用msgbox写出两个计算结果 - ？
司马胖泰为： msg = MsgBox(＂长为:＂ & X1 & ＂和＂ & X2, vboknly, ＂输出＂) 少了连接符 &

海城区15586555305： 在vb编程中怎么让msgbox函数同时显示两个数据? - ？
司马胖泰为： 这就要用到vb中的字符串连接符号:+和&,常用的是&.

海城区15586555305： 想要使vba中返回值为两个,应该怎么做 - ？
司马胖泰为： 可以使用数组,例如:函数名 = Array(123,456) 就可以返回两个数,调用例子:x = 函数() msgbox x(0) msgbox x(1)

海城区15586555305： 关于VB中inputbox和 msgbox的用法? - ？
司马胖泰为： mynb1 = Val(InputBox(＂输入第一个数＂)) mynb2 = Val(InputBox(＂输入第二个数＂)) If mynb1 > mynb2 Then MsgBox mynb1 & ＂>＂ & mynb2 Else MsgBox mynb1 & ＂<＂ & mynb2 End If

海城区15586555305： VBA编程中MsgBox函数怎么用 - ？
司马胖泰为： 一般有两种用法: 1、作一个消息框使用,函数不用括号,直接将提示信息字符串放在后面即可,如程序运行结束时来个提示, msgbox ＂运行结束!＂ 2、在对话框中显示消息,等待用户单击按钮,并返回用户单击了哪个按钮,可根据不同的按钮选择代码分支.如在删除表格数据时为防止误操作,让用户再确认一下,就可用这个函数: If MsgBox(＂真要删除数据吗?＂, vbYesNo) = vbYes Then '这里是删除数据的语句 End If 这句函数会显示一个信息框,有“是”和“否”两个按钮,如果按下“是”,则运行删除数据的语句,否则放弃删除操作

海城区15586555305： 题目: 采用inputbox输入两个数,将他们相加的结果用msgbox输出.？
司马胖泰为： dim a,b a=inputbox (＂请输入第一个数＂) b=inputbox (＂请输入第二个数＂) msgbox cint(a)+b

海城区15586555305： VB中如何同时输出两个结果 - ？
司马胖泰为： Dim i As Integer Dim j As Integer i = 11 j = 22 MsgBox ＂第一个结果:＂ & i & vbCrLf & ＂第二个结果:＂ & j

海城区15586555305： VBA求最小数用msgbox输出怎么写代码 - ？
司马胖泰为： 举一个最简单的例子:Sub test() Dim X1 As Integer, X2 As Integer, X3 As Integer X1 = InputBox(＂请输入第1个正整数:＂, ＂输入＂) X2 = InputBox(＂请输入第2个正整数:＂, ＂输入＂) X3 = InputBox(＂请输入第3个正整数:＂, ＂输入＂) MsgBox ＂三个数中最小值为:＂ & Application.WorksheetFunction.Min(X1, X2, X3), vbInformation, ＂结果＂ End Sub 其中没有过多的考虑输入限制、判断等,仅供参考.

海城区15586555305： VB里用inputbox函数求2个相加的函数 - ？
司马胖泰为： 你没有说明两个数字都是奇数怎么办,我输出了“都是奇数”.请自己修改.代码如下.============== Private Sub Form_Load() Do Dim t As String, a, n As Integer n = 0 t = InputBox(＂请输入两个数字,以逗号分隔,例如2,3＂) If Len(t) = ...

海城区15586555305： 利用输入函数InputBox()输入2个数字,转换成整数.比较大小,并用输出函数MsgBox()输出比较大的结果 - ？
司马胖泰为： vb dim a,b as integer a=inputbox(＂请输入第一个数＂) b=inputbox(＂请输入第二个数＂) if a>b then msgbox(a) elseif b>a msgbox(b) else msgbox(＂两数相等＂) end if