个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在横线处填入合适的语句或表达式，完成程序．设共有n个这样的数，Visual Basic程序如下：
Sub command1_click（ ）
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）
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/6/27 10:35:59组卷：9引用：2难度：0.3
相似题
-
1．编写程序查找字符串中最长连续相同字符的长度：
横线处可选代码为：①h②h=0③h=h+1④Mid（s,i,l）=Mid（s,i+1，1）⑤Mid（s,i,1）=Mid（s,i-1，1），则①②③处语句依次为（ ）发布：2025/1/2 10:30:2组卷：1引用：1难度：0.4 -
2．下列选项中，与语句“Ifx＞188 Then y=x*0.5 Else y=x*0.8“功能相同的是（ ）
发布：2025/1/2 10:30:2组卷：1引用：2难度：0.5 -
3．有程序代码如下，输入某数据后，输出结果为“B”。那么输入的数据可能是（ ）
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发布：2025/1/2 12:0:1组卷：0引用：1难度：0.6
