通过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就却掉吧
给你个例子
'生成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是结果
用不到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 适用不
例如你有三个输入框,为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;
我使用记事本写的代码可能不规范哦,自己修改即可。