高中信息技術會考vb選修操作題答案-展示頁
2025-06-10 01:39本頁面
【正文】 nteger 39。確定每行的起始位置 For j = 1 To (4 Abs(i) ) 1 Print * 。換行 Next iEnd Sub(說明：i表示行數(shù)，j表示輸出的“*”數(shù))第16題編寫程序，求函數(shù)y的值（當x小于等于0時，y=3x+1；當x0時，y=4x+1）。（x的值在程序中調用InputBox函數(shù)，在彈出的標準對話框中輸入）程序如下：Private Sub Form_Click() Dim x As Single 39。定義y為單精度型變量，值由窗體顯示 x = Val (InputBox(請輸入變量x的值)) If x = 0 Then y = 3 * x + 1 Else y = 4 * x + 1 End If Print y=。）第17題編程計算S=12+34+5+99100。程序如下：Private Sub Form_Click() Dim s As Integer 39。定義循環(huán)變量 s = 0 For i = 1 To 100 If i Mod 2 = 1 Then s = s + i Else s = s – i End If Next i Print s=。Private Sub Form_Click() Dim Ji As Integer 39。兔 Dim Leg As Integer 39。頭數(shù) For Ji = 1 To 50 For Tu = 1 To 25 Leg = Ji * 2 + Tu * 4 39。計算頭數(shù) If Leg = 100 And Head = 40 Then 39。 Ji。 Tu。 * ******** *** *private sub form_click()Dim I As IntegerDim j As IntegerFor I= 3 t
公司管理相關推薦
鄂ICP備17016276號-1