tzkr.net
当前位置:首页 >> 使用inputBox函数输入三个两位整数A,B,C,点击命... >>

使用inputBox函数输入三个两位整数A,B,C,点击命...

Private Sub Command1_Click() a = InputBox("请输入数字a") b = InputBox("请输入数字b") c = InputBox("请输入数字c") If a > b Then '先把a,b按从小到大排序 t=a a=b b=t End If if cb,c最大 Print a Print b Print c Else '剩下的情况就是c...

这是vb的一个函数吧 c中没有这个函数,应该是第三方函数,在windows下由messagebox与之对应

Private Sub Command1_Click() a = Abs(Val(InputBox("请输入三角形一边A"))) b = Abs(Val(InputBox("请输入三角形一边B"))) c = Abs(Val(InputBox("请输入三角形一边C"))) If a + b > c And a + c > b And b + c > a Then q = (a + b + c) / 2 ...

1、只有3个数,可以用判断语句直接调整数的顺序,不用去写排序程序。 2、vb示例: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, t As Integer a = Val(InputBox("input a:", , 5)) b = Val(InputBox("input b:"...

代码改为如下 dim a as single,b as single,c as single,d as single '把这句移到最外面去 Private Sub Command1_Click(Index as Integer) a=val(inputbox(..) 代码不变 b=val(inputbox(..) 代码不变 c=val(inputbox(..) 代码不变 d=val(inputbo...

倒不如试试我这个,简单点。 Private Sub Command1_Click() Dim n As Integer, Max As Integer, Min As Integer Dim i As Integer For i = 1 To 3 n = InputBox("输入第一个数") If i = 1 Then Max = n: Min = n If n > Max Then Max = n ElseIf...

a,b,c是参数,他们的作用是 a:提示文字 b:标题 c:默认字符串(也就是刚刚打开输入框后的字符串) 如图

Private Sub Form_Click() Dim a As Single, b As Single, c As String Dim msgtitle As String msgtitle = "简单的计算器" a = InputBox("请输入第一个数字" + vbCrLf + "然后单击确定", msgtitle) c = InputBox("请输入运算符" + vbCrLf + "然...

时间过了很久了,希望你的问题得到答案了 虽然没能帮到你,但是朋友,还是祝你好运了!

这个程序应该是 将A的值给C 如果A

网站首页 | 网站地图
All rights reserved Powered by www.tzkr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com