vb程序编写

Private Sub Command1_Click()

Dim i%, n1%, n2%, sum%

If Op1Value = True Then

n1 = 100

n2 = 200

End If

If Op2Value = True Then

n1 = 200

n2 = 400

End If

sum = 0

For i = n1 To n2

If ss(i) Then sum = sum + i

Next

Text1 = sum

End Sub

Function ss(n As Integer) As Boolean

Dim i%

For i = 2 To n - 1

If n Mod i = 0 Then

ss = False

Exit Function

End If

Next

ss = True

End Function

Private Sub Command2_Click()

Open AppPath + "\outtxt" For Output As #1

Print #1, Text1Text

Close 1

End Sub

用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

可以分为三步：

第一步：设计程序的界面

这是最有趣的一步，你根据你要实现的功能画出程序的界面，很有点摆积木的味道。

第二步：编写代码

最枯燥的一步，根据程序的功能，为每个控件元素编写代码，这一步是程序设计的关键所在。

第三步：发布应用程序

为你的程序创建安装项目。如果是自己使用，这一步可忽略。

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