vb16道操作題含答案：(編輯修改稿)
2025-07-04 13:37 本頁面
【文章內(nèi)容簡介】 () Dim i As Integer 39。定義i為整型變量 Dim j As Integer 39。定義j為整型變量答案：①abs(i)②print str。③i Dim str As String For i = 2 To 2 str = For j = 1 To 3 _______ str = str amp。 * Next j _______ Print 39。換行 Next _______End Sub223：輸出以下圖形：*********Private Sub Form_Click()Dim i As Integer 39。定義i為整型變量答案：①abs(i)②print “*”。③iDim j As Integer 39。定義j為整型變量For i = 2 To 2 For j = 1 To 3 _________ _________ Next j Print 39。換行Next _________End Sub604：填空完成程序，編程計(jì)算11/2+1/31/4+...+1/991/100，單擊窗體后，在窗體上顯示結(jié)果。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼。Private Sub Form_Click() Dim s As Single Dim i As Integer答案：①0②100③s1/i s = (1) For i = 1 To (2) Step 1 If i Mod 2 0 Then s = s + 1 / i Else s = (3) End If Next i Print s=。 sEnd Sub607：填空完成程序，使得單擊顯示按鈕后，隨機(jī)產(chǎn)生10個(gè)屬于區(qū)間[0，100)的自然數(shù)，并保存于數(shù)組a中。然后在窗體上顯示這10個(gè)數(shù)的平均值。注：學(xué)生運(yùn)算結(jié)果有可能跟樣圖中數(shù)值不一致。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2），并在對應(yīng)位置填寫正確的代碼。Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single Dim i As Integer 答案：①9②s+a(i) s = 0 Randomize For i = 0 To (1) Step 1 a(i) = Int(Rnd * 1
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1