编写程序输出100~200之间不能被3整除的自然数，并统计出符合条件的个数。程序如下：PrivateSubForm_Click()DimiAsIntegerDi_刷题宝

题干

编写程序输出100~200之间不能被3整除的自然数，并统计出符合条件的个数。
程序如下：
Private Sub Form_Click()
Dim i As Integer
Dim t As Integer
For i = 100 To 200
If __________ Then '不能够被3整除的条件
Print i
t=t+1
End If
Next i
End Sub
程序运行结束后t的值为_______________

上一题下一题 0.99难度填空题更新时间:2019-04-21 09:49:40

答案(点此获取答案解析）

同类题1

设计算法，求同时满足以下条件的所有四位正整数之合s。①不大于n(n的值由键盘输入)②能被9整除③十位数是2。算法流程图如下所示：

（1）解决上述问题的算法属于（_______）
A.枚举法 B.擂台法 C.解析法 D.对分法
（2）判断x能被9整除的设计思路是；取x十位上数字的设计思路是。（_______）
A.x除以9的余数为0；先求x除以10的余数，再求该余数除以10的商
B.x除以9的商为0；先求x除以10的余数，再求该余数除以100的商
C.x除以9的商为0；先求x除以100的余数，再求该余数除以100的商
D.x除以9的余数为0；先求x除以100的余数，再求该余数除以10的商
（3）小明根据上述思路，设计了一段不完整的程序。请完善划线处内容，完成上述功能。
Dim n as Integer，x as Integer，s as long
s=0
n=InputBox(“输入四位数上限值”)
For____________

If___________and_____________ Then

End If

Next
_____________

同类题2

小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。
程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

图1 图2
（1）应用程序界面设计时，为添加“ List1”对象，应使用图2所示的“控件工具箱”中的________（填写相应编号）。
（2）请根据题意将解决此问题的相应程序补充完整。
Private Sub Command1_click ()
Dim x As Integer, s As Long,
Dim y As Integer, i As Integer
For i = 0 To 9999
S = 590000 + i
If ①________ Then
x= s mod 10
y = ②________
If x = y Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
（3）该模块采用的算法是（_____）

同类题3

（加试题）小明编写了一个寻找非常幸运数的程序。程序运行时,单击“求解”按钮,则在列表框中输出所有的六位数中的非常幸运数,在标签Label2中输出非常幸运数的个数。程序运行效果如图所示。
所谓的非常幸运数是指符合下列条件的整数:
(1)该数的偶数位数字之和等于奇数位数字之和。
(2)该数的前一半的各位数字之和正好等于后一半的各位数字之和。
代码如下：
Private Sub Command1_Click()
　Dim a(1 To 6) As Integer, sum(1 To 4) As Integer
　Dim x As Long, i As Long, count As Long, k As Long
　For i=100000 To 999999
　　x=i
　　k=1
　　Do While x > 0
　　　a(k)=  ①
　　　x=x\10
k=k+1
　　Loop
　　sum(1)=a(1) +a(2) +a(3)
　　sum(2) =a(4)+a(5)+a(6)
　　   ②
　　sum（4）=a（2）+a（4）+a（6）　　　　
　　If sum(1)=sum(2) And sum(3)=sum(4)Then
　　　List1.AddItem Str(i)
  ③
　　End If
　Next i
　Label2.Caption="共有个数:" +　str（count）　　
End Sub
实现上述功能的VB程序如下,在程序划线处填入合适的代码。
①_____________________________________
②______________________________________
③______________________________________

同类题4

编写程序题
该程序要实现的功能是：求能被97除余3，且中间两位数字(即千位、百位)相同的所有六位数之和。

同类题5

（加试题）下列VB程序的功能是：求得1000以内的所有水仙花数，并在list1中显示。水仙花数是指一个n位数（n）=3），它的每个位上的数字的n次幂之和等于它本身（例如：1^3+5^3+3^3=153）

Private Sub Command1_Click()
List1.clear
Dim a As Integer
For i = 1 To 1000
s = 0
l = Len(Str(i)) - 1
For j = 0 To l - 1
a = 1
s = s + a ^ 3
Next j
If i = s Then
List1.AddItem i
End If
Next i
End Sub
横线处应填写

A．i / 10 ^ j Mod 10	B．i \ 10 ^ j Mod 10
C．i \ 10 ^ (j Mod 10)	D．(i \ 10) ^ j Mod 10

相关知识点