高中信息技術(shù)會(huì)考vb選修操作題答案-在線瀏覽
2025-07-19 01:39本頁(yè)面
【正文】 o 2__Print tab(abs(i)+5)For j=1 to 2*(3 abs(i) 1)Print “*” 。（x的值在程序調(diào)用中調(diào)用inputbox函數(shù)，在彈出的標(biāo)準(zhǔn)輸入對(duì)話框中輸入）。 y_End sub第17題編寫程序求1+2+3+……..+n=500中 最小的n.Private sub form_click()dim s as integerdim n as integers= 0_n=0don=n+1s= s+n_loop until s500print “n=”。Public function s(n as integer) as longIf n=1 thenS= 1 ElseS= s(n1)*n End ifEnd function Private sub form_click()Print “s(10)=” 。Private Sub Form_Click()Dim i As Integer 39。定義j為整型變量Dim j As IntegerFor i = 1 To 6 Print Tab(10)。 Next jPrintNext iEnd Sub第16題一只猴子摘了一堆桃子，它每天吃當(dāng)天桃子的一半，每次忍不住多吃了一個(gè)。完成所有操作后按“Ctrl+S”保存。定義天數(shù)變量Dim s As Integer 39。 sEnd Sub第17題編程計(jì)算s=1*2+2*3+3*4+……+n*(n+1)的值，其中n=10。Private Sub Form_Click()Dim s As Single 39。定義變量s = 0For i = 1 To 100s = s + i * (i + 1)Next iPrint s=。完成所有操作后按“Ctrl+S”保存。調(diào)用遞歸函數(shù)，顯示結(jié)果 Print s(10)=。Private sub mand_click()X=10Y=30If xy thenT=XX=YY=TEnd If=x=yEnd Sub第16題完善按鈕“計(jì)算7！”的Click事
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1