vb16道操作題含答案：-文庫吧資料
2025-06-13 13:37本頁面
【正文】 Step 1 Print *。 ***39。39。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 * 100) Print a(i) Next i For i = 0 To 9 s = (2) Next i Print 這10個(gè)自然數(shù)的平均值=。注：學(xué)生運(yùn)算結(jié)果有可能跟樣圖中數(shù)值不一致。 sEnd Sub607：填空完成程序，使得單擊顯示按鈕后，隨機(jī)產(chǎn)生10個(gè)屬于區(qū)間[0，100)的自然數(shù)，并保存于數(shù)組a中。注：請不要更改源程序結(jié)構(gòu)，刪除（1）、（2）、（3），并在對應(yīng)位置填寫正確的代碼。定義j為整型變量For i = 2 To 2 For j = 1 To 3 _________ _________ Next j Print 39。定義i為整型變量答案：①abs(i)②print “*”。 * Next j _______ Print 39。定義j為整型變量答案：①abs(i)②print str。*Private Sub Form_Click() Dim i As Integer 39。***39。*39。Private Sub Command1_Click() Line (________, 1300)(2200, 1300) Line (1400, 300)(_____,________)End Sub196：填空完成程序，打印如右圖所示的圖案 (注釋區(qū)別開)。 sEnd Sub（新）考生目錄VB\190\ 進(jìn)行以下操作后并保存！(49套) 填空完成程序，使得當(dāng)單擊計(jì)算5!按鈕后，Text1顯示5!的值。Private Sub Form_Click() Dim i As Single Dim s As Integer 39。程序代碼:Private Sub Command1_Click() Dim x, y, t As Integer答案：①x②y③t x = 10 y = 30 If x y Then t = ___ x = ___ y = _____ End If = Str(x) = Str(y)End Sub
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1