江蘇省高中信息技術(shù)算法與程序設(shè)計(jì)vb選修簡要教程-資料下載頁
2025-05-31 18:09本頁面
【正文】 t *。 Next j Print 39。換行 Next iEnd Sub必修2_1編寫程序，使能打印下面所示的圖案。********* *** *程序：Private Sub Form Click()Dim i As Integer 39。定義i為整型變量Dim j As Integer 39。定義j為整型變量 For i = 3 To 3 Print Tab(Abs(i)+5)。 For j=1 To 2*(3Abs(i))1 Print *。 Next j Print 39。換行 Next iEnd Sub必修3_1編寫程序，使能打印下面所示的圖案。@@@@@@@@@@@@@@@@@@@@@程序：Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 1 To 6 Print Tab(10)。 For j = 1 To i Print “@”。 Next j Print Next iEnd Sub必修4_1完善顯示按鈕的click程序，將代碼段中“變量1“、“變量2.“變量處換成正確的變量名，使當(dāng)單擊該按鈕時(shí)，Labell. Label2分別顯示10,完成所有操作后，諸按“Ctrl+S”保存。Private Sub Command_Click( ) x = 10 y = 30 If x y Then t = x x = y y = t End If = x = yEnd Sub必修5_1完善判斷按鈕的click程序，使當(dāng)從Textl中輸入一個(gè)數(shù)時(shí)，當(dāng)該數(shù)大于或等于60時(shí)在Lebell中顯示及格，該數(shù)小于60時(shí)在Labell中顯示不及格。完成所有操作后，諸按“Ctrl+S”保存。Private Sub Command1_Click( ) Dim a As Single a = Val() If a=60 Then = “及格” End If If a 60 Then = “不及格” End IfEnd Sub必修1_1編寫程序，求函數(shù)y的值(當(dāng)x=0時(shí),y=3x+1。當(dāng)x0時(shí)，y=4x+1)。程序：Private Sub Form Click()Dim x As Single 39。定義x為單精度型變量Dim y As Single 39。定義y為單精度型變量x = Val(InputBox(請(qǐng)輸入變量x))If x =0 Then y = 3 * x + 1Else y = 4 * x + 1End IfPrint y=。yEnd Sub必修2_1編寫程序，求y=6x5的值。(x的值在程序中調(diào)用InputBox函數(shù)，在彈出的標(biāo)準(zhǔn)輸入對(duì)話框中輸入)程序：Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox(“請(qǐng)輸入變量x”))y = 6*x – 5Print “y=”。End Sub必修3_1一只猴子摘了一堆桃子，它每天吃當(dāng)天桃子數(shù)的一半，每次忍不住多吃了一個(gè)。這樣到第十天時(shí)只有一個(gè)桃子可以吃了，編程計(jì)算猴子最初共有多少個(gè)桃子。完成所有操作后，諸按“Ctrl+S”保存。程序：Private Sub Form_Click() Dim i As Integer Dim s As Integer s = 1 For i =1 To 9 s = (s + 1)*2 Next Print “s=”。sEnd Sub必修4_1完善按鈕“計(jì)算7!”的Click事件程序，當(dāng)單擊命令按鈕時(shí)Text1顯示7!的值。Private Sub Command1_Click( )Dim a As IntegerDim i As Integera = 1For i = 1 To 7 a = a * iNext i = aEnd Sub必修5_1請(qǐng)將按鈕計(jì)算1+2+……+100的Click事件程序中的常量和變量換成正確的常量和變量，當(dāng)單擊命令按鈕時(shí)Text1顯示1+2++100的值。完成所有操作后，諸按“Ctrl+S”保存。Private Sub Command1_Click( ) Dim a As Integer Dim I As Integer a = 0 For i = 1 To 100 a = a + i Next i = a必修4_1編寫程序，當(dāng)在Textl中輸入x的值后，單擊計(jì)算按鈕，求 y = |3x 5|的值。Private Sub Command1_Click( ) Dim x As Single Dim y As Single x = y = Abs(3*x5) = yEnd Sub必修5_1在打開的窗體Forml中，在窗體中增加一個(gè)文本框Text3,在完整按鈕中的程序，使當(dāng)單擊計(jì)算按鈕時(shí)，計(jì)算b*b一4ec的值，并在Text3中顯示出來。Private Sub Command1_Click( ) Dim b As Single Dim c As Single Dim x As Single b = c = x = b * b – 4 * c = xEnd Sub必修1_1編程計(jì)算 s=12+34+5……+99100程序：Private Sub Form Click()Dim s As Integer 39。定義變量s為整型變量Dim i As Integer 39。定義循環(huán)變量s = 0For i=1 To 100 if int(i/2) i/2 Then s = s + i Else s = s i EndNext iPrint s=。sEnd Sub必修2_1編寫程序，求I+2+…+n=500中最小的n程序：Private Sub Form_Click( )Dim s As IntegerDim n As Integers = 0n = 0Do n = n + 1 s = s + nLoop Until s 500Print “n=”。nEnd Sub必修3_1編程計(jì)算s = 1*2+2*3+3*4+……+n*(n+1)的值，其中n =10Private Sub Form_Click() Dim s As Single Dim i As Integer s = 0 For i = 1 To 10 s = s + i * (i +1)。 Next i Print “s=”。sEnd Sub必修1_1編程求:雞和兔在一個(gè)籠里，共有腿100條，頭40個(gè)，問雞有幾只，兔有幾只?程序：Private Sub Form Click()Dim Ji As Integer 39。雞Dim Tu As Integer 39。兔Dim Leg As Integer 39。腿數(shù)Dim Head As Integer 39。頭數(shù)For Ji=1 To 50 For Tu=1 To 25 Leg = Ji*2 + Tu*4 39。計(jì)算腿 Head= Ji + Tu 39。計(jì)算頭 If Leg = 100 And Head = 40 Then Print 雞=。Ji。只, 兔=。Tu。只 End If Next TuNext JiEnd Sub必修2_1編寫遞歸函數(shù)求5!的值。Public Function s(n As Integer) As LongIf n = 1 Then s = 1Else s=n * s(n1)End IfEnd FunctionPrivate Sub Form_Click()Print “s(5)=”。s(5)End Sub必修3_1編寫遞歸函數(shù)求10!的值。Public Function s(n As Integer) As LongIf n = 1 Then s = 1Else s=n * s(n1)End IfEnd FunctionPrivate Sub Form_Click()Print “s(10)=”。s(10)End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1