vb16道操作題含答案：-資料下載頁(yè)
2025-06-07 13:37本頁(yè)面
【正文】 ” Dim i, j As Integer For i = ① To 1 Step 1 Print Tab(4 i)。 For j = 1 To ② Print ③。 Next j Print Next iEnd Sub（新）870：打開“考生文件夾\870\”，完善程序并保存。實(shí)現(xiàn)功能：小明忘記了自己一個(gè)word文檔的打開密碼，只記得是一個(gè)4位數(shù)的數(shù)字密碼6□□5，但知道該數(shù)能夠被69整除，也能被95整除。請(qǐng)你完善程序，幫他找出這個(gè)密碼。答案：①6995②a③next aPrivate Sub Command1_Click() Dim a As Long For a = 6005 To ① Step 10 If (a Mod 69 = 0) And (a Mod 95 = 0) Then Print ② End If ③End Sub（新）872：打開“考生文件夾\872\”，完善程序并保存。實(shí)現(xiàn)功能：用遞歸法求5!+6!+7!的值。Public Function Fac(a As Long) As IntegerIf a = 1 Then Fac = ①答案：①1②fac③6Else Fac = a * ②(a 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Long S = Fac(5) + Fac(③) + Fac(7) Print S= amp。 CStr(S)End Sub（新）873：打開“考生文件夾\873\”，完善程序并保存。實(shí)現(xiàn)功能：當(dāng)單擊“顯示最小的數(shù)”按鈕后，隨機(jī)產(chǎn)生5個(gè)屬于區(qū)間[0，100]的自然數(shù)，并保存于數(shù)組a中，然后在窗體上顯示這5個(gè)數(shù)中的最小值。(注：學(xué)生運(yùn)算結(jié)果有可能跟樣圖中數(shù)值不一致)Private Sub Command1_Click() Dim a(4) As Integer Dim min As Integer Dim i As Integer 答案：①4②a(i)③min Print Randomize For i = 0 To ① Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i min = a(0) For i = 1 To 4 If min a(i) Then min = ② End If Next i Print 這5個(gè)自然數(shù)中的最小值=。 CStr(③)End S
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1