個位數(shù)字是6，且能被3整除的3位數(shù)共有多少個？下面程序用于解決這一問題，在橫線處填入合適的語句或表達式，完成程序．設共有n個這樣的數(shù)，Visual Basic程序如下：
Sub command1_click（ ?。?br />Dim i as integer,n as integer
m=106：n=0
do while m＜=996
if m mod 3=0then n=n+1n=n+1
m=m+10
End if
loop
text1．text=Str（n）Str（n）
End sub.
【考點】選擇語句；對象的屬性、方法和事件．
【答案】n=n+1；Str（n）
【解答】
【點評】
聲明：本試題解析著作權屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復制發(fā)布。
發(fā)布：2024/6/27 10:35:59組卷：9引用：2難度：0.3
相似題
-
1．編寫程序查找字符串中最長連續(xù)相同字符的長度：
橫線處可選代碼為：①h②h=0③h=h+1④Mid（s,i,l）=Mid（s,i+1，1）⑤Mid（s,i,1）=Mid（s,i-1，1），則①②③處語句依次為（ ?。?/h2>發(fā)布：2025/1/2 10:30:2組卷：1引用：1難度：0.4 -
2．下列選項中，與語句“Ifx＞188 Then y=x*0.5 Else y=x*0.8“功能相同的是（ ?。?/h2>
發(fā)布：2025/1/2 10:30:2組卷：1引用：2難度：0.5 -
3．有程序代碼如下，輸入某數(shù)據(jù)后，輸出結果為“B”。那么輸入的數(shù)據(jù)可能是（ ?。?br />Dim score As Integer
score=Val（InputBox（“score：“））
If score＞89 Then
Print“A“
Else
If score＞59 Then
Print“B“
Else
Print“C“
End If
End If發(fā)布：2025/1/2 12:0:1組卷：0引用：1難度：0.6
把好題分享給你的好友吧~~