vb.net的兩道題

1.編程求1!+3!+5!+....+n! N由inputbox獲取

創(chuàng)新互聯(lián)公司專注于網(wǎng)站建設(shè)|網(wǎng)站維護(hù)公司|優(yōu)化|托管以及網(wǎng)絡(luò)推廣，積累了大量的網(wǎng)站設(shè)計(jì)與制作經(jīng)驗(yàn)，為許多企業(yè)提供了網(wǎng)站定制設(shè)計(jì)服務(wù)，案例作品覆蓋成都門簾等行業(yè)。能根據(jù)企業(yè)所處的行業(yè)與銷售的產(chǎn)品，結(jié)合品牌形象的塑造，量身開(kāi)發(fā)品質(zhì)網(wǎng)站。

Function Math(ByVal N As Integer) As Integer

Dim c As Integer = 1

For i = 1 To N

c *= i

Next

Return c

End Function

Dim N As String = InputBox("輸入N的值.")

If N = "" Then Return

MessageBox.Show(Math(N))

2.用最簡(jiǎn)單的方法將個(gè)位數(shù)和十位數(shù)互換,一定要最簡(jiǎn)單的方法..比如31換成13.

Dim s As String = InputBox("輸入一個(gè)十位數(shù).")

If s = "" Then Return

MessageBox.Show(StrReverse(s))

VB.NET程序設(shè)計(jì)題

題1:

最簡(jiǎn)單了，高中就學(xué)過(guò)的等差數(shù)列，公式代過(guò)來(lái)就行拉

SUB A()

return 100*101/2

END SUB

題2：

更簡(jiǎn)單拉，小學(xué)初中就學(xué)過(guò)長(zhǎng)度乘高度等于面積

FUNCTION B(Width as integer, Height as integer) AS INTEGER

return Width*Height

END FUNCTION

VB.NET程序題

1、

For j = 3 To 19 Step 4

m += 1

Next

為循環(huán)5次

For i = 1 To 15 Step 4

Next

為循環(huán)4次

則總共循環(huán)4*5=20,m沒(méi)循環(huán)一次+1，則m=20

2、從下面這段可以看出“*”與“#”是同步的(因?yàn)樽遝lse時(shí)，會(huì)繼續(xù)循環(huán))，有“*”肯定“#”，而輸出“*”只有當(dāng)i=2,4時(shí)，則有2次，為*#*#

For i = 1 To 5

If i Mod 2 = 0 Then

Console.Write("*")

Else

ContinueFor

EndIf

Console.Write("#")

Next

在加上最後次輸出：Console.WriteLine("$")

結(jié)果則為：*#*#$