高中信息技術(shù)會(huì)考vb選修操作題答案(已修改)
2025-06-13 01:39 本頁面
【正文】 算法與程序設(shè)計(jì)（VB）劉晗 高二全體 20081110第一套第15題請(qǐng)編寫程序，打印出下面所示的圖案。*********完成所有操作后，請(qǐng)按“Ctrl+S”保存。程序如下：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) 39。確定每行的起始位置 For j = 1 To (4 Abs(i) ) 1 Print * 。 Next j Print 39。換行 Next iEnd Sub(說明：i表示行數(shù)，j表示輸出的“*”數(shù))第16題編寫程序，求函數(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 39。定義x為單精度型變量，由標(biāo)準(zhǔn)輸入對(duì)話框輸入 Dim y As Single 39。定義y為單精度型變量，值由窗體顯示 x = Val (InputBox(請(qǐng)輸入變量x的值)) If x = 0 Then y = 3 * x + 1 Else y = 4 * x + 1 End If Print y=。 yEnd Sub（說明InputBox中輸入的是字符串型，用Val函數(shù)將其轉(zhuǎn)換成數(shù)值型。）第17題編程計(jì)算S=12+34+5+99100。完成所有操作后，請(qǐng)“Ctrl+S”保存。程序如下：Private Sub Form_Click() Dim s As Integer 39。定義變量s為單精度型 Dim i As Integer 39。定義循環(huán)變量 s = 0 For i = 1 To 100 If i Mod
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1