c语言整除与模除 VB编程 求出能被三整除且至少有一位数字是8的所有三位正整数及这些数的个数

VB编程 求出能被三整除且至少有一位数字是8的所有三位正整数及这些数的个数  

VB编程 求出能被三整除且至少有一位数字是8的所有三位正整数及这些数的个数

dim i ,a, b, total As Integer for a =0 to 9 for b =0 to 9 if (800+a*10+b) mod 3 =0 Then print (800+a*10+b) total =total +1 end if next b next a (未完，手机有字数限制)

编程求能被5整除且至少有一位数字是5的所有整数的个数

啥语言啊？都不说下。
以下是java语言：
-----------
public class FiveDemo {
/**
* 编程求整数0-1000之间能被5整除且至少有一个数字是"5"的个数
*/
public static void main(String[] args) {
TODO Auto-generated method stub
int count = 0;
for (int i = 0; i < 1000; i++) {
if (i % 5 == 0) {
if ((i + "").lastIndexOf("5") != -1) {
count++;
System.out.print(i + ", ");
}
}
}
System.out.println();
System.out.println("符合的整数个数为：" + count);
}
}

1到999之间能被3整除，且至少有一位数字是5的所有正整数个数

91个
分别是：
15 45 51 54 57 75 105 135 150 153 156 159 165 195 225 252 255 258 285 315 345 351 354 357 375 405 435 450 453 456 459 465 495 501 504 507 510 513 516 519 522 525 528 531 534 537 540 543 546 549 552 555 558 561 564 567 570 573 576 579 582 585 588 591 594 597 615 645 651 654 657 675 705 735 750 753 756 759 765 795 825 852 855 858 885 915 945 951 954 957 975

求能被3整除且至少有一位数字为5的三位数的个数 ，vb程序

Private Sub Command1_Click()
For i = 100 To 999
If i Mod 3 = 0 And InStr(i, 5) > 0 Then n = n + 1
Next
Print "能被3整除且至少有一位数字为5的三位数的个数="; n
End Sub

1-999中能被三整除而且至少有一位数字是5的所有数字

91个

Java 找出1－N中能被5整除且至少有一位数字是5的所有整数的个数

加个变量count，初始是0，当满足if条件的时候count++；跳出for循环之后输出count

pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数

function isOk(n : integer) : boolean;
var
i : integer;
begin
result := pos('5',inttostr(n))>0;
end;
function myFunc(n:integer) : integer;
var
i : integer;
begin
result := 0 ;
for i := 1 to n do
begin
if (i mod 5 = 0) and isok(i) then
inc(result);
end;
end;

编程求[6，1400]内能被7整除，且至少有一位数字为7的整数。

#include<stdio.h>
void main(){
int i=0,a,max=0,sum=0;
for(i=6;i<=1400;i++)
{
int b;
a=i%7;
if(a==0){
b=i%10；
if(b==7){
if(i>max)max=i;
sum+=1;
}
else if((i%100-i%10)/10==7){
if(i>max)max=i;
sum+=1;
}
else if(i/100==7){
if(i>max)max=i;
sum+=1;
}
}
}
printf("%d,%d",max,sum);
}

急!!!用VBScript编程：在浏览器中输出1---999中能被3整除，且至少有一位数字是5的所有整数的个数!

Dim t As Integer '计数器
Dim i As Integer ' 循环变量
t = 0 ' 计数器置0
For i = 3 To 999 Step 3 '从3循环，步长为3，循环变量都为3的倍数
If InStr(i, "5") > 0 Then '判断是否包含5
t = t + 1 '计数器+1
End If
Next