用不到2个命令按钮 1个就够
成都创新互联公司主要从事成都网站制作、成都网站设计、外贸营销网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务盐山,10多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
在按钮的过程中写如下代码
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 适用不
用的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来添加参数,希望对你有帮助
这种表达方法是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
例如你有三个输入框,为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;
我使用记事本写的代码可能不规范哦,自己修改即可。