热力学计算VB程序代码
附录二：VB程序代码
Dim Pa , Va , Pb , n1 , n2 As Single
‘/“计算”命令按钮的单击事件/’
Private Sub Command1_Click()
Dim P0, T0, Ne, n, e, e0, AF, Vr, Pz, Ez, Eb, Q, Tb, C, H, O, Hu, Ta, nv, Tc, Pc, L0, L, B , B0, Xz, Bz, Cvpmz, Cvpmb,
Cppmz ,Hu_, i, Tz, p, g, Bb, Pi_, Pi , gi , ni , nm , Pe , ge ,
ne0 , S , D , S_D , Cm As Single
Pa = 0
Va = 0
Pb = 0
n1 = 0
n2 = 0
P0 = Val(Text1(2).Text)
T0 = Val(Text1(1).Text)
Ne = Val(Text1(3).Text)
n = Val(Text1(9).Text)
e = Val(Text1(5).Text)
e0 = Val(Text1(6).Text)
AF = Val(Text1(4).Text)
Vr = Val(Text1(13).Text)
Pz = Val(Text1(10).Text)
Ez = Val(Text1(0).Text)
Eb = Val(Text1(7).Text)
Q = Val(Text1(14).Text)
Tb = Val(Text1(8).Text)
C = Val(Text1(15).Text) / 100
H = Val(Text1(16).Text) / 100
O = Val(Text1(12).Text) / 100
Hu = Val(Text1(11).Text)
‘/检查输入参数/’
Dim k As Integer
For k = 0 To 16
If Len(Text1(k).Text) <= 0 Then
a = MsgBox("请先输入全部参数", 0 + 0 + 48, "请确定")
Exit Sub
ElseIf Val(Text1(k).Text) <= 0 Then
a = MsgBox("参数中有非法数据", 0 + 0 + 48, "请确定")
Exit Sub
End If
Next k
Call cqgccs(P0, T0, Tb, Vr, e, e0, Ta, Pa, nv) ’调用充气参数计算过程
Call ysgccs(n1, Ta, e, Tc, Pc, Pa) ’调用压缩参数计算过程Call rsgccs(L0, C, H, O, AF, L, B0, B, Vr, Xz, Ez, Eb, Bz, Bb, Cvpmz, Cppmz, Cvpmb, Hu_, Hu, i, Pz, Pc, Tz, Tb,
Tc) ’调用燃烧参数计算过程Call pzgccs(p, B, Tz, i, Tc, g, e, n2, Bz, Bb, Tb, Hu_, Eb, Ez, L, Cvpmb, Cvpmz, Pb, Pz) ’调用膨胀参数计算程Call zscs(Pi_, Pc, e, i, p, n2, n1, Pi, Pb, Pa, e0, gi, nv, P0, T0, ni, Hu, g, L) ’调用指示参数计算过程Call yxcs(nm, Pe, Pi, ge, gi, ne0, ni) ’调用有效参数计算过程Call qgjbcc(S, D, S_D, Cm, n, Ne, Pe, Va) ’调用汽缸基本尺寸参数计算过程
‘/输出计算结果/’
Text2(0).Text = Ta
Text2(1).Text = Pa
Text2(2).Text = nv
Text2(3).Text = n1
Text2(4).Text = Tc
Text2(5).Text = Pc
Text2(6).Text = L0
Text2(7).Text = L
Text2(8).Text = B0
Text2(9).Text = B
Text2(10).Text = Xz
Text2(11).Text = Bz
Text2(12).Text = Cvpmz
Text2(13).Text = Cvpmb
Text2(14).Text = Cppmz
Text2(15).Text = Hu_
Text2(16).Text = i
Text2(17).Text = Tz
Text2(18).Text = p
Text2(19).Text = g
Text2(20).Text = n2
Text2(21).Text = Pb
Text2(22).Text = Pi_
Text2(23).Text = Pi
Text2(24).Text = gi
Text2(25).Text = ni
Text2(26).Text = nm
Text2(27).Text = Pe
Text2(28).Text = ge
Text2(29).Text = ne0
Text2(30).Text = S
Text2(31).Text = D
Text2(32).Text = Va
Text2(33).Text = S_D
Text2(34).Text = Cm
End Sub
‘/“绘图”命令按钮的单击事件/’Private Sub Command2_Click()
Dim x0 As Single, y0 As Single, x As Single
If (n1 = 0) Then
a = MsgBox("请先计算", 0 + 0 + 48, "请确定")
Exit Sub
End If
Call Load(Form2)
Form2.Show
x0 = 1920
y0 = 3480
For x = Va To e0 * Va Step 0.01
PSet (x, y0 - Pa * (x - x0) ^ n1)
Next x
For x = Va To g * Va Step 0.01
PSet (x, y0 - Pa * (x - x0) ^ n2
Next x
End Sub
‘/定义充气参数计算过程/’
Sub cqgccs(P0 As Single, T0 As Single, Tb As Single, Vr As Single, e As Single, e0 As Single, Ta As Single, Pa As Single, nv
As Single)
Ta = (T0 + 5 + 1.11 * Vr * Tb) / (1 + Vr)
Pa = P0
nv = e * T0 / ((e0 - 1) * Ta * (1 + Vr))
End Sub
‘/定义压缩参数计算过程/’
Sub ysgccs(n1 As Single, Ta As Single, e As Single, Tc As Single, Pc As Single, Pa As Single)
Dim n10, n11 As Single
n10 = 1
Do
n11 = n10
n10 = 8.315 / (19.26 + 0.0025 * Ta * (1 + e ^ (n11 - 1))) + 1 Loop While Abs(n11 - n10) > 0.001
n1 = n10
Tc = Ta * e ^ (n1 - 1)
Pc = Pa * e ^ n1
End Sub
‘/定义燃烧参数计算过程/’
Sub rsgccs(L0 As Single, C As Single, H As Single, O As Single, AF As Single, L As Single, B0 As Single, B As Single, Vr As
Single, Xz As Single, Ez As Single, Eb As Single, Bz As
Single, Bb As Single, Cvpmz As Single, Cppmz As Single,
Cvpmb As Single, Hu_ As Single, Hu As Single, i As
Single, Pz As Single, Pc As Single, Tz As Single, Tb As
Single, Tc As Single)
Dim a, Cv_, Cv__, Tz0, Tz1, Cv_0, Cv_1, Cv__0, Cv__1,
Cvpmz0, Cvpmz1, Cppmz0, Cppmz1 As Single
a = AF / 14.2
Cv_ = 19.26 + 0.0025 * Tb
Cv__ = 20.47 + 0.0036 * Tb
L0 = 1 / 0.21 * (C / 12 + H / 4 - O / 32)
L = a * L0
B0 = 1 + 0.0639 / a
B = (B0 + Vr) / (1 + Vr)
Xz = Ez / Eb
Bz = 1 + (B0 - 1) / (1 + Vr) * Xz
Bb = 1 + (B0 - 1) / (1 + Vr)
Cvpmb = ((1.064 + Vr) * Cv__ + (a - 1) * (1 + Vr) * Cv_) / (a *
(1 + Vr) + 0.064)
Hu_ = Hu + L * (1 + Vr) * (B * Cvpmb - 19.26 + 0.0025 * 293) * 293
i = Pz / Pc
Cv_0 = 20
Cv__0 = 20
Cvpmz0 = 30
Cppmz0 = 30
Tz0 = 1980
Do
Cv_1 = Cv_0
Cv__1 = Cv__0
Cvpmz1 = Cvpmz0
Cppmz1 = Cppmz0
Tz1 = Tz0
Cv_0 = 19.26 + 0.0025 * Tz1
Cv__0 = 20.47 + 0.0036 * Tz1
Cvpmz0 = ((1.064 * Xz + Vr) * Cv__1 + (a * (1 + Vr) - (Xz + Vz)) * Cv_1) / (a * (1 + Vr) + 0.064 * Xz) Cppmz0 = Cvpmz1 + 8.315
Tz0 = (Ez * Hu_ / (a * L0) + (Cv_ + 8.315 * i) * Tc + Vr * (Cvpmb + 8.315 * i) * Tz1) / (Bz * (1 + Vr) * Cppmz1) Loop While Abs(Cv_1 - Cv_0) > 0.001 Or Abs(Cv__1 - Cv__0) > 0.001 Or Abs(Cppmz1 - Cppmz0) > 0.001
Or Abs(Cvpmz1 - Cvpmz0) > 0.001 Or Abs(Tz1 -
Tz0) > 0.001
Cv_ = Cv_0
Cv__ = Cv__0
Cvpmz = Cvpmz0
Cppmz = Cppmz0
Tz = Tz0
End Sub
‘/定义膨胀参数计算过程/’
Sub pzgccs(p As Single, B As Single, Tz As Single, i As Single, Tc As Single, g As Single, e As Single, n2 As Single, Bz As
Single, Bb As Single, Tb As Single, Hu_ As Single, Eb
As Single, Ez As Single, L As Single, Cvpmb As Single,
Cvpmz As Single, Pb As Single, Pz As Single) p = 1
g = e / p
n2 = 8.315 * (Bz * Tz / Bb - Tb) / (Hu_ * (Eb - Ez) / (L * (1 + Vr) * B) + Bz / Bb * Cvpmz * Tz - Cvpmb * Tb) + 1 Pb = Pz / g ^ n2
End Sub
‘/定义指示参数计算过程/’
Sub zscs(Pi_ As Single, Pc As Single, e As Single, i As Single, p As Single, n2 As Single, n1 As Single, Pi As Single, Pb As
Single, Pa As Single, e0 As Single, gi As Single, nv As
Single, P0 As Single, T0 As Single, ni As Single, Hu As
Single, g As Single, L As Single)
Pi_ = Pc / (e - 1) * (i * p * (p - 1) + i * p / (n2 - 1) * (1 - 1 / g ^ (n2 - 1)) - 1 / (n1 - 1) * (1 - 1 / e ^ (n1 - 1)))
Pi = (Pi_ * (e - 1) + (Pb - Pa) * (e0 - e)) / (e0 - 1) * 0.92
gi = nv * P0 / (28.96 * L * T0 * Pi) * 12.54 * 10 ^ 6
ni = 3600 * 10 ^ 3 / (gi * Hu)
End Sub
‘/定义有效参数计算过程/’
Sub yxcs(nm As Single, Pe As Single, Pi As Single, ge As Single, gi As Single, ne0 As Single, ni As Single)
nm = 0.8
Pe = Pi * nm
ge = gi / nm
ne0 = ni * nm
End Sub
‘/定义汽缸基本尺寸参数计算过程/’
Sub qgjbcc(S As Single, D As Single, S_D As Single, Cm As Single, n As Single, Ne As Single, Pe As Single, Va As Single) Dim cm0(0 To 10) As Single, s0(0 To 10) As Single, d0(0 To 10) As Single, s_d0(0 To 10) As Single
Dim k As Integer, j As Integer
For k = 0 To 10
cm0(k) = 10 + 0.5 * k
s0(k) = 30 * cm0(k) / n
d0(k) = 0.3909 * (Ne / (Pe * s0(k) * n * 2)) ^ (1 / 2)
s_d0(k) = s0(k) / d0(k)
Next k
For k = 0 To 10
If s_d0(k) > 0.82 Then
j = k
Exit For
End If
Next k
D = d0(j) * 1000
If D - Fix(D) >= 0.5 Then
D = (Fix(D) + 1) / 1000
Else
D = Fix(D) / 1000
End If
S = 0.3909 ^ 2 * Ne / (D ^ 2 * n * 2 * Pe)
S_D = S / D
Cm = S * n / 30
Va = (D / 2) ^ 2 * S
End Sub
vb代码大全
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
vb常见题型汇总代码
1.Private Sub Command1_Click() Dim r As Double, c As Double, s As Double Dim pi As Double pi = 3.1415926 r = Val(Text1.Text) c = pi * 2 * r s = pi * r * r Label3.Caption = "圆的周长为" + Str(c) + "厘米" Label4.Caption = "圆的面积为" + Str(s) + "平方厘米" End Sub 2.（5秒5分倒计时） Dim n As Integer Private Sub Command1_Click() If Option1.Value Then n = 5 If Option2.Value Then n = 300 Timer1.Enabled = True Frame1.Enabled = False Command1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() n = n - 1 Text1.Text = Str(n \ 60) & "分" & Str(n Mod 60) & "秒" If n <= 0 Then Timer1.Enabled = False Frame1.Enabled = True Text1.Text = "时间到" End If End Sub 3.心想事成 Dim x As Integer Private Sub Command1_Click() Timer1.Enabled = True If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "停止" Else Timer1.Enabled = False Command1.Caption = "开始" End If End Sub Private Sub Form_Load() Timer1.Interval = 100 x = -100 End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + x If Label1.Left <= 0 Then x = 100 If Label1.Left >= Form1.ScaleWidth - Label1.Width Then x = -100 End Sub 4.我的调色板（滚动条） Private Sub Command1_Click() Label5.ForeColor = Label4.BackColor End Sub Private Sub HScroll1_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 5.字形字体颜色（复选框，单选）Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check1.Value = 1 Then
VB键盘常量大全 256个虚拟键码
Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2 Public Const VK_CANCEL = &H3 Public Const VK_MBUTTON = &H4 Public Const VK_BACK = &H8 Public Const VK_TAB = &H9 Public Const VK_CLEAR = &HC Public Const VK_RETURN = &HD Public Const VK_SHIFT = &H10 Public Const VK_CONTROL = &H11 Public Const VK_MENU = &H12 Public Const VK_PAUSE = &H13 Public Const VK_CAPITAL = &H14 Public Const VK_ESCAPE = &H1B Public Const VK_SPACE = &H20 Public Const VK_PRIOR = &H21 Public Const VK_NEXT = &H22 Public Const VK_END = &H23 Public Const VK_HOME = &H24 Public Const VK_LEFT = &H25 Public Const VK_UP = &H26 Public Const VK_RIGHT = &H27 Public Const VK_DOWN = &H28 Public Const VK_Select = &H29 Public Const VK_PRINT = &H2A Public Const VK_EXECUTE = &H2B Public Const VK_SNAPSHOT = &H2C Public Const VK_Insert = &H2D Public Const VK_Delete = &H2E Public Const VK_HELP = &H2F Public Const VK_0 = &H30 Public Const VK_1 = &H31 Public Const VK_2 = &H32 Public Const VK_3 = &H33 Public Const VK_4 = &H34 Public Const VK_5 = &H35 Public Const VK_6 = &H36 Public Const VK_7 = &H37 Public Const VK_8 = &H38 Public Const VK_9 = &H39 Public Const VK_A = &H41 Public Const VK_B = &H42 Public Const VK_C = &H43 Public Const VK_D = &H44
VB代码大全
隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。
vba常用代码大全
前言 我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。 而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。 第1.1例 ASC函数 一、题目： 要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。 二、代码： Sub 示例_1_01() Dim myNum1%, myNum2% myNum1 = Asc("Excel") '返回69 myNum2 = Asc("e") '返回101 [a1] = "myNum1= ": [b1] = myNum1 [a2] = "myNum2= ": [b2] = myNum2 End Sub 三、代码详解 1、Sub 示例_1_01()：宏程序的开始语句。 2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。 也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符 号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。 Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。 语法 Asc(string) 必要的 string（字符串）参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。 4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。这里返回小写字母e 的ASCII代码101。 5、[a1] = "myNum1= ": [b1] = myNum1：把字符串“myNum1= “赋给A1单元格，把变量myNum1的值赋给B1单元格。 6、[a2] = "myNum2= ": [b2] = myNum2：把字符串“myNum2= “赋给A2单元格，把变量myNum2的值赋给B2单元格。 7、End Sub：程序的结束语句，和“Sub示例_1_01（）”相对应。 第1.2例 Chr函数 一、题目""： 要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符。 二、代码： Sub 示例_1_02() Dim myChar1$, myChar2$ myChar1 = Chr(69) ' 返回 E。 myChar2 = Chr(101) ' 返回 e。 [a1] = "myChar1= ": [b1] = myChar1 [a2] = "myChar2= ": [b2] = myChar2
VB编程常用代码大全
VB编程常用代码大全 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根 num>0 int(num): 取整 int(99.8)=99; int(-99.2)=100 fix(num): 取整 fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2 log(num): 取以e为底的对数 num>0 exp(n): 取e的n次幂通常用 num^n sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符 1；替代次数不限；比较方法区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置 space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选
vb编程代码大全
vb编程代码大全 1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根num>0 int(num): 取整int(99.8)=99; int(-99.2)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2 log(num): 取以e为底的对数num>0 exp(n): 取e的n次幂通常用num^n sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选
最新VB知识点总结
VB知识点总结大全 第一章VB入门（*） 1.2.2 主窗口 1．标题栏 三种工作模式 （1）设计模式：可进行界面设计、代码编制 （2）运行模式：不可编辑界面、代码 （3）中断模式：不可编辑界面，可以编辑代码 2．菜单栏 3．工具栏 1.2.3 设计窗口 1．窗体设计窗口 2．代码设计窗口 （1）打开方式： 1.单击菜单栏的视图——选择代码窗口 2.双击窗体、控件 3.单击工程资源管理器窗口的“查看代码” （2）主要内容 1.对象列表框：显示所选对象的名称。列出窗体所有可用的对象名。 2.过程列表框：列出所有对象列表框中对象的事件过程或自定义过程的 名称。 1.2.4属性窗口 由四部分组成： 1.对象列表框 2.属性排列方式：按字母排列、按分类排列 3.属性列表框：左边为属性名，右边为相应的属性值 4.属性含义说明：显示所选属性的含义 1.2.5 工程资源管理器窗口 （1）3个按钮 1.“查看代码”：切换到代码窗口，显示和编辑代码 2.“查看对象”：切换到窗体窗口，显示和编辑对象 3.“切换文件夹”：切换到文件夹显示方式 （2）包含两种类型的文件 1.窗体文件（.frm文件）：储存窗体上所有控件对象和有关的属性、对象 相应的事件过程、程序代码。 2.标准模块文件（.bas文件）：储存所有模块级变量和用户定义的通用过 程，该类型可选。 1.2.6 工具箱窗口
一般由21个按钮形式的图标构成。除指针外的20个为标准控件（指针不是控件），每个也是一个类。如：文本类、图形类等。 1.3.1 建立一个应用程序的步骤 1.建立用户界面的对象 2.对象属性的设置 3.创建对象事件过程及编程 4.运行和调试程序 5.保存程序和生成可执行文件 1.3.2 VB程序结构和编码规则 1.程序结构 （1）最上面为通用声明段，主要编写模块级以上的变量声明、Option选项的设置等。 （2）以下为程序代码的块结构，也就是事件过程或自定义过程，这构成程序的主体。块的先后次序与程序执行次序无关。 2.编码规则 （1）代码不区分字母的大小写 （2）语句书写自由 1.同一行可书写多个语句，语句间用冒号分隔 2.一个语句可分多行写，要在本行末加续行符“-”（空格和下划线） （3）为了程序的阅读、维护和调试，可加注释 1.一般用’(撇号)注释内容 2.也可使用工具栏的文本编辑器中的注释 第二章可视化编程基础（***） 2.1.2 类和象 1.对象：具体的控件或窗体等都是对象。 2.类：工具箱上的可视图标是标准控件类，如：命令按钮类、文本框类等。 注：窗体是个特例，它既是类也是对象。 2.1.3 对象的属性、方法和事件 属性、方法和事件构成了对象的三要素。 1.属性（用来描述和反映对象特征的参数） 设置属性的两种方法： （1）在设计时，通过属性窗口直接设置 （2）在代码中设置，通过赋值实现 大多数属性都可用以上两种方法设置，这种属性称为“可读写属性”，有一些只能通过属性窗口设置，此种属性称为“只读属性” 2.方法（附属于对象的行为和动作，也就是指使对象动作的命令） 如：Text1.setFocus （其中setFocus就是方法） 3.事件（如单击、双击、装载等都是事件） 事件和方法的简单区别：
vb常用代码大全
. Word 资料 移动无标题栏的窗体 dim m(borderstyle=none) ouseX as integer dim mouseY as integer dim moveX as integer dim moveY as integer dim down as boolean form_mousedown: 'mousedown 事件 down=true mouseX=x mouseY=y form_mouseup: 'mouseup 事件 down=false form_mousemove if down=true then moveX=me.left-mouseX+X moveY=me.top-mouseY+Y me.move moveX,moveY end if *******************************************闪烁控件 比如要闪烁一个label （标签） 添加一个时钟控件 间隔请根据实际需要设置 enabled 属性设为true 代码为： label1.visible=not label1.visible ******************************************* 禁止使用 Alt+F4 关闭窗口 Private Declare Function DeleteM enu Lib "user32" (ByVal hMenu As L ong, ByVal nPosition As Long, ByV al wFlags As Long) As Long Private Declare Function GetMen uItemCount Lib "user32" (ByVal hM enu As Long) As Long Private Const MF_BYPOSITION = &H 400& Private Sub Form_Load() Dim hwndMenu As Long Dim c As Long hwndMenu = GetSystemMenu(Me .hwnd, 0) c = GetMenuItemCount(hwndMe nu) VB 常用代码
VB函数大全
VB函数大全_基本函数大全 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。 Eval 函数计算并返回表达式的值。
VB指令大全
VB 可用指令、函数 A Abs 求绝对值 ActiveControl 得到焦点的对象ActiveForm 得到焦点的表单 Array 指定数组 App 得知程序信息 AppActivate 激活执行中的应用程序Asc 求字符的内码 AscB 求字符的ASCII AscW 求字符的 UniCode Atn 求Tan-1 B Beep 发出预设的警示声 C Call 调用子程序 Calendar 选择月历 Choose 取出一列值的某个值 CBool 数值转成布尔数 CByte 数值转成位元格式 CCur 数值转成货币格式 CDate 数据转成时间 CDbl 数值转成双精度浮点数 CDec 数据转成十进数 ChDir 改变目前路径缓充的路径ChDrive 改变目前磁盘缓充的磁盘Chr 由内码求得一字符 ChrB 由ASCII求得一字符 ChrW 由UniCode求得一字符 CInt 数据转成Integer CLng 数据转成Long Command 读出程序的参数 Const 定义常数 Cos COS CSng 数值转成单精度浮点数CurDir 得知目前路径缓充的路径CVar 数值转成可变变量 D Date 得到目前电脑的时间 Date$ 得到目前电脑时间字符串DateAdd 日期加法得日期 DateDiff 日期相减得数值 DatePart 日期部份资讯 DateSerial 字符串转日期DateValue 数字转日期 Day 得知日期变量内是几号 DDB 折旧的计算 DeleteSetting 删除系统登录内的数据Dir 得知目前路径内的文件名 DoEvents 闲置函数 E End 结束程序 Environ 取得环境变量的数据 EOF 某个文件缓冲的指标是否到档尾Erase 重新初始化数组 Err 错误资讯 Error 错误代码信息 Exp 得到自然对数 F Fix 去除小数 FileCopy To 复制文件 FileAttr 文件开启模式 FileDateTime 文件存档日期 FileLen 文件长度 Filter 筛选数组 Format 数据格式化输出 FreeFile 空的文件编号 FV 求得定期、定额支付且固定利率下之年金的值 G GetAllSetting 得到所有系统登录的资讯GetAttr 得知文件属性 GetSetting 得到系统登录的资讯 H Hex 将数值转成16进数表示的字符串Hour 得知日期变量内是几时 I If . Then . Else 判断结构 IMEStatus 得知IME输入法状态 InStr 寻找字符串里的字符串 InStrB 寻找字符串里的ASCII IntStrRev 由字符串右边开始寻找字符串 里的字符串 Int 取整数
VB基本语法
1.1 VB的数据类型 数据类型是数据的表示和存储形式。VB定义的基本数据类型如表5-1所示。 表5-1 VB的基本数据类型 Integer（整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度长整型）及Currency（货币型）均为Numeric数据类型。其中整型是16位的整数，长整型是32位的整数。单精度及双精度浮点型就表示实数，常被用于数量较大的数字。Currency数据类型支持小数点右面15位，是定点数据类型，适用于货币计算。 String（字符串变量）的数据类型只存放文本，是一个字符序列，它的每一个字符用ASCII 编码表示。不包含任何字符的串称为空串。 Byte数据类型表示0到255之间的数，常用于访问二进制文件、图形和声音文件
等。当需要把数据存放成字节，必须访问各字节时可采用Byte类型。 取值仅为True/False的类型称为Boolean（布尔）型，缺省值为False。 Date数据类型用于以特殊方式存放日期和时间。 Object变量可引用应用程序中或某些其他应用程序中的对象。 VB缺省规定，如果在生命中没有说明数据类型，则变量的数据类型为Variant（变体）。Variant数据类型还包含三种特定值：Empty、Null、Error。Empty值用于确定是否已将一个值赋予所创建的变量。赋值之前，Variant变量具有值Empty。 Null常用于数据库应用程序，表示未知或丢失为空的数据。 Error值是指已发出的过程中的错误状态。 Variant数据类型是最为灵活的数据类型，可以依据不同的需要进行各种数据类型的转换。它实际上包含两部分信息，一部分是数据类型的信息，一部分是表示数据值的信息。但正是由于它的灵活性，又使得它存在着一个明显的缺点，Variant数据类型比其他类型的数据占有更多的内存空间。 2 数组 VB中数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如：Dim Array（9）As Integer 数组中包含10个元素，脚标从0到9。 也可以指定脚标的起始值，例如： Dim IntegerArray（2 to 10）As Integer 这个数组含有九个元素，脚标从2到10。 还可以定义多维数组： Dim ThreeD（4,2 to 5,3 to 6）As Integer
vb代码大全
1.数值型函数： abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值直接表示：&Hxx 最大8位 oct(num): 返回八进制值直接表示：&Oxx 最大8位 sqr(num): 返回平方根num>0 int(num): 取整int(99.8)=99; int(-99.2)=100 fix(num): 取整fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2 log(num): 取以e为底的对数num>0 exp(n): 取e的n次幂通常用num^n sin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数： len(str)：计算字符串长度中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置 space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选 3.数据类型转换函数： Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下
VB命令大全
VB命令大全 命令 Call：调用事件处理器 Close关闭用Open命令所打开文件的输入输出。格式：Close #文件号1, #文件号2……。若无文件号，则关闭打开的所有活动文件。 Const：声明常量,格式:Const常量名[As类型] =常量值 DoEvents：让应用程序提供少量时间处理等待的任务，然后控制权立即返回应用程序。 Dim声明变量，格式：Dim变量名As变量类型 Exit sub：中途退出子程序 End：结束程序 Global：声明全局变量 Load：装入窗体 MsgBox消息内容：将结果显示在消息框中 Open打开或保存文件。格式：Open文件全名For模式As #文件号[Len =文件长度]其中，模式有：Append、Binary、Input、Output、Random(缺省)；文件号在1到511之间，可用FreeFile函数取得；文件长度在1到32767之间。例：Open CommonDialog1.FileName For Output As #1
Option Base 1：放在声明部分,强制数组从1开始索引,(如果不习惯从0开始的话) Option Explicit：强制声明变量(放在窗体或模块的声明部分) PopupMenu调出弹出式菜单。格式：PopupMenu弹出式菜单名, flags, x, y, Boldcommand（只有前面两项为必选）。Flags变元定义弹出菜单的位置和功能（可用逻辑“或”运算符组合）；BoldCommand变元指定黑体显示的菜单命令名（只能有一个，常用于表示缺省值）。Flags变元的值： 常量 位置或功能 VbPopupMenuLeftAlign 指定X位置，确定菜单左边沿（缺省） VbPopupMenuCenterAlign 指定X位置，确定弹出菜单左中点。 VbPopupMenuRightAlign 指定X位置，确定弹出菜单右边沿。 VbPopupMenuLeftButton 用户用鼠标左键单击菜单项目时，弹出菜单触发Click事件（缺省）。 VbPopupMenuRightButton
vb编程代码大全
vb 编程代码大全 1.数值： abs(num): 返回 sgn(num): num>0 1; num=0 0; num<0 -1; 判断数值正负 hex(num): 返回值直接表示：&Hxx 最大8 位 oct(num): 返回值直接表示：&Oxx 最大8 位 sqr(num): 返回num>0 int(num): 取整int=99; int=100 fix(num): 取整fix=99; fix=99 round(num,n): 四舍五入取小数位round,3)= 中点数值四舍五入为近偶取整 round,1)= log(num): 取以e 为底的num>0 exp(n):取e的n次幕通常用num A n sin(num):，以为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) len(str) ：计算字符串长度中文字符长度也计为一！mid(str,起始字符,［读取长度］):截取字符串中间子字符串left(str,nlen) ：从左边起截取nlen 长度子字符串right(str,nlen) :从右边起截取nlen 长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成 trim(str) ：去除字符串两端空格 Ltrim(str) ：去除字符串左侧空格 Rtrim(str) ：去除字符串右侧空格 replace(str,查找字符串，替代字符串,［起始字符，替代次数，比较方法］):替换字符串 注：默认值：起始字符1；替代次数不限；比较方法区分大小写( 0)
InStr(［起始字符,］str,查找字符串［，比较方法］):检测是否包含子字符串可选参数需同时选返 回起始位置 InStrRev(str,查找字符串［,起始字符］［,比较方法］):反向检测是否包含子字符串返回起始位置 space(n)：构造n个空格的字符串 string(n,str):构造由n个str第一个字符组成的字符串 StrReverse(str):反转字符串 split(str,字符串［,次数］［,比较方法］):以分割字符串为分割标志将字符串转为字符可选参数需 同时选 转换函数： Cint(str) ：转换正数True -1；False 0；日期距离1899/12/31 天数；时间上午段0；下午段1； Cstr(str):日期yyyy/mm/dd ;时间输出格式Am/Pm hh:mm:ss Clng(str):与Cin()类似 Cbool(num): num 不为零True;反之False Cdate(str):转换日期格式0: #Am 12:00:00# ;正数距离1899/12/31天数的日期；日期+ 小数时间 Cbyte(num) : num<255 转换为字节 Csng(str):转换为数值 Cdbl(str):转换为数值 Ccur(str):转换为现金格式 4.时间函数：date :取系统当前日期 time ：取系统当前时间 now：取系统当前时间及日期值Datetime类型 timer :取当前时间距离零点秒值，，可计算时间差
vb实验代码大全
实验31 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer Dim n As Integer Dim s As Single s = 0 n = InputBox("请输入n") For i = 1 To n s = s + 1 / (i * (i + 1)) Next MsgBox("s=" & s) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a(10) As Integer Dim i As Integer Dim x As Integer Dim y As Integer x = 0 y = 0 For i = 1 To 10 a(i) = InputBox("请输入第" & i & "个数") If i Mod 2 = 0 Then x = x + a(i) Else y = y + a(i) End If Next MsgBox("下标为奇数的元素和为" & y & "下标为偶数的元素和为" & x) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As String ys = "" r = 1 Do While r <= 4
VB常用代码大全
#define __LLF_VB_GUI__ #include "vb.h" //Sub Output( ByRef( msg As String ) ) { //why can't replace ',' ? Sub Output( ByRef( msg , String ) ) { //must add '{' now . Call Print( msg ); //must add ';' . End_Sub Sub Main() { If False Or False Then Call Output( "That's True!\n" ); //must add ';' . Else Call Output( "That't False!\n" ); //must add ';'. End_If int i = 0; //For( i, 0 To 10 ) //why can't replace ',' ? For( i, 0, 10 ) Print( i ); Next Pause(); End_Sub #ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__ #define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__ #include