大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
给你个例子
创新互联专业为企业提供西工网站建设、西工做网站、西工网站设计、西工网站制作等企业网站建设、网页设计与制作、西工企业网站模板建站服务,十多年西工做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
'生成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是结果
例如你有三个输入框,为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;
我使用记事本写的代码可能不规范哦,自己修改即可。
用不到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认可的,但意思不一定是您想比达的。
按照从左到右,以及隐含类型转换的规则。其含义如下:
先计算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