VB.NET 編程 關(guān)于回文數(shù)的題目。

在WinForm項目的窗體上添加一個按鈕和文本框，然后把下面的代碼粘貼上去就可以了。

“專業(yè)、務(wù)實、高效、創(chuàng)新、把客戶的事當(dāng)成自己的事”是我們每一個人一直以來堅持追求的企業(yè)文化。 成都創(chuàng)新互聯(lián)公司是您可以信賴的網(wǎng)站建設(shè)服務(wù)商、專業(yè)的互聯(lián)網(wǎng)服務(wù)提供商! 專注于成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、軟件開發(fā)、設(shè)計服務(wù)業(yè)務(wù)。我們始終堅持以客戶需求為導(dǎo)向，結(jié)合用戶體驗與視覺傳達(dá)，提供有針對性的項目解決方案，提供專業(yè)性的建議，創(chuàng)新互聯(lián)建站將不斷地超越自我，追逐市場，引領(lǐng)市場！

Public Function lsH(ByVal n As String) As String

Dim s1 As String = ""

Dim s2 As String = ""

Dim i As Integer = 0

Dim j As Integer

If n.Length = 1 Then

Return ("是回文數(shù)")

Else

If Tell_JiOu(n.Length) = 1 Then

j = (n.Length + 1) / 2

s1 = Mid(n, 1, j)

Else

j = n.Length / 2 + 1

s1 = Mid(n, 1, j - 1)

End If

For i = n.Length To j Step -1

s2 = s2 + Mid(n, i, 1)

Next

If s1 = s2 Then

Return "是回文數(shù)"

Else

Return "不是回文數(shù)"

End If

End If

End Function

'判斷一個整數(shù)的奇偶

Public Function Tell_JiOu(ByVal k As Integer) As Integer

If k Mod 2 = 0 Then

Return 2

Else

Return 1

End If

End Function

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

Button.Text = lsH(TextBox1.Text)

End Sub

VB.NET的 題目下面程序的輸出結(jié)果為？ x=10:y=20 label1.text=x&"+"&y&"=" label1.text&=x+y&VBCRLF

最后結(jié)果為： 10+20=30 [回車] 第一個賦值語句應(yīng)該不用解釋把，給你解釋下Label1.Text = x + y vbCrLf vb.net中多了雙目運算符，也就是+=，-=，*=，/=等這些，用x+=y來說明，等價于x=x+y 所以上面那句等價于Label1.Textg = Label1.Text x + y vbCrLf 第一句Label的值為10+20=，那么在跟上x+y的值后就是10+20=30，最后在跟上一個回車。

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

題1:

最簡單了，高中就學(xué)過的等差數(shù)列，公式代過來就行拉

SUB A()

return 100*101/2

END SUB

題2：

更簡單拉，小學(xué)初中就學(xué)過長度乘高度等于面積

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沒循環(huán)一次+1，則m=20

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

For i = 1 To 5

If i Mod 2 = 0 Then

Console.Write("*")

Else

ContinueFor

EndIf

Console.Write("#")

Next

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

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

文章標(biāo)題：vb.net程序題 vbnet doevent
新聞來源：http://vcdvsql.cn/article38/dopjisp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供建站公司、搜索引擎優(yōu)化、網(wǎng)站內(nèi)鏈、網(wǎng)站營銷、虛擬主機(jī)、企業(yè)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)