判断整除或求和

原创 2012年05月22日 23:50:39

Private Sub Command1_Click()

Dim m As Integer, n As Integer, d AsInteger

Dim s As Long '保存结果

m = Val(Text1.Text)

n = Val(Text2.Text)

d = Val(Text3.Text)

s = 0

sum m, n, d, s

Label4.Caption = m & "" & n & "之间能被" & d & "整除的数之和是" & s

End Sub

Private Sub Command2_Click()

End

End Sub

'sub过程:求mn之间能被d整除的数之和

Public Sub sum(x As Integer, y As Integer,z As Integer, w As Long)

Dim i As Integer

'x>y,交换

If x > y Then

t = x: x = y: y = t

End If

For i = x To y

If i Mod z = 0 Then

w = w + i

End If

Next i

End Sub

Private Sub text1_keypress(keyascii AsInteger) '文本框键盘事件过程

'若按键非数字键或回删键,取消按键

If Not IsNumeric(Chr(keyascii)) Andkeyascii <> 8 Then

keyascii = 0

End If

End Sub

Private Sub text2_keypress(keyascii AsInteger) '文本框键盘事件过程

'若按键非数字键或回删键,取消按键

If Not IsNumeric(Chr(keyascii)) Andkeyascii <> 8 Then

keyascii = 0

End If

End Sub

Private Sub text3_keypress(keyascii AsInteger) '文本框键盘事件过程

'若按键非数字键或回删键,取消按键

If Not IsNumeric(Chr(keyascii)) Andkeyascii <> 8 Then

keyascii = 0

End If

End Sub

       这个程序比较麻烦,步骤也特别多,而且程序中出现得许多VB语言都还不认识。因此我到百度上去找了相关的知识,但解释得也不是很清楚,而且我发现百度上设计的这个程序和实验册上设计得根本就不一样,我就感到很郁闷。我又问了一下我以前的几个同学,他们告诉我VB其实是很灵活的,只要你的思维理念在那里,你怎么设计都可以。他们说,VB考察的是我们思维的严谨性,逻辑的条理性。我自从学了VB之后,我也觉得是这样。同时,我也相信VB有那个能力。

程序45:题目:判断一个素数能被几个9整除

程序45:题目:判断一个素数能被几个9整除(从这个简单的题目当中 我们可以学到键盘的输入、方法的调用 以及方法的递归的知识点)public class java45 { public int inp...
  • u012249177
  • u012249177
  • 2015年11月01日 19:38
  • 1818

Swift3.0学习笔记-Basic Operators(基本运算符)

Swift第2节
  • brycegao321
  • brycegao321
  • 2016年11月06日 15:16
  • 663

能被2、3、4、5、6、7、8、9、10等数整除的数的特征

转自:http://blog.sina.com.cn/s/blog_8f251e570100wazl.html 性质1:如果数a、b都能被c整除,那么它们的和(a+b)或差(a-b)也能被c整除。 ...
  • wutingyehe
  • wutingyehe
  • 2015年07月30日 22:11
  • 1146

枚举算法(判断n是否能被3,5,7整除)

枚举算法:也称穷举算法,它是编程中常用的一种算法。在解决某些问题的时候,可能无法按照一定规律从众多的候选答案中找出正确的答案。此时,可以从众多的候选解中逐一取出候选答案,并验证候选答案是否为正确的答案...
  • u012805027
  • u012805027
  • 2013年11月24日 15:45
  • 1644

写一个程序,接收两个整数a和b,并判断a是否能被b整除,输出判断结果。

写一个程序,接收两个整数a和b,并判断a是否能被b整除,输出判断结果。 #include  int main() {  //定义变量  int a = 0, b = 0;  printf...
  • LGJ1025
  • LGJ1025
  • 2013年03月05日 21:20
  • 4888

005:Python的数值类型

获得关于类型的信息有两种函数: 1、type() >>> a = '520' >>> type(a) 2、isinstance()        #python建议我们使用这个函数...
  • junwei0206
  • junwei0206
  • 2015年03月27日 10:41
  • 929

ACM整数性问题(nefu115和hdu2099)

首先要了解整除的基本性质: 1.若a整除b且a整除c,则对任意的x,y有a整除xb+yc。 2.若a整除b且b不为0,则绝对值a小于等于绝对值b。 3.若a整除b,则ca整除cb(c不为0)。 ...
  • qq_38121348
  • qq_38121348
  • 2017年05月29日 13:56
  • 176

NBUT1461 数字整除(大数处理,减法、除法)

数字整除 Description 定理:把一个至少两位的正整数的个位数字去掉,再从余下的数中减去个位数的5倍。当且仅当差是17的倍数时,原数也是17的倍数 。 例如,34是17的倍数,因为3-2...
  • xia842655187
  • xia842655187
  • 2016年04月30日 18:02
  • 296

怎么判断一个数能不能被某个数整除。

文章内容来源趣味数学。 发现都是一些小技巧。所以就积累下来了。 本文的某个数有:7,11,12,15,18,45,13. 首先是11: 怎样判断一个数能不能被11整除?   判断一个数能不...
  • slime_kirito
  • slime_kirito
  • 2015年04月23日 16:17
  • 1421

【大数除法模板】判断能否整除+求整除后的商

//数组是先存高位再往低位存的,如1011,a[0]=1,a[1]=0,a[2]=1,a[3]=1; //a[]是被除数,n是除数 int divide(char a[],int l) { in...
  • cacyth
  • cacyth
  • 2016年07月03日 17:57
  • 491
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:判断整除或求和
举报原因:
原因补充:

(最多只允许输入30个字)