用VB编写程序

在窗体中建立一个文本框text1,multiline属性为true,scrollBars属性为2－vertical

复制进如下代码：

Private

Sub

Form_Load()

Dim

a&,

b$

For

a

=

100

To

200

If

a

Mod

3

=

0

Then

b

=

b

&

Str(a)

Next

a

Text1Text

=

b

End

Sub

---------我是华丽丽的分割线--------

dim

a(1

to

10)

as

long

dim

Temp()

as

long

‘保存能被3整除的数

dim

s

as

string

dim

n

as

integer

for

i=1

to

10

a(i)=inputbox("Please

input

data!")

next

i

for

i=1

to

10

if

(a(i)

mod

2)

then

n=n+1

s=s

&

cstr(a(i))

&

","

end

if

redim

temp(n)

as

long

dim

v

v=split(s,",")

for

i=0

to

ubound(v)

temp(i)=v(i)

next

i

VB是编译型语言，不能保存“过程名”并在代码里用“名字”调用过程，因为编译后这个名字将不存在！

思路本身就有问题，你可以用添加多个参数的方式用单个过程来处理，比如将画圆的各个相关的量作为参数（圆心坐标、半径、颜色，是否实心等等），再加个标记，在不同的时候调用不同的代码。如果非要用多个方法，参考楼上的 ，这样数据库保存的不一定是过程名字，只要你自己能将该名称和过程名字对应起来就行。

Private Sub cmdSave_Click()

Dim i As Integer

For i = 0 To 4

If txtPersonInfo(i) = "" Then

MsgBox "此项不能为空!", vbExclamation

txtPersonInfo(i)SetFocus

Exit Sub

End If

Next i '向数据库中写数据'

WriteData '各控件设置初始值'

InitControl

End Sub

问题应该是出在倒数第二行，lnitControl 和WriteData 这两个过程或函数是否有定义？

你的程序中应该有下面的过程或函数：

Sub InitControl()

End sub

否则出错

采取了事件驱动的编程机制。

Visual Basic（简称VB）源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件，用于高效生成类型安全和面向对象的应用程序[2]。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

事件驱动的编程机制：

面向过程的程序是由一个主程序和若干个子程序及函数组成的。程序运行时总是先从主程序开始，由主程序调用子程序和函数，开发人员在编程时必须事先确定整个程序的执行顺序。而Visual Basic 60事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。

扩展资料：

在 Visual Basic 程序设计语言中，对象与程序的交互是通过事件来完成的。即针对每一 对象，可能会有多种事件产生，每一事件都可以驱动一段程序运行，完成相应工作。

Visual Basic 的最大的优势在于它的易用性，可以让经验丰富的VB程序员或是刚刚懂得皮毛的人都能用自己的方式快速开发程序。而且 VB 的程序可以非常简单的和数据库连接。比如利用控件可以绑定数据库，这样一来用VB写出的程序就可以掌握数据库的所有信息而不用写一行代码。

参考资料：

百度百科-事件驱动

参考资料：

百度百科-Visual Basic

用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

子程序或函数未定义 意思是：你使用的函数或者过程名找不到，系统找不到这个东西在哪。也就是说，你拿了一个无效的东西来调用。需要对函数或者过程进行定义，写代码。告诉系统这个函数是什么，干什么的才行。

没代码，仅仅靠这一句话我也只能说这些。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

For i = 1 To 30

    For j = i To 30

        For k = j To 30

        If g(i, j, k) Then Print i; ; j; ; k

        Next

    Next

Next

End Sub

Public Function g(x As Integer, y As Integer, z As Integer) As Boolean

If x ^ 2 + y ^ 2 = z ^ 2 Then g = True

If x ^ 2 + z ^ 2 = y ^ 2 Then g = True

If z ^ 2 + y ^ 2 = x ^ 2 Then g = True

End Function

以上就是关于用VB编写程序全部的内容，包括:用VB编写程序、我把用VB编写的若干个子程序放到Access数据库中，想用VB在主程序中调用这些子程序，该如何实现、vb怎么 定义子程序或函数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！