谁能写简单的程序,用VB!求整数351~432之间既不能被3整除,又不能被8整除的数的个数及其这些数的和,结果在窗体上输出.我学过 IF END,SELECT CASE,FOR循环,DO循环的结构.最好这些结构中能用的都写出

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/05 21:43:07
谁能写简单的程序,用VB!求整数351~432之间既不能被3整除,又不能被8整除的数的个数及其这些数的和,结果在窗体上输出.我学过IFEND,SELECTCASE,FOR循环,DO循环的结构.最好这些

谁能写简单的程序,用VB!求整数351~432之间既不能被3整除,又不能被8整除的数的个数及其这些数的和,结果在窗体上输出.我学过 IF END,SELECT CASE,FOR循环,DO循环的结构.最好这些结构中能用的都写出
谁能写简单的程序,用VB!
求整数351~432之间既不能被3整除,又不能被8整除的数的个数及其这些数的和,结果在窗体上输出.我学过 IF END,SELECT CASE,FOR循环,DO循环的结构.最好这些结构中能用的都写出来.
Private Sub Command1_Click()
For i = 351 To 432
j = i Mod 3
k = i Mod 8
n = n + 1
If j 0 And k 0 Then
Print i,n
End If
Next i
修改或接着这个模板写..
我要不能被整除的数的个数及这些数的和!

谁能写简单的程序,用VB!求整数351~432之间既不能被3整除,又不能被8整除的数的个数及其这些数的和,结果在窗体上输出.我学过 IF END,SELECT CASE,FOR循环,DO循环的结构.最好这些结构中能用的都写出
Private Sub Command1_Click()
Dim i%,j%,k%,n%,u%
For i = 351 To 432
j = i Mod 3
k = i Mod 8
If j0 and k0 then
n = n + 1 '个数
u=u+i '和
endif
next i
Print n,u 'n为个数,u为和
end sub
个数为47,和为18413

谁能写简单的程序,用VB!求整数351~432之间既不能被3整除,又不能被8整除的数的个数及其这些数的和,结果在窗体上输出.我学过 IF END,SELECT CASE,FOR循环,DO循环的结构.最好这些结构中能用的都写出 求四个整数的最大公约数和最小公倍数的VB程序语句 求VB程序,利用Sub过程,计算两个整数的最大公约数和最小公倍数. 用vb求素数时为什么使用sqr()函数可以使程序更简单? 求勾股定理程序,vb语言的 谁能帮我用VB设计一个简单的程序:计算正方形的面积(详细点) 谁能帮我用VB设计一个简单的程序:计算正方形的面积(详细点) 用VB编写一个程序,求一个不超过5位的十进制整数各位数值的和(例如,输入2634,输出15). 用Vb设计一个程序,使任意位置的一个矩形以其左下角为中心旋转15度.求的是简单的代码 不要那么复杂的! VB简单程序编写:求1到100内可以被5或7整除的数之和如上 二、设计简单的VB程序计算函数的值 自己设计一个简单的VB程序,计算下列VB函数的值.提示:为简单起见,可二、设计简单的VB程序计算函数的值自己设计一个简单的VB程序,计算下列VB函数的值. vb例题:任意输入一个整数,编写程序判断该整数的奇偶数 2、vb编写一个简单的计算器程序,实现两个数的加、减、乘、除.运行结果如下图2所示.2、用VB编写一个简单的计算器程序,实现两个数的加、减、乘、除.运行结果如下图2所示.求源代码我用的 用VB设计:求两个整数的最大公约数、最小公倍数.(两个整数从键盘输入). 请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数.如上标题,用VB程序实现 用vb脚本语言编写一个小程序,程序实现功能如下:任意输入三个整数,使其按大到小的顺序输出.紧急! 用VB编一个程序,求从1至100的自然数的和 求Fibonacci数列的第n项的VB程序