'vb.net2008
壽光網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)建站！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、APP開(kāi)發(fā)、自適應(yīng)網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作，到程序開(kāi)發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)建站2013年開(kāi)創(chuàng)至今到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim min, max As Integer
Dim a() As Integer = {3, 2, 4, 1}
min = Proc(a)(0)
max = Proc(a)(1)
End Sub
Private Function Proc(ByVal a() As Integer)
Dim a_out(a.GetUpperBound(0)), a_m(1) As Integer
System.Array.Copy(a, a_out, a.GetUpperBound(0) + 1)
System.Array.Sort(a_out)
a_m(0) = a_out(0)
a_m(1) = a_out(a_out.GetUpperBound(0))
Return a_m
End Function
End Class
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ū)寫適用于不同年份的程序代碼。
在計(jì)算 12 月 31 日和來(lái)年的 1 月 1 日的年份差時(shí)，DateDiff 返回 1 表示相差一個(gè)年份，雖然實(shí)際上只相差一天而已。
很簡(jiǎn)單，在end select前再多加一種情況case else return "XXXx",因?yàn)槟阒惶峁┝?-9這10種情況
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function
為什么我的不是?
Dim?pi
pi?=?3.1415926
Dim?a
a?=?30
Text1.Text?=?Sin(a?*?pi?/?180)
Option Explicit
Private Sub form_Click()
Dim A As Integer, B As Integer, Step As Integer, Simp As Single
A = 0
B = 1
Step = 10000
Simp = simps(A, B, Step)
Print Simp
End Sub
Private Function Fun(X As Single) As Single
Fun = X ^ 3 * (1 - X) ^ 4
End Function
Private Function simps(A As Integer, B As Integer, Step As Integer) As Single
Dim H As Single, Four As Single, Two As Single, S As Single, X As Single, I As Integer
H = (B - A) / Step
X = A
S = Fun((A)) + Fun((B))
For I = 1 To Step / 2
X = X + H
Four = Four + Fun(X)
X = X + H
Two = Two + Fun(X)
Next I
Two = Two - Fun(X)
S = 4 * Four + 2 * Two
simps = S * H / 3
End Function
使用辛普森法求函數(shù)θ^3*(1-θ)^4在區(qū)間【0~1】的定積分。
辛普森法求積分公式如下：
y=h/3{f(a)+f(b)+4[f(a+h)+f(a+3h)+...+f(b-2h)]+2[f(a+2h)+f(a+4h)+...+f(b-h)]}
其中a、b為積分區(qū)間【a,b】,若將區(qū)間分為n（n為偶數(shù))等份，則n越大，精度越高，h=(b-a)/n
重慶分公司
重慶分公司
