建站
咨詢
售后
建站咨詢
新聞中心
VB.NET編程習(xí)題求教（二）
假設(shè)你用來顯示內(nèi)容的是一個(gè)Label1
網(wǎng)站的建設(shè)創(chuàng)新互聯(lián)公司專注網(wǎng)站定制,經(jīng)驗(yàn)豐富,不做模板,主營網(wǎng)站定制開發(fā).小程序定制開發(fā),H5頁面制作!給你煥然一新的設(shè)計(jì)體驗(yàn)!已為報(bào)廢汽車回收等企業(yè)提供專業(yè)服務(wù)。
For i = 1 To 8
Label1.Text = Label1.Text Chr(13) Chr(10) Space(i - 1) StrDup(18 - 2 * i,Chr(64 + i))
Next
Chr(13) Chr(10)是回車符加換行符
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、從下面這段可以看出“*”與“#”是同步的(因?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é)果則為：*#*#$
VB.NET 編程 關(guān)于回文數(shù)的題目。
在WinForm項(xiàng)目的窗體上添加一個(gè)按鈕和文本框，然后把下面的代碼粘貼上去就可以了。
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
'判斷一個(gè)整數(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習(xí)題
發(fā)到你郵箱了，感覺可以的話就用吧，不過由于本人能力淺薄，有的題未能解決，為此表示歉意！
有問題請(qǐng)發(fā)信聯(lián)系！
VB.NET程序設(shè)計(jì)題
題1:
最簡(jiǎn)單了，高中就學(xué)過的等差數(shù)列，公式代過來就行拉
SUB A()
return 100*101/2
END SUB
題2：
更簡(jiǎn)單拉，小學(xué)初中就學(xué)過長度乘高度等于面積
FUNCTION B(Width as integer, Height as integer) AS INTEGER
return Width*Height
END FUNCTION
VB.net編程問題，急急急@??！
下面是實(shí)現(xiàn)代碼。
‘------------------------------------
Public?Class?Form1
'添加按鈕按下，把輸入框文本添加到“添加框”
Private?Sub?btnAdd_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?btnAdd.Click
TextBox1.Text?=?TextBox_add.Text
End?Sub
'刪除按鈕按下，把“添加框”的內(nèi)容移到“刪除框”，并將“添加框”與“刪除框”內(nèi)容清空
Private?Sub?btnDel_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?btnDel.Click
TextBox2.Text?=?TextBox1.Text
TextBox1.Text?=?""
TextBox_add.Text?=?""
End?Sub
'----但是我覺得你的要求里有"所選項(xiàng)目"這樣幾個(gè)字，沒太看懂，如果要可選的話，應(yīng)該不采用TextBox，而采用ListBox
'---而且你的要求似乎沒有寫全
'歡迎交流，有意的話留下QQ
End?Class
網(wǎng)頁題目：vb.net編程題 vb程序試題
文章位置：http://fisionsoft.com.cn/article/docgoop.html
