A算法與程序設計(VB)摘要：完善顯示按扭程序,使當單擊該按扭時標簽標題改為算法與程序設計;Private Sub Command1_Click()Label1.caption=算法與程序設計.關鍵詞：算法,設計類別：專題技術來源：牛檔搜索（Niudown.COM）本文系牛檔搜索（Niudown.COM）根據用戶的指令自動搜索的結果，文中內涉及到的資料均來自互聯網，用于學習交流經驗，作品其著作權歸原作者所有。不代表牛檔搜索（Niudown.COM）贊成本文的內容或立場，牛檔搜索（Niudown.COM）不對其付相應的法律責任！A算法與程序設計（VB）第一套第15題請編寫程序，打印出下面所示的圖案。*完成所有操作后，請按“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(說明：i表示行數，j表示輸出的“*”數)第16題編寫程序，求函數y的值（當x小于等于0時，y=3x+1；當x0時，y=4x+1）。完成所有操作后，請按“Ctrl+S”保存。（x的值在程序中調用InputBox函數，在彈出的標準對話框中輸入）程序如下：Private Sub Form_Click() Dim x As Single 定義x為單精度型變量，由標準輸入對話框輸入 Dim y As Single 定義y為單精度型變量，值由窗體顯示 x = Val (InputBox(請輸入變量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題編寫遞歸函數求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題設計一個程序，打印下面所示的圖案完成所有操作后按“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題一只猴子摘了一堆桃子，它每天吃當天桃子的一半，每次忍不住多吃了一個。這樣到第十天時只有一個桃子可以吃了，編程計算猴子最初共有多少個桃子。完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer 定義天數變量Dim s As Integer 定義s為桃子總數結果由窗體輸出s = 1For i = 1 To 9 s = (s + 1) * 2Next iPrint s=; sEnd Sub第17題編程計算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題編寫遞歸函數求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() 調用遞歸函數，顯示結果 Print s(10)=; s(10)End Sub第四套第15題完善“顯示”按鈕的click程序，將代碼段中“變量1”，“變量2”，“變量3”處換成正確的變量名，使當單擊該按鈕時，Label1、Label2分別顯示30、10.完成所有操作后，請按“Ctrl+5”保存。Private sub command_click()X=10Y=30If x=60 ThenLable1.caption=”及格” Endif If a60 ThenLable1.caption=”不及格” EndifEnd Sub第16題請將按扭“計算1+2+100”的Click事件程序中的“常量”和“變量”換成正確的“常量”和“變量”，當單擊命令按扭時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題對窗體Form1進行如下修改：1、 在窗體中增加一個標簽；2、 設置標簽的對齊方式為“居中對齊”；（做法：選中標簽將其屬性欄中的“Alignment”屬性值選擇為“2-center”）3、 完善“顯示”按扭程序，使當單擊該按扭時標簽標題改為“算法與程序設計”；Private Sub Command1_Click()Label1.caption=”算法與程序設計”End sub第18題在已打開的窗體Form1中，在窗體中增加一個文本框text3。再完成按扭中的程序設計，使當單擊“計算” 按扭時，計算b*b-4ac的值，并在text3中顯示出來。Private Sub Command_Click(