❶ vb如何DO语句调用模块
需要使用VisualBasic。
步骤/方法1、启动VB界面,建立标准EXE。
2、创建两个命令按钮,caption改为while,until。创建一个文本框,text=0,名称改为T1。
3、现在以1+2+3+...100为例,用do循环结构编程。点击while按钮,进入代码编辑器,DimiAsLong,sAsLongDos=s+i,i=i+1,LoopWhilei<=100,T1.Text=s。
4、然后点击until按钮,进入代码编辑器,Dos=s+i,i=i+1,LoopUntili>100,T1.Text=s。
5、编写好代码之后,点击运行一下,下面是两个用Do不同格式写出的同一个例子。
6、现在先点击while按钮,显示出5050。
7、然后再点击一下until按钮,显示的也是5050。
8、用两个do结构写的程序可以完成一样的效果,一个是while条件,一个是until条件,这两个条件刚好是反过来的,当符合while条件时,循环继续,当不符合until条件时,程序也是继续。
❷ VB中的模块怎么用希望高手指点
模块一般是放全局公用的函数、过程、常数、自定义结构、全局变量等等东西的地方,也就是公用部分的集中场所。当然,模块中也可以定义private 的函数或者过程以便公用过程的内部调用。类模块是定义一个类,类模块中的所有public成员必须在创建了累的实例以后才能够调用,需要和标准模块区分开来。好的编程习惯是把不同种类的功用模块分类放在不同的标准模块中,便于查阅,所以很多程序中会有多个标准模块存在.
我在模块中定义了如下过程:
Public Sub LocationForm(ByVal frm As Form) '定义过程
frm.Caption = "111"
End Sub
可以在窗体中如下去调用模块中的方法
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Form_Load()
LocationForm Me
End Sub
Private Sub Form_Load()
LocationForm Me
End Sub
模块中定义函数
Function show(a As Integer, b As Integer) As Integer
show = a * b
End Function
窗体调用函数
Private Sub Form_Load()
MsgBox (show(8, 7))
End Sub
❸ 关于VB中模块调用
1、调用模块一般是指调用工程中模块内的函数,只要模块内有这个函数就可以直接使用它。例如,模块内有函数Public Function sql_execute(strsql As String) As Boolean
Dim conn As New ADODB.Connection
Set conn = CreateObject("adodb.connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\编程狂.mdb;Jet OLEDB:Database Password=260701"
conn.Execute (strsql)
conn.Close
sql_execute = True
End Function在执行SQL时,就可以直接使用VarSource = "select max(干部编号) from tb_basic "If sql_execute(VarSource) = True Then
MsgBox "保存成功!", , "提示窗口"
End If2、call是调用本模块内的函数或过程,例如Call Command1_Click
❹ VB标准模块怎么用
在模块定义一个全局变量 在2个窗体里可以赋值使用
❺ VB 怎么定义一个模块如何操作
需要使用模块,那就将这个变量定义在模块中
例如在Mole1中:public
srPaste
as
Variant(不知道你要什么类型,就定为Variant),或者使用
global
标识符,这和public
在模块中的的意义是一样的。
在其他地方使用时
可以直接引用,也可以通过Mole1.srPaste使用。
2、不需要使用模块,那你就直接在通用中:public
srPaste
as
Variant
,其他窗口使用时
通过窗口名引用
:Form1.srPaste,但是不可用global
❻ vb 类模块如何使用模块内容...
类模块代码
OptionExplicit
PublicFunctionAdd(ByValaAsLong,ByValbAsLong)AsLong
Add=a+b'反回值Add=a+b
EndFunction
窗体代码
DimsAsNewClass1
PrivateSubCommand1_Click()
MsgBoxs.Add(10,10)
EndSub
❼ 关于VB模块的使用方法
例如:在模块里定义一个pubilc sub a()
然后在其他窗体里使用模块.a进行调用
winsock控件为microsoft winsock control 6.0,如果没有,请下载vs sp6补丁。
❽ 在VB中,如何调用模块呀
Dim a as
New Mole名
类模块和标准模块的不同点在于存储数据方法的不同。标准模块的数据只有一个备份。这意味着标准模块中一个公共变量的值改变以后,在后面的程序中再读取该变量时,它将得到同一个值。
而类模块的数据,是相对于类实例(也就是,由类创建的每一对象)而独立存在的。
同样的,标准模块中的数据在程序作用域内存在,也就是说,它存在于程序的存活期中;而类实例中的数据只存在于对象的存活期,它随对象的创建而创建,随对象的撤消而消失。
最后,当变量在标准模块中声明为 Public 时,则它在工程中任何地方都是可见的;而类模块中的 Public 变量,只有当对象变量含有对某一类实例的引用时才能访问
这个是复制MSDN上的,希望对你有帮助