十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
給你個(gè)例子
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供西工網(wǎng)站建設(shè)、西工做網(wǎng)站、西工網(wǎng)站設(shè)計(jì)、西工網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、西工企業(yè)網(wǎng)站模板建站服務(wù),十多年西工做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
'生成20個(gè)隨機(jī)整數(shù)
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 '復(fù)制數(shù)組
'排序
System.Array.Sort(b)
System.Array.Reverse(b)
數(shù)組b是結(jié)果
例如你有三個(gè)輸入框,為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;
我使用記事本寫的代碼可能不規(guī)范哦,自己修改即可。
用不到2個(gè)命令按鈕 1個(gè)就夠
在按鈕的過程中寫如下代碼
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
' 若輸入的數(shù)有負(fù)數(shù) 則必須先在這里寫下 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 適用不
這種表達(dá)方法是VB認(rèn)可的,但意思不一定是您想比達(dá)的。
按照從左到右,以及隱含類型轉(zhuǎn)換的規(guī)則。其含義如下:
先計(jì)算48=A,若A大于等于48,則計(jì)算結(jié)果為True,否則為False
然后計(jì)算True(或False)=57,這時(shí)由于是不同類型的數(shù)據(jù)進(jìn)行比較,程序進(jìn)行隱含的類型轉(zhuǎn)換,轉(zhuǎn)換的規(guī)則是將boolen量轉(zhuǎn)為int。False為0,True為-1(0xffff)。
所以True(或False)=57相當(dāng)于-1(0)=57,這個(gè)比達(dá)式恒為True的。
要真實(shí)表達(dá)樓主的意頭,就當(dāng)為A=48 and A=57