vb.net数值比较 vbnet和vb的语法区别

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 适用不

相关问答

Q1: vb.net 数据库数值字段和小数比较进行筛选

用的ACCESS数据库

Dim cn As New OdbcConnection(strConnect)

Dim da As New OdbcDataAdapter("SELECT TOP 5 * FROM 表名 WHERE 数值 " txtbox1.Text , cn)

Dim ds As New DataSet

da.Fill(ds, "表名")

Dim dtTable As New DataTable

dtTable = ds.Tables("表名")

或者是使用数据库Commd里边的Parameters.Add来添加参数，希望对你有帮助

Q2: 我想用vb.net判断一个数值的大小范围 48

这种表达方法是VB认可的，但意思不一定是您想比达的。

按照从左到右，以及隐含类型转换的规则。其含义如下：

先计算48=A，若A大于等于48，则计算结果为True,否则为False

然后计算True(或False)=57，这时由于是不同类型的数据进行比较，程序进行隐含的类型转换，转换的规则是将boolen量转为int。False为0，True为-1(0xffff)。

所以True(或False)=57相当于-1(0)=57，这个比达式恒为True的。

要真实表达楼主的意头，就当为A=48 and A=57

Q3: 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;

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