一個(gè)十進(jìn)制整數(shù)的二進(jìn)制表示中，如果數(shù)字“1”的個(gè)數(shù)多于數(shù)字“0”的個(gè)數(shù)，則稱該整數(shù)為A類數(shù)．如十進(jìn)制整數(shù)26的二進(jìn)制表示為11010，26是一個(gè)A類數(shù)．下列VB程序的功能是：統(tǒng)計(jì)前1000個(gè)自然數(shù)中A類數(shù)的個(gè)數(shù)，并在文本框中輸出．請(qǐng)?jiān)跈M線處填入合適代碼．
Private Sub Command1_Click （ ?。?br />Dim i As Integer,n As Integer
Dim s As Integer's為A類數(shù)的個(gè)數(shù)
Dim t As Integer't為二進(jìn)制數(shù)中“1“的個(gè)數(shù)
Dim k As Integer'k為二進(jìn)制數(shù)中“0“的個(gè)數(shù)
s=0
For i=1 To 1000
n=i
t=0
k=0
Do While n＞0
If n Mod 2=1 Then t=t+1 Else k=k+1k=k+1
n=n\2
Loop
If t＞kt＞k Then s=s+1
Next i
Text1．Text=Str（s）
End Sub.
【考點(diǎn)】程序設(shè)計(jì)實(shí)例．
【答案】k=k+1；t＞k
【解答】
【點(diǎn)評(píng)】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/4/20 14:35:0組卷：31引用：1難度：0.3
相似題
-
1．公因數(shù)只有1的兩個(gè)非零自然數(shù)，叫做互質(zhì)自然數(shù)。王老師編寫了一個(gè)Python程序，程序的功能是隨機(jī)產(chǎn)生5個(gè)1到20之間的整數(shù)，找出其中和最大的互質(zhì)數(shù)對(duì)。程序運(yùn)行界面如圖所示：
實(shí)現(xiàn)該功能的程序代碼如下：
請(qǐng)回答下列問題：
（1）尋找互質(zhì)數(shù)對(duì)的算法屬于（選填：枚舉/解析）算法。
（2）如產(chǎn)生的 5 個(gè)隨機(jī)數(shù)是[20，16，12，6，14]，則程序輸出內(nèi)容是。
（3）要實(shí)現(xiàn)程序的功能，請(qǐng)完善橫線處的代碼。發(fā)布：2024/12/20 18:0:1組卷：3引用：1難度：0.4 -
2．小紅用Python編寫程序畫出了如圖形，在第三行下劃線處應(yīng)該填寫（ ）
發(fā)布：2024/12/18 11:0:1組卷：2引用：1難度：0.6 -
3．【加試題】小丫覺得回文字符串太優(yōu)美了（回文字符串是指順讀和倒讀都一樣的字符串，如“123321”），為此編寫了VB 程序。程序運(yùn)行時(shí)，單擊按鈕Command1 后，根據(jù)文本框Text1 中輸入的內(nèi)容判斷并輸出是不是回文串。實(shí)現(xiàn)上述功能的VB 代碼如下。
Private Sub Command1_Click（ ?。?br />Dim s As String,f As Boolean,L As Integer
s=Text1.Text
j=Len（s）
i=1
Do while?、?/bdo>
i=i+1
j=j-1
Loop
If?、?/bdo>Then Print“是回文串“Else Print“不是回文串“
End Sub
在畫線處填入合適代碼，使程序能正常運(yùn)行。
①
②發(fā)布：2024/12/19 14:30:2組卷：0引用：1難度：0.4
把好題分享給你的好友吧~~