vb程序 如何判斷數(shù)組的元素個(gè)數(shù)？

UBound 函數(shù)

目前創(chuàng)新互聯(lián)已為上千多家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬空間、網(wǎng)站托管維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、岳塘網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶(hù)導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶(hù)和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

UBound 函數(shù)示例

該示例使用 UBound 函數(shù)，確定數(shù)組的指定維的最大可用下標(biāo)。

Dim Upper

Dim MyArray(1 To 10, 5 To 15, 10 To 20) '聲明數(shù)組變量。

Dim AnyArray(10)

Upper = UBound(MyArray, 1) '返回 10。

Upper = UBound(MyArray, 3) '返回 20。

Upper = UBound(AnyArray) '返回 10。

顯示100以?xún)?nèi)所有素?cái)?shù) VB.net語(yǔ)言

‘這個(gè)是可以選擇范圍的查找

Public?Class?Form1

'一個(gè)大于1的自然數(shù)，除了1和它本身外，不能被整除以其他自然數(shù)（質(zhì)數(shù)），換句話(huà)說(shuō)就是該數(shù)除了1和它本身以外不再有其他的因數(shù)

'?章魚(yú)哥?3107073263

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?PD?As?Boolean?=?True

TextBox1.Clear()?'首先清空文本框，這里面將放置符合條件的素?cái)?shù)

If?NumericUpDown1.Value??NumericUpDown2.Value?Then?'從小到大

For?i?=?NumericUpDown1.Value?To?NumericUpDown2.Value?'循壞判斷所有數(shù)

For?j?=?2?To?i?-?1?'內(nèi)循環(huán)是除了1和它本身的

If?i?Mod?j?=?0?Then?'判斷是否能被除了1和自身以為的?比自身小的數(shù)整除

PD?=?False?'如果能被整除，將PD?設(shè)置為False

Exit?For?'退出里層For?循環(huán)

Else

PD?=?True

End?If

Next

If?PD?Then?'如果PD為T(mén)rue?，則為素?cái)?shù)

TextBox1.Text?=?i??"??"

End?If

Next

End?If

End?Sub

End?Class

怎樣判斷因數(shù)有幾個(gè)

判斷方法:

把一個(gè)數(shù)分解成不同質(zhì)因數(shù)相乘積的形式的不個(gè)數(shù)來(lái)判斷。

判斷舉例:64可以分解成:1X64=2X32=4X16=8X8=1X2X4X8

故:64有1、2、4、8等四個(gè)因數(shù)組成。

VB中判斷奇數(shù)和偶數(shù)怎么判斷和統(tǒng)計(jì)個(gè)數(shù)

在窗體上,放一個(gè)按鈕,一個(gè)文本框,三個(gè)標(biāo)簽

代碼如下

Private?Sub?Command1_Click()

If?Val(Text1.Text)?Mod?2?=?0?Then

Label1.Caption?=?"該數(shù)為偶數(shù)！"

Label2.Caption?=?Label2.Caption?+1

Else

Label1.Caption?=?"該數(shù)為奇數(shù)！"

Label3.Caption?=?Label3.Caption?+1

End?If

End?Sub