A算法與程序設(shè)計(jì)(VB).docVIP

A算法與程序設(shè)計(jì)(VB)摘要：完善顯示按扭程序,使當(dāng)單擊該按扭時(shí)標(biāo)簽標(biāo)題改為算法與程序設(shè)計(jì);Private Sub Command1_Click()Label1.caption=算法與程序設(shè)計(jì).關(guān)鍵詞：算法,設(shè)計(jì)類(lèi)別：專(zhuān)題技術(shù)來(lái)源：牛檔搜索（Niudown.COM）本文系牛檔搜索（Niudown.COM）根據(jù)用戶(hù)的指令自動(dòng)搜索的結(jié)果，文中內(nèi)涉及到的資料均來(lái)自互聯(lián)網(wǎng)，用于學(xué)習(xí)交流經(jīng)驗(yàn)，作品其著作權(quán)歸原作者所有。不代表牛檔搜索（Niudown.COM）贊成本文的內(nèi)容或立場(chǎng)，牛檔搜索（Niudown.COM）不對(duì)其付相應(yīng)的法律責(zé)任！A算法與程序設(shè)計(jì)（VB）第一套第15題請(qǐng)編寫(xiě)程序，打印出下面所示的圖案。*完成所有操作后，請(qǐng)按“Ctrl+S”保存。程序如下：Private Sub Form_Click() Dim i As Integer 定義i為整形變量 Dim j As Integer 定義j為整形變量 For i = -3 To 3 Print Tab(Abs(i) + 5) 確定每行的起始位置 For j = 1 To (4 - Abs(i) ) - 1 Print * ; Next j Print 換行 Next iEnd Sub(說(shuō)明：i表示行數(shù)，j表示輸出的“*”數(shù))第16題編寫(xiě)程序，求函數(shù)y的值（當(dāng)x小于等于0時(shí)，y=3x+1；當(dāng)x0時(shí)，y=4x+1）。完成所有操作后，請(qǐng)按“Ctrl+S”保存。（x的值在程序中調(diào)用InputBox函數(shù)，在彈出的標(biāo)準(zhǔn)對(duì)話框中輸入）程序如下：Private Sub Form_Click() Dim x As Single 定義x為單精度型變量，由標(biāo)準(zhǔn)輸入對(duì)話框輸入 Dim y As Single 定義y為單精度型變量，值由窗體顯示 x = Val (InputBox(請(qǐng)輸入變量x的值) If x =500中 最小的n.Private sub form_click()dim s as integerdim n as integers= 0_n=0don=n+1s= s+n_loop until s500print “n=”;nend sub第18題編寫(xiě)遞歸函數(shù)求5!的值。Public function s(n as integer) as longIf n=1 thenS= 1 ElseS= s(n-1)*n End ifEnd function Private sub form_click()Print “s(10)=” ; s(5) End sub第三套第15題設(shè)計(jì)一個(gè)程序，打印下面所示的圖案完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer 定義i為整型變量Dim j As Integer 定義j為整型變量Dim j As IntegerFor i = 1 To 6 Print Tab(10); For j = 1 To i Print ; Next jPrintNext iEnd Sub第16題一只猴子摘了一堆桃子，它每天吃當(dāng)天桃子的一半，每次忍不住多吃了一個(gè)。這樣到第十天時(shí)只有一個(gè)桃子可以吃了，編程計(jì)算猴子最初共有多少個(gè)桃子。完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer 定義天數(shù)變量Dim s As Integer 定義s為桃子總數(shù)結(jié)果由窗體輸出s = 1For i = 1 To 9 s = (s + 1) * 2Next iPrint s=; sEnd Sub第17題編程計(jì)算s=1*2+2*3+3*4+n*(n+1)的值，其中n=10。完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim s As Single 和，定義變量s為單精度型Dim i As Integer 定義變量s = 0For i = 1 To 100s = s + i * (i + 1)Next iPrint s=; sEnd Sub第18題編寫(xiě)遞歸函數(shù)求10！的值。完成所有操作后按“Ctrl+S”保存。Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else s = s(n - 1) * n End If End FunctionPrivate Sub Form_Click() 調(diào)用遞歸函數(shù)，顯示結(jié)果 Print s(10)=; s(10)End Sub第四套第15題完善“顯示”按鈕的click程序，將代碼段中“變量1”，“變量2”，“變量3”處換成正確的變量名，使當(dāng)單擊該按鈕時(shí)，Label1、Label2分別顯示30、10.完成所有操作后，請(qǐng)按“Ctrl+5”保存。Private sub command_click()X=10Y=30If x=60 ThenLable1.caption=”及格” Endif If a60 ThenLable1.caption=”不及格” EndifEnd Sub第16題請(qǐng)將按扭“計(jì)算1+2+100”的Click事件程序中的“常量”和“變量”換成正確的“常量”和“變量”，當(dāng)單擊命令按扭時(shí)Text1顯示1+2+100的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a= 0 For i=1 to 100 a=a+i next i text1.text= a end sub第17題對(duì)窗體Form1進(jìn)行如下修改：1、 在窗體中增加一個(gè)標(biāo)簽；2、 設(shè)置標(biāo)簽的對(duì)齊方式為“居中對(duì)齊”；（做法：選中標(biāo)簽將其屬性欄中的“Alignment”屬性值選擇為“2-center”）3、 完善“顯示”按扭程序，使當(dāng)單擊該按扭時(shí)標(biāo)簽標(biāo)題改為“算法與程序設(shè)計(jì)”；Private Sub Command1_Click()Label1.caption=”算法與程序設(shè)計(jì)”End sub第18題在已打開(kāi)的窗體Form1中，在窗體中增加一個(gè)文本框text3。再完成按扭中的程序設(shè)計(jì)，使當(dāng)單擊“計(jì)算” 按扭時(shí)，計(jì)算b*b-4ac的值，并在text3中顯示出來(lái)。Private Sub Command_Click(