給你個(gè)例子
創(chuàng)新互聯(lián)專(zhuān)業(yè)為企業(yè)提供西工網(wǎng)站建設(shè)、西工做網(wǎng)站、西工網(wǎng)站設(shè)計(jì)、西工網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(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;
我使用記事本寫(xiě)的代碼可能不規(guī)范哦,自己修改即可。
用不到2個(gè)命令按鈕 1個(gè)就夠
在按鈕的過(guò)程中寫(xiě)如下代碼
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ù) 則必須先在這里寫(xiě)下 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á)的。
按照從左到右,以及隱含類(lèi)型轉(zhuǎn)換的規(guī)則。其含義如下:
先計(jì)算48=A,若A大于等于48,則計(jì)算結(jié)果為T(mén)rue,否則為False
然后計(jì)算True(或False)=57,這時(shí)由于是不同類(lèi)型的數(shù)據(jù)進(jìn)行比較,程序進(jìn)行隱含的類(lèi)型轉(zhuǎn)換,轉(zhuǎn)換的規(guī)則是將boolen量轉(zhuǎn)為int。False為0,True為-1(0xffff)。
所以True(或False)=57相當(dāng)于-1(0)=57,這個(gè)比達(dá)式恒為T(mén)rue的。
要真實(shí)表達(dá)樓主的意頭,就當(dāng)為A=48 and A=57
網(wǎng)站名稱(chēng):vb.net里數(shù)字的比較 vb數(shù)字比較大小
分享URL:http://m.kartarina.com/article30/hjigpo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站導(dǎo)航、用戶(hù)體驗(yàn)、域名注冊(cè)、面包屑導(dǎo)航、企業(yè)建站、網(wǎng)站設(shè)計(jì)公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)