用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的程序

Question

用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的程序

Answer 1

VB代码如下：

 Dim i, j
j = 0
For i = 1 To 100
If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 Then
Print i,
j = j + 1
If j = 7 Then
Print
j = 0
End If
End If
Next i

扩展资料

vb语言的特点：

VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。

因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB 程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。

VB 的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。

VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。

Answer 2

dim sum'和
dim count'个数
sum=0
count=0
For i=1 to 100
If i Mod 3=0 And i Mod 7<>0 Then
count=count+1
sum=sum+i
End If
Next
Print "count=" & count
Print "sum=" & sum

Answer 3

dim a
for i =1 to 100
if i mod 3=0 and i mod 7<>0 then a=a+1
next i
print a

Answer 4

在窗体上添加三个文本框,和一个按钮.在按钮的单击事件中写:
private sub command1_click
dim sum as integer'和
dim count as integer'个数
sum=0
count=0
text3.text=""
For i=1 to 100
If i Mod 3=0 And i Mod 7<>0 Then
count=count+1
sum=sum+i
text3.text=text3.text & i'text3显示都有什么数
End If
Next
text1.text="和为:"+ sum
text2.text="个数为:"+coun
end sub