判断整除或求和

原创 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有那个能力。

相关文章推荐

千以内的完数判断求和

  • 2011年03月14日 21:28
  • 637B
  • 下载

lintcode 二进制求和 给定两个二进制字符串,返回他们的和(用二进制表示)。

Lintcode容易题 二进制求和 查看运行结果  15:00  Start 给定两个二进制字符串,返回他们的和(用二进制表示)。 您在真实的面试中是否遇到过这个题?  Yes ...
  • cjt5047
  • cjt5047
  • 2016年02月21日 18:06
  • 2552

多项式求和

  • 2014年12月31日 22:38
  • 2KB
  • 下载

求和死循环

  • 2013年11月12日 15:35
  • 168B
  • 下载

devexpress表格gridcontrol实现列统计,总计,平均,求和等。

1、在许多项目中,经常要实现对某些列的统计。devexpress控件gridcontrol实现这些功能只需要设置某些属性,就可以达到要求了。以下例举了一个统计班级总数,人数总计,分数总计的案例。效果图...

cad面积求和

  • 2015年07月16日 14:05
  • 758B
  • 下载

2的阶层求和

  • 2013年12月17日 09:50
  • 56B
  • 下载

.报表中利用隐藏列对扩展格显示值求和

在润乾报表中,获取报表中单元格显示值的函数是disp(),然而这个函数却无法计算扩展单元格的显示值。从而无法直接对扩展个显示值求和。 在下图中,需要计算D3单元格的显示值之和。   D3值为...

[php] 自动求和(不提交)

  • 2013年11月05日 13:04
  • 663B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:判断整除或求和
举报原因:
原因补充:

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