用VB.NET編寫(xiě)一個(gè)程序 ：編一求階乘的函數(shù)f(n),主調(diào)程序求組合數(shù)的程序，分別調(diào)用f(n),用來(lái)計(jì)算組合數(shù)的值

Private Sub Command1_Click()

創(chuàng)新互聯(lián)建站：成立與2013年為各行業(yè)開(kāi)拓出企業(yè)自己的“網(wǎng)站建設(shè)”服務(wù)，為上千余家公司企業(yè)提供了專業(yè)的成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)和網(wǎng)站推廣服務(wù)， 定制網(wǎng)站制作由設(shè)計(jì)師親自精心設(shè)計(jì)，設(shè)計(jì)的效果完全按照客戶的要求，并適當(dāng)?shù)奶岢龊侠淼慕ㄗh，擁有的視覺(jué)效果，策劃師分析客戶的同行競(jìng)爭(zhēng)對(duì)手，根據(jù)客戶的實(shí)際情況給出合理的網(wǎng)站構(gòu)架，制作客戶同行業(yè)具有領(lǐng)先地位的。

Dim A, B, C

A = 10

B = 3

C = f(A) / (f(B) * f(A - B))

Print C

End Sub

Private Function f(n)

Dim I As Integer

f = 1

For I = 1 To n

f = f * I

Next I

End Function

在vb.net中，如何計(jì)算出2000-2100年之間的閏年？輸出到文本框，并統(tǒng)計(jì)輸出閏年的個(gè)數(shù)？主要是統(tǒng)計(jì)個(gè)數(shù)

這樣：

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

Dim?leapyears()?As?Integer?=?GetLeapYears(2000,?2100)

Dim?str?As?String

Try

Dim?count?As?Integer?=?UBound(leapyears)?+?1

str?=?"閏年個(gè)數(shù):"?+?count.ToString

For?i?=?0?To?UBound(leapyears)

str?+=?"?"?+?leapyears(i).ToString

Next

TextBox1.Text?=?str

Catch?ex?As?Exception?

End?Try

End?Sub

'''?summary

'''?獲取指定年份區(qū)間中所有閏年組成的數(shù)組

'''?/summary

'''?param?name="StartYear"起始年份/param

'''?param?name="EndYear"結(jié)束年份/param

'''?returns/returns

'''?remarks/remarks

Private?Function?GetLeapYears(StartYear?As?Integer,?EndYear?As?Integer)?As?Integer()

Dim?leapyears()?As?Integer?=?Nothing

Dim?index?As?Integer?=?0

For?i?=?StartYear?To?EndYear

If?(i?Mod?400?=?0)?Or?(i?Mod?4?=?0?And?i?Mod?100??0)?Then

ReDim?Preserve?leapyears(index)

leapyears(index)?=?i

index?+=?1

End?If

Next

Return?leapyears

End?Function

擴(kuò)展資料：

注意事項(xiàng)

DateSerial返回包含指定的年、月、日的 Variant (Date)。

語(yǔ)法：DateSerial(year, month, day)

Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean

MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29

End Function

Private Sub Command1_Click()

If Len(Text1.Text) = 4 Then

? If MonthToLeapYear(Text1.Text) = True Then

? ? ? Print Text1.Text "年是閏年"

? Else

? ? ? Print Text1.Text "年是平年"

? End If

Else

?Print "錯(cuò)誤：請(qǐng)輸入正確的年份！"

End If

End Sub

在VB.NET中進(jìn)行日期處理時(shí)，避免手工判斷或計(jì)算是個(gè)好主意，因?yàn)槭止び?jì)算由于代碼的質(zhì)量問(wèn)題可能不準(zhǔn)確。可以使用.NET提供的類的功能進(jìn)行日期處理。

例如，如果需要判斷給定的某年是否閏年，可以使用VB.NET的IsLeapYear函數(shù)。下面是如何使用該函數(shù)的一個(gè)例子：

Private Sub LeapYearCheck()

Dim bLeapYear AsBoolean

bLeapYear = Date.IsLeapYear(Now.Year)

MessageBox.Show(bLeapYear)

bLeapYear = Date.IsLeapYear(2004)

MessageBox.Show(bLeapYear)

End Sub

在vb.net中，DateDiff（）函數(shù)是有什么用的？又是怎么用的？

DateDiff 函數(shù)

返回 Variant (Long) 的值，表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目。

語(yǔ)法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函數(shù)語(yǔ)法中有下列命名參數(shù)：

部分 描述

interval 必要。字符串表達(dá)式，表示用來(lái)計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔

Date1□date2 必要；Variant (Date)。計(jì)算中要用到的兩個(gè)日期。

Firstdayofweek 可選。指定一個(gè)星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。

firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含 1 月 1 日的星期為第一周。

設(shè)置

interval 參數(shù)的設(shè)定值如下：

設(shè)置 描述

yyyy 年

q 季

m 月

y 一年的日數(shù)

d 日

w 一周的日數(shù)

ww 周

h 時(shí)

n 分鐘

s 秒

firstdayofweek 參數(shù)的設(shè)定值如下：

常數(shù) 值 描述

vbUseSystem 0 使用 NLS API 設(shè)置。

vbSunday 1 星期日（缺省值）

vbMonday 2 星期一

vbTuesday 3 星期二

vbWednesday 4 星期三

vbThursday 5 星期四

vbFriday 6 星期五

vbSaturday 7 星期六

常數(shù) 值 描述

vbUseSystem 0 用 NLS API 設(shè)置。

vbFirstJan1 1 從包含 1 月 1 日的星期開(kāi)始（缺省值）。

vbFirstFourDays 2 從第一個(gè)其大半個(gè)星期在新的一年的一周開(kāi)始。

vbFirstFullWeek 3 從第一個(gè)無(wú)跨年度的星期開(kāi)始。

說(shuō)明

DateDiff 函數(shù)可用來(lái)決定兩個(gè)日期之間所指定的時(shí)間間隔數(shù)目。例如，可以使用 DateDiff 來(lái)計(jì)算兩個(gè)日期之間相隔幾日，或計(jì)算從今天起到年底還有多少個(gè)星期。

為了計(jì)算 date1 與 date2 相差的日數(shù)，可以使用“一年的日數(shù)”(y) 或“日”(d)。當(dāng) interval 是“一周的日數(shù)”(w) 時(shí)，DateDiff 返回兩日期間的周數(shù)。如果 date1 是星期一，DateDiff 計(jì)算到 date2 為止的星期一的個(gè)數(shù)。這個(gè)數(shù)包含 date2 但不包含 date1。不過(guò)，如果 interval 是“周”(ww)，則 DateDiff 函數(shù)返回兩日期間的“日歷周”數(shù)。由計(jì)算 date1 與 date2 之間星期日的個(gè)數(shù)而得。如果 date2 剛好是星期日，則 date2 也會(huì)被加進(jìn) DateDiff 的計(jì)數(shù)結(jié)果中；但不論 date1 是否為星期日，都不將它算進(jìn)去。

如果 date1 比 date2 來(lái)得晚，則 DateDiff 函數(shù)的返回值為負(fù)數(shù)。

firstdayofweek 參數(shù)會(huì)影響使用時(shí)間間隔符號(hào) “W” 或 “WW” 計(jì)算的結(jié)果。

如果 date1 或 date2 是日期文字，則指定的年份成為該日期的固定部分。但是，如果 date1 或 date2 用雙引號(hào) (" ") 括起來(lái)，且年份略而不提，則在每次計(jì)算表達(dá)式 date1 或 date2 時(shí)，當(dāng)前年份都會(huì)插入到代碼之中。這樣就可以書(shū)寫(xiě)適用于不同年份的程序代碼。

在計(jì)算 12 月 31 日和來(lái)年的 1 月 1 日的年份差時(shí)，DateDiff 返回 1 表示相差一個(gè)年份，雖然實(shí)際上只相差一天而已。

VB.net當(dāng)中用數(shù)學(xué)函數(shù)math.sin出現(xiàn)的問(wèn)題

-1.52341E-13

科學(xué)計(jì)數(shù)法，10的-13次方表示此數(shù)已經(jīng)接近于0了，應(yīng)該是single類型的精度導(dǎo)致的，你把精度設(shè)置適當(dāng)應(yīng)該就可以了。

VB.NET怎么位運(yùn)算?

注意只能對(duì)整型執(zhí)行按位運(yùn)算。浮點(diǎn)值必須轉(zhuǎn)換為整型后，才能執(zhí)行按位運(yùn)算。按位運(yùn)算采用二進(jìn)制（以 2 為基）形式計(jì)算兩個(gè)整數(shù)值。它們比較對(duì)應(yīng)位置上的位，然后基于比較的結(jié)果賦值。下面的示例演示了 And 運(yùn)算符。復(fù)制Dim x As Integerx = 3 And 5 前面的示例將 x 的值設(shè)置為 1。發(fā)生這種情況的原因如下：這些值以二進(jìn)制形式處理：二進(jìn)制格式的 3 為 011二進(jìn)制格式的 5 為 101And 運(yùn)算符比較這些二進(jìn)制表示方式，一次比較一個(gè)二進(jìn)制位置（位）。如果給定位置的兩個(gè)位都為 1，則將 1 放在結(jié)果中的該位置。如果任何一個(gè)位是 0，則將 0 放在結(jié)果中的該位置。在前面的示例中，按如下所示計(jì)算結(jié)果：011（二進(jìn)制格式的 3）101（二進(jìn)制格式的 5）001（二進(jìn)制格式的計(jì)算結(jié)果）計(jì)算結(jié)果以十進(jìn)制形式處理。值 001 是 1 的二進(jìn)制表示形式，因此 x = 1。除了在任何一個(gè)比較位是 1 或兩個(gè)比較位都是 1 的情況下將 1 賦予結(jié)果位以外，按位 Or 運(yùn)算與此類似。Xor 在比較的位正好只有一個(gè)是 1（而不是兩者都是 1）時(shí)將 1 賦給結(jié)果位。Not 采用單個(gè)操作數(shù)并反轉(zhuǎn)所有位（包括符號(hào)位），然后將該值賦予結(jié)果。這意味著，對(duì)于有符號(hào)正數(shù)，Not 始終返回負(fù)值，而對(duì)于負(fù)數(shù)，Not 始終返回正值或零。AndAlso 和OrElse 運(yùn)算符不支持按位運(yùn)算。 追問(wèn)： 好復(fù)雜啊...還是不會(huì),還有整數(shù)怎么轉(zhuǎn)換為二進(jìn)制數(shù)? 回答： 為什么一定要用位運(yùn)算呢，你那個(gè)乘法只能通過(guò)左移操作符“ ”來(lái)進(jìn)行，而左移一次代表乘以2，要是乘以一個(gè)小數(shù)，就必須先化成2的n次方，不夠再用加減法調(diào)整，很麻煩啊，沒(méi)必要用位運(yùn)算啊。。。 追問(wèn)： 因?yàn)槲乙M(jìn)行大量的運(yùn)算,但速度要快,所有用位運(yùn)算...我也不想啊.. 回答： 那就不該用VB 啊，c/c++在執(zhí)行效率上是沒(méi)話說(shuō)的。 追問(wèn)： 問(wèn)題就是不會(huì)嘛... 回答： 那你上csdn上發(fā)帖效果應(yīng)該不錯(cuò) 追問(wèn)： CSDN發(fā)了,我發(fā)在高性能運(yùn)算,沒(méi)人... 回答： 耐心一些，或者你應(yīng)該發(fā)到VB.NET論壇那里。。。 追問(wèn)： 額..只能這樣了... 提問(wèn)者 的感言： 太復(fù)雜了..算了 2010-11-08

網(wǎng)頁(yè)標(biāo)題：vb.net中的計(jì)算函數(shù),vb中函數(shù)大全
本文URL：http://chinadenli.net/article19/dsidodh.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、、App開(kāi)發(fā)、自適應(yīng)網(wǎng)站、網(wǎng)站營(yíng)銷、網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(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)