編程任務：輸入正整數n,統計n的約數個數．其基本算法描述如圖所示，請根據圖示算法將代碼補充完整：
Dim n As Integer,i As Integer
Dim count As Integer,k As Integer
n=Val（Text1．Text）
k=Sqr（n）
count=1
For i=2 To k Step 1
Ifn mod i=0n mod i=0
Then
count=count+1count+1
End If
Next i
If n＞1 Then
count=count+1
End If
Label2．Caption=“約數個數是：count或者str（count）count或者str（count）．
【考點】程序設計實例．
【答案】n mod i=0；count+1；count或者str（count）
【解答】
【點評】
聲明：本試題解析著作權屬菁優網所有，未經書面同意，不得復制發布。
發布：2024/6/27 10:35:59組卷：25引用：1難度：0.9
相似題
-
1．公因數只有1的兩個非零自然數，叫做互質自然數。王老師編寫了一個Python程序，程序的功能是隨機產生5個1到20之間的整數，找出其中和最大的互質數對。程序運行界面如圖所示：
實現該功能的程序代碼如下：
請回答下列問題：
（1）尋找互質數對的算法屬于（選填：枚舉/解析）算法。
（2）如產生的 5 個隨機數是[20，16，12，6，14]，則程序輸出內容是。
（3）要實現程序的功能，請完善橫線處的代碼。發布：2024/12/20 18:0:1組卷：3引用：1難度：0.4 -
2．小紅用Python編寫程序畫出了如圖形，在第三行下劃線處應該填寫（ ）
發布：2024/12/18 11:0:1組卷：2引用：1難度：0.6 -
3．【加試題】小丫覺得回文字符串太優美了（回文字符串是指順讀和倒讀都一樣的字符串，如“123321”），為此編寫了VB 程序。程序運行時，單擊按鈕Command1 后，根據文本框Text1 中輸入的內容判斷并輸出是不是回文串。實現上述功能的VB 代碼如下。
Private Sub Command1_Click（ ）
Dim s As String,f As Boolean,L As Integer
s=Text1.Text
j=Len（s）
i=1
Do while ①
i=i+1
j=j-1
Loop
If ②Then Print“是回文串“Else Print“不是回文串“
End Sub
在畫線處填入合適代碼，使程序能正常運行。
①
②發布：2024/12/19 14:30:2組卷：0引用：1難度：0.4