用vb编写程序

用VB实现上述功能的函数是：

Function fun(m, n) As Integer

Sum = 0

For i = 1 To 100

  If i Mod m = 0 Or i Mod n = 0 Then

    Sum = Sum + i

  End If

Next i

fun = Sum

End Function

Private Sub Command1_Click()

m = CInt(InputBox("m="))

n = CInt(InputBox("n="))

Print "100以内能被"; m; "或"; n; "整除的数的总和="; fun(m, n)

End Sub

Visual

Basic程序设计主要采用的是基于对象（主要是COM和ActiveX）和基于事件处理的可视化编程工具。在VB的IDE中通过可视化设计和布局窗口界面，并处理对象的事件代码。

VB可以编写任意Windows平台上的应用程序，但不包括Win32

Console

Application，到了NET以后就例外了。

总的来说，VB的特点是简单易学、入门简单、 *** 作方面、开发速度快等等。

以下是代码：

Dim i As Integer  '存放秒值变量

Rem “开始”按钮对象中的程序

Private Sub Command1_Click()

i = Text1Text        '文本框对象中输入的秒值放入i变量

Timer1Enabled = True '使定时器开始工作进行循环

End Sub

Private Sub Command2_Click()

End

End Sub

Rem 定时器对象中的程序

Private Sub Timer1_Timer()

i = i - 1          '秒数递减

Text1Text = i     '将递减后的秒数值显示在文本框中

If i = 0 Then Timer1Enabled = False  '当秒值递减到0时关闭定时器，停止循环

End Sub

以上就是关于用vb编写程序全部的内容，包括:用vb编写程序、VB怎么编程、VB程序编写等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！