c语言输出7行菱形 VB编程输出1-100之间不能被3整除的数

VB编程输出1-100之间不能被3整除的数  

VB编程输出1-100之间不能被3整除的数

编程求1-100之间所有能被3整除的数并输出

public class Test{
public static void main(String[] args){
for(int i = 1; i <= 100; i++){
if(i%3 == 0){
System.out.println(i);
}
}
}
}

VB题：编程输出1-100之间的所有可能被3整除的数

只给你一段代码吧。这个用任意循环语句+选择语句都可以实现
dim a as integer ‘定义一个整形变量a
a=0 'a是用来分行的，这里是用来打印的，如果不分行，显示结果会很难看，所以加了个a，楼主也可以去掉
for i= 1 to 100 ’执行100次循环，也就是历数从1到100这几个数
if i mod 3=0 then '判断历数的数是否能被3整除，如果可以被整除的话
a=a+1 '数出这是第几个数
print i & "、" ; '打印出这个被3整除的数，后面的;是连续不分行打印符号，“、”是为了页面打印美观
if a mod 5 =0 then '当一行满5个数时，自动换行
print
end if
end if
next i
结束，这个是用for 语句写的，当然也可以用do loop和while wend语句写可能更简单，下面举个例子，这次为了让楼主读懂就是纯打印，不考虑打印的美化，楼主可参上面的例子自己美化
while wend例子：
dim i as integer
i=1
while i<=100
if i mod 3=0 then
print i
end if
i=i+1
wend
do……loop例子
dim i as integer
i=1
do while i<=100 ’这里如果用until就是 do until i>100
if i mod 3=0 then
print i
end if
i=i+1 ‘这里的i变量就要自己加咯
loop
总结下，思路就是定义个循环，历数1-100之间的所有数（for,do……loop,while)，然后用选择判断这个数字是否能被3整除（if i mod 3=0 then),可以就打印。不过楼主注意的是，第一个例子中的a变量是控制每行数量的，可以在看懂后面和基础的去掉a变量的语句后，再去研究a变量

输出1-100之间能被3整除又能被7整除的数

程序如下：
main(){
int i;
for (i=1;i<=100;i++)
if (i%3==0 && i%7==0)
printf("%d ",i);
}
运行结果是：
21 42 63 84

编程输出1~1000之间能被3整除，又能被7整除的数

#include<stdio.h>
void main()
{
int i;
for(i=1;i<=1000;i++)
if(i%21==0)
printf("%d ",i);
}

编程输出所有100——300之间不能被3整除的数！

#include "stdio.h"
void main()
{
int j;
printf("不能被3整除的数为：n");
for(j=100;j<=300;j++)
if(j%3!=0) 找出不能被3整除的数
printf("%dn",j);
}

编程输出1到100间能被3整除但不能被5整除的数

这个就是循环再加上个if条件语句就ok了！
static void Main(string[] args) { int i = 0; for (i = 0; i <= 100; i++) { if (i % 3 == 0 && i % 5 != 0) Console.WriteLine(i); } Console.ReadLine(); }

编程：输出100~200间不能被3整除的数

以下全是VB写的代码,但只有第一个是完成的函数,你可以通过调用:
dim a as long
a=f(100)
msgbox a
就可以看到1加到100的结果了.
其他只是部份代码,你要查看变量保存的值才能知道结果的.
2,3,4的代码你不要用一个函数调试,那样会产生变量重复定义的错误的.
1.
private function f(byval n as integer) as long
dim i as integer
dim r as long
r=0
for i=1 to n
r=r+i
next i
f=r
end function
'函数f(n)的返回值就是你要的结果了.
2.
dim i as integer
dim r as long
r=0
for i=2 to 50 step 2
r=r+i
next
'r中保存的就是结果.
3.结果输出在立即窗口中.
dim i as integer
dim d as integer
for i=100 to 200
if i mod 3<>0 then
debug.print i
end if
next
4.
dim i as integer
i=int(30*vba.rnd())+1
'i的结果就是你想要的.

VB输出100-200之间不能被3整除的数

Private Sub Form_Click() '单击窗体时执行下面代码
Dim i As Integer, row As Integer '定义i、row为整形变量
Cls '清除窗体上原来的文字
Print "100-200之间不能被3整除的数有：" '在窗体上大印出引号内的文字
Print '空一行
Print '空一行
row = 0 '给整形变量row赋值0
For i = 100 To 200 'i的值在100至200范围内以此变化
If i Mod 3 <> 0 Then '如果i除以3的余数不等于0，则执行下面语句
row = row + 1 '变量row的值增加1
Print i & " "; '在窗体上打印i的值，后面跟几个空格，但不换行
End If '
If row Mod 12 = 0 Then Print '如果变量row的值是12的倍数（row除以12的余数为0），则换行
Next i '
End Sub
'1.倒数第三行用完If...Then后怎么没有语句或语句组？也没有End If？
'Then后面的Print就是语句。If...Then单行时不能加End If。
'2.还是这一行，最后那个Print是干什么的？为什么没了它，系统会提示“Next没有For”？
'Print是打印的意思，后面没有变量或字符串就表示什么也不打印，一般用于换行
'如果没有它，那么在Then后面没有语句，就表示这是If...Then的多行块用法，下一行的Next i系统认为是在下面块用法中间
'If 条件语句 Then
'结论语句
'Else
'结论语句
'Endif
'所以，系统会提示“Next没有For”
'3.请为每一句代码加上注释
'
'4.顺便问一下，<>是什么意思？是不等于吗？
'<>就是不等于

1、编程输出100—1000之间能被3整除的数及其个数。

你这个看起来有问题
但是意思是：mod除=0，就是整除，整除后把这个数输出，然后再把计数器n+1,即：n=n+1
整个就这样一个意思哦