Question

vb 求1~n之间能被3整除,但不能被7整除的所有整数之和

Answer 1

Private Sub Command1_Click()

Dim i%, n%, s%

n = Val(InputBox("n="))

For i = 1 To n

If i Mod 3 = 0 And i Mod 7 <> 0 Then s = s + i

Next

在VB中，注释有2种方式：

1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。

2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

扩展资料：

制作应用程序安装盘等为用户提供了友好的集成开发环境，具体表现在：

可视化的设计平台：在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面，在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法。

把程序和数据封装起来作为一个对象，每个对象都是可视的。开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象。

参考资料来源：百度百科-Visual Basic

Answer 2

Private Sub Command1_Click()
Dim i%, n%, s%
n = Val(InputBox("n="))
For i = 1 To n
If i Mod 3 = 0 And i Mod 7 <> 0 Then s = s + i
Next
MsgBox s
End Sub

Answer 3

for i=1 to n
if i mod 3=0 and i mod 7<>0
j=j+i
endif
next i
msgbox j