高中信息技術(shù)會(huì)考vb選修操作題答案-文庫(kù)吧資料
2025-06-07 01:39本頁(yè)面
【正文】 sub第三套第15題設(shè)計(jì)一個(gè)程序，打印下面所示的圖案完成所有操作后按“Ctrl+S”保存。nend sub第18題編寫遞歸函數(shù)求5!的值。Private sub form_click()Dim x as singleDim y as singleX= val (inputbox(“請(qǐng)輸入變量x”))Y= 6*x5 Print “y=”。Next jPrintNext IEnd sub第16題編寫程序，求y=6*x5的值。 只 End If Next Tu Next JiEnd Sub第二套第15題設(shè)計(jì)一個(gè)程序，打印下面所示圖案。 只, 兔＝。如果腿數(shù)夠100并且頭有40個(gè)，則打印 Print 雞。計(jì)算腿數(shù) Head = Ji + Tu 39。腿數(shù) Dim Head As Integer 39。雞 Dim Tu As Integer 39。 sEnd Sub第18題編程求：雞和兔在一個(gè)籠里，共有100條腿，40個(gè)頭，問(wèn)雞有幾只？兔有幾只？完成所有操作后，請(qǐng)“Ctrl+S”保存。定義變量s為單精度型 Dim i As Integer 39。完成所有操作后，請(qǐng)“Ctrl+S”保存。 yEnd Sub（說(shuō)明InputBox中輸入的是字符串型，用Val函數(shù)將其轉(zhuǎn)換成數(shù)值型。定義x為單精度型變量，由標(biāo)準(zhǔn)輸入對(duì)話框輸入 Dim y As Single 39。完成所有操作后，請(qǐng)按“Ctrl+S”保存。 Next j Print 39。定義j為整形變量 For i = 3 To 3 Print Tab(Abs(i) + 5) 39。程序如下：Private Sub Form_Click() Dim i As Integer 39。算法與程序設(shè)計(jì)（VB）劉晗 高二全體 20081110第一套第15題請(qǐng)編寫程序，打印出下面所示的圖案。*********完成所有操作后，請(qǐng)按“Ctrl+S”保存。定義i為整形變量 Dim j As I
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1