vb中数值比较大小的问题

例如以下：
For i = 1 To 10
a(i) = InputBox("请输入数字")
Next
就是输入十个数字分别赋值给a(1) - a(10)
那么该怎么样才能让系统判别出最大的数字和最小的数字

推荐答案 2013-10-12

Dim min,maxmin = max = a(0) = InputBox("请输入数字");For i=2 To 10a(i) = InputBox("请输入数字");If min>a(i) Then min = a(i)Else If a(i)<max Then max = a(i)End IfPrint("最大的值为：'.max."；最小的值为：".min)

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/7tztvtzBv.html

相似回答

VB如何在一组数值里面判断最小的值答：直接if语句判断就好了啊前面的窗口你可以定义给变量的，然后比较两个变量，比如 if a<=b,then i=a 最后把结果显示在窗口就好了

在VB中,比较几个数值的大小有哪些方法,请举例说出答：比如 Private Sub Form_Load()Form1.Show Dim a(2) As Integer a(0) = 21 a(1) = 23 a(2) = 232 For i = 0 To 2 If a(i) > a(0) Then a(0) = a(i)t = a(i)Next i Print t End Sub 还有冒泡发

vb 数值比较答：这主要是 single 与 double 类型的区别,把single 改成 double就OK了.另外, 比较浮点数的大小, 最好设置个误差, 比如:X1 - X2 < xErr 就认为X1=X2, 这里的xErr可以自定义, 像xErr=0.000001 你试一下下面的测试程序就知了...Dim x1 As Single Dim x2 As Single Dim x As Single x1 ...

VB程序中:X小于-8,输出1;X大于-8且小于0,输出2;X大于0且小于8,输出3...答：另外，由于textbox文本框控件的text属性是字符类型，当它与数值进行比较时，要先转为数值在进行比较，比如：If Val(Text1.Text) < -8 Then 你的代码中，有三个If，却只有两个End If，所以就错了。建议你要养成良好的书写代码习惯，就是要注意同一结构的代码要缩进，比如：For i = 1 To 9 If ...

vb中如果比较大小时没有用val将字符转化成数值而比较10和11的大小会怎 ...答：也就是会被当做字符串比较。比较时从左到右逐一比较前面的位数相等，再比较下一位字符比较的是其对应的asc代码。关于字符asc代码你可以查询一下。即"10"<"11"

在VB中比较三个数的最小值,思路如下图,但是会输出三个数值,怎么修改代 ...答：if a>b then if b>c then print c else print b end ifelse if c>a then print a else print c end ifend if 或 if a<b and a<c then print aelseif b<a and b<c then print belse print cend if ...

VB 中的and和or答：Text1(对象).Text(对象属性) 和数值 80、100 是不能比较大小的 类型不匹配的 and 是 “并” 英文的意思也是“和” （Eg: x>80 and x<=100 表示 x的值大于80并小于100）or 是“或者” 顾名思义英文的意思也是“或者”（Eg: x<80 or x>=100 表示x的值小于于80，或者大于等于...

请教VB中一维数组的比较问题,选出较大的前三位和其下标答：'随机产生10个三位数 Randomize Me.Print " 这10个数是："For I = 1 To 10 A(1, I) = Int(900 * Rnd) + 100 A(2, I) = I Me.Print A(1, I); ";";Next I Me.Print '对10个数进行由大到小排序 For I = 1 To 9 For J = I + 1 To 10 If A(1, I) < A(1,...

VB 关于比较大小问题答：private sub 按键1_click()if text1.text> text2.text and text1.text >text3.text then text2.text=""text3.text=""msgbox "text1的值最大" & text1.text else text1.text=""if text2.text >text3.text then text3.text=""msgbox "text2的值最大" & text2.text else text2....

大家正在搜

vb比较三个数的大小 vb中比较大小 vb比较大小函数 vb中t与n大小比较 vb中数值和字符串的区别 vb中数值型数据类型 vb数值型数据 vb中把字符串转换为数值类型 vb中数值字符串相减