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...

Sub test()Dim s$, a, min&s = InputBox("请依次输入a,b和c三个整数,空格隔开")a = Split(s)min = a(0)If min > a(1) Then min = a(1)If min > a(2) Then min = a(2)MsgBox "a,b和c三个整数" & s & "中,最小值为" & minEnd Sub

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

△知道不? △=b^2-4ac △>0 则有两个不同实数根 △=0 则有两个相同实数根 △

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:"...

======================================================================= Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = InputBox("请输入年份") b = InputBox("请输入月份") MsgBox CountDay(a, b) End Sub Private ...

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 ...

Private Sub Form_Load() Dim a As String a = InputBox("输入等级") If a = "A" Then Print "大于等于90分" ElseIf a = "B" Then Print "80到90分之间" ElseIf a = "C" Then Print "70到80分之间" ElseIf a = "D" Then Print "60到70分之间" El...

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

其语法格式:变量=InputBox(信息内容,对话框标题,默认内容)。得到的内容为字符类型。如果输入的为数值 需要用类型转换函数如cint(变量) 在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 String。

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