vb.net里数字的比较,net和vb

vb.net 二进制比较

通过and判断

创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站设计制作、网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的黔西南州网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

a: 00000100 a: 00000010

and b: 00000010 and b: 00000110

00000000 00000010

结果： 假 真

Qbasic代码（Basic代码是怎样的，我忘记了，很少用，你修改一下，应该可以再VB。NET运行）：

a=4 '将二进制转换为十进制

b=2

c=6

if a and b then

print "a,b有同一个1"

else

print "a,b无同一个1"

end if

if b and c then

print "b,c有同一个1"

else

print "b,c无同一个1"

end if

end '不喜欢end就却掉吧

vb.net比较多个数字大小

给你个例子

'生成20个随机整数

Dim MyRandom As New Random

Dim a(19), b() As Integer

For i = 0 To a.GetUpperBound(0)

a(i) = MyRandom.Next(0, 1001)

Next

b = a.Clone '复制数组

'排序

System.Array.Sort(b)

System.Array.Reverse(b)

数组b是结果

VB.NET中，比较四个数字的大小 代码

用不到2个命令按钮 1个就够

在按钮的过程中写如下代码

dim x as long , y as long ,z as long ,j as long ,n as long

dim k as integer

x = val(text1.text)

y = val(text2.text)

z = val(text3.text)

j = val(text4.text)

if x = then k = k+1

if y= then k = k+1

if z= then k = k+1

if j= then k = k+1

' 若输入的数有负数 则必须先在这里写下 n=-.....（）

do

if x 0 and n = x then

text5.text = text5.text " " x

k = k +1

end if

if y 0 and n = then

text5.text = text5.text " " y

k = k +1

end if

if z 0 and n = z then

text5.text = text5.text " " z

k = k +1

end if

if j 0 and n = j then

text5.text = text.text " " j

k = k +1

end if

if k = 4 then exit for

n=n+1

loop

这是VB的代码。。。。 不知道.net 适用不

VB.net 输入三个数 比较大小然后用textbox.text 输出怎么弄 求教 四个呢？

例如你有三个输入框，为txtOne

，txtTow，txtThree，

Dim

max1

as

double;

max1=

Convert.ToDouble(txtOne.Text)Convert.ToDouble(txtTow.Text)?"txtOne.Text":"txtTow.Text"

max1=

Convert.ToDouble(txtThree.Text)max1?"txtThree.Text“:"max1";

textBox.text=max1;

我使用记事本写的代码可能不规范哦，自己修改即可。