VB编程常用代码大一练习专用

合集下载

VB编程题代码43例

VB编程题代码43例1、求100以内的素数。

Private Sub Form_Click()Dim i%, j%For i = 2 To 100For j = 2 To i - 1If i Mod j = 0 Then Exit ForNext jIf j = i Then Print iNext iEnd Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

Private Sub Command1_Click()Dim a$, I%, c$, d$, n%a = InputBox$("输入字符串")n = Len(a)For I = 1 To Int(n \ 2)c = Mid(a, I, 1)Mid(a, I, 1) = Mid(a, n - I + 1, 1)Mid(a, n - I + 1, 1) = cNext IPrint aEnd Sub3、计算0~200之间所有能被11或5整除的数之和Private Sub Form_Click()Dim n%, i%n = 0For i = 1 To 200If i Mod 11 = 0 Or i Mod 5 = 0 Thenn = n + iEnd IfNext iPrint nEnd Sub4、输入一年份，判断它是否为闰年，并显示有关信息。

（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年数")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenMsgBox (y & "年是闰年")ElseMsgBox (y & "年是平年")End If5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。

vb常用代码大全

移动无标题栏的窗体dim m（borderstyle=none）ouseX as integerdim mouseY as integerdim moveX as integerdim moveY as integerdim down as booleanform_mousedown: ’mousedown事件down=truemouseX=xmouseY=yform_mouseup: ’mouseup事件down=falseform_mousemoveif down=true thenmoveX=me。

left-mouseX+XmoveY=me.top—mouseY+Yme.move moveX，moveYend if*＊*＊＊*＊***＊*＊**＊＊*****＊＊＊*****＊＊＊＊*＊*＊****＊闪烁控件比如要闪烁一个label（标签）添加一个时钟控件间隔请根据实际需要设置 enabled属性设为true代码为：label1。

visible=not label1。

visible *＊＊＊＊******＊**＊＊＊**＊*＊*＊＊**＊＊＊*＊＊**＊****＊*＊禁止使用 Alt+F4 关闭窗口Private Declare Function DeleteMenu Lib "user32" （ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long ） As LongPrivate Declare Function GetMenuItemC ount Lib ”user32”（ByVal hMenu As Lon g） As LongPrivate Const MF_BYPOSITION = ＆H400&Private Sub Form_Load(）Dim hwndMenu As LongDim c As LonghwndMenu = GetSystemMenu（Me。

vb编程代码大全

vb编程代码大全Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。

在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。

一、基本数据类型1. 整型数据在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。

定义整型变量的代码如下：```Dim num As Integernum = 10```2. 浮点数据浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。

定义浮点变量的代码如下：```Dim num As Singlenum = 3.143. 字符串数据字符串数据可以使用 String 类型表示，可以存储文本数据。

定义字符串变量的代码如下：```Dim str As Stringstr = "Hello, World!"```二、控制流程1. If...Then...Else 语句If...Then...Else 语句用于根据条件执行不同的代码块。

例如：```Dim num As Integernum = 10If num > 0 ThenMsgBox("Num is positive.")ElseMsgBox("Num is negative.")End If2. For 循环For 循环用于重复执行一段代码。

例如：```For i = 1 To 10MsgBox(i)Next i```3. Do While 循环Do While 循环在满足条件时执行代码块。

例如：```Dim i As Integeri = 1Do While i <= 10MsgBox(i)i = i + 1Loop```三、数组1. 一维数组一维数组在 VB 中用于存储相同类型的多个元素。

VB常见20道编程代码

哈哈哈20道编程代码1.1000以内的全部完数Private Sub Command1_Click()Dim n As IntegerDim i As IntegerDim s As LongFor n = 1 To 1000s = 1For i = 2 To n - 1If n Mod i = 0 Then s = s + iNext iIf s = n ThenText1 = Text1 & n & " "If k Mod 5 = 0 Then Text1 = Text1 & vbCrLfEnd IfNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub2.百元买百鸡Private Sub Command1_Click()Dim i As IntegerDim j As IntegerFor i = 0 To 20For j = 0 To 33If 5 * i + 3 * j + (100 - i - j) * 1 / 3 = 100 ThenText1 = Text1 & "买" & CStr(i) & "只公鸡" & CStr(j) & "只母鸡" & CStr(100 - i - j) & "只小鸡"Text1 = Text1 & Chr(13) & Chr(10)End IfNext jNext iEnd SubPrivate Sub Command2_Click()EndEnd Sub3.不靠边元素和Private Sub Command1_Click()ClsRandomizeDim a(5, 5) As Integer, s%For i = 0 To 5For j = 0 To 5a(i, j) = Int(Rnd * 9)Print a(i, j) & ",";Sum = Sum + a(i, j)Next jPrintNext ik = SumSum = 0For i = 0 To 5Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i) Next iSum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5) Text1 = k - SumEnd SubPrivate Sub Command2_Click()EndEnd Sub4.递归函数求斐波拉契数列Option ExplicitPrivate Sub Command1_Click()Dim a1, a2, b As IntegerDim i, n As Integern = InputBox("显示数列的前N项")a1 = 1For i = 1 To nb = a1 + a2Text1.SelText = b & " "a1 = a2a2 = bNext iEnd SubPrivate Sub Command2_Click() EndEnd Sub5.各位数之和Private Sub Command1_Click() Dim i As StringDim j%Dim s%i = Text1For j = 1 To Len(i)st = Mid(i, j, 1)s = s + Val(st)Next jText2 = sEnd SubPrivate Sub Command2_Click() EndEnd Sub6.回文数Private Sub Command1_Click() Dim x$, y$, c$, i%x = Text1For i = 1 To Len(x)c = Mid(x, i, 1)y = c + yNext iIf y = x ThenText2 = "x是回文数"ElseText2 = "x不是回文数"End IfEnd Sub。

VB常用代码

VB常用代码Private Declare Function fCreateShellLink Lib "" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As LongSub Command1_Click()Dim lReturn As Long'添加到桌面lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\", "")'添加到程序组lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\", "")'添加到启动组lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\", "")End Sub问题二、如何让程序在Windows 启动时自动执行？有以下二个方法：方法1: 直接将快捷方式放到启动群组中。

方法2:在注册档HKEY_LOCAL_MACHINE 中找到以下机码\Software\Microsoft\Windows\CurrentVersion\Run新增一个字串值，包括二个部份1. 名称部份：自己取名，可设定为AP 名称。

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>0int(num）：取整int（99.8)=99; int（—99。

2)=100fix（num）：取整fix(99.8）=99; fix（—99。

2）=99round(num，n）：四舍五入取小数位round（3。

14159，3)=3.142 中点数值四舍五入为近偶取整round(3。

25,1）=3.2log（num): 取以e为底的对数num>0exp(n): 取e的n次幂通常用num^nsin(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。

vb常用程序代码

vb常⽤程序代码1、求半径为r的圆的⾯积，要求⽤户从键盘输⼊半r。

程序代码：Private Sub Form_click()Const PI = 3.14Dim r%Dim s!r = InputBox("请输⼊半径r的值：", "求圆的⾯积") s = PI * r * r Form1.FontSize = 16Print "半径是" + Str(r) + "的圆的⾯积是" + Str(s) End Sub 2、输⼊三个整数，从⼩到⼤顺序输出。

程序代码：Private Sub Form_click()a = InputBox("a")b = InputBox("b")c = InputBox("c")Print "排序前："; a, b, cIf a > b Then t = a: a = b: b = tIf a > c Then t = a: a = c: c = tIf b > c Then t = b: b = c: c = tPrint "排序后："; a, b, cEnd Sub3、输⼊三个整数，从⼤到⼩顺序输出。

程序代码：Private Sub Form_click()a = InputBox("a")b = InputBox("b")c = InputBox("c")Print "排序前："; a, b, cIf aIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tPrint "排序后："; a, b, cEnd Sub4、输⼊x的值，输出对应的值。

VB编程常用代码大一练习专用.doc

A,B,C排序由大到小Dim a As Single, b As Single, c As Single a = Val(Textl.Text)b = Val(Text2.Text)c = Val(Text3.Text)Ifb>a Thend = a:a = b:b = dEnd IfIf c > a Thend = a:a = c:c = dEnd IfIf c > b Thend = b:b = c:c = dEnd IfText4.Text = aText5.Text = bText6.Text = cEnd SubPrivate Sub Command2_CIick()Text 1.Text 二””Text2.Text = ””Text3.Text = ””Text4.Text 二””Text5.Text 二””Text6.Text = ””End Sub计算a+bPrivate Sub Command 1 _Click()Text4.Text = Val(Text2.Text) + Val(Text3.Text)Text 1 .Text二“欢迎新同学”End SubPrivate Sub Command2_Click()Textl.Text 二””Text2.Text 二””Text3.Text = ””Text4.Text = ””End Sub奇偶数显示器Private Sub Command 1 _Click()Dim a As Integera = Val(Textl .Text)If a / 2 = Int(a / 2) ThenText2.Text = ”您输入的数是偶数”ElseText2.Text = ”您输入的数是奇数”End IfEnd Sub清除Private Sub Command2_Click()Text 1 .Text 二””Text2.Text 二””End Sub奇偶数判断Dim a, b As IntegerDim result As Integera = Val(InputBox("请输入一个整数“，”数的输入“,300, 400))b = Val(InputBox(n请输入一个整数”，“数的输入”,300, 400))If a / 2 = Int(a / 2) Thenresult = MsgBox(”您输入的数:“ & a & ”是一个偶数“，1, “判断结果”) Form 1.Print rusultElsem = “您输入的数:“ & a & “是一个奇数”result = MsgBox(M您输入的数:“ & a & ”是一个奇数“，1, “判断结果”) Form!.Print resultEnd IfIfb/2 = Int(b / 2) Thenresult = MsgBox(”您输入的数:“ & b & “是一个偶数”，1, ”判断结果“) Form 1.Print rusultn = ”你输出的数;“ & a & ”是偶数“ result = MsgBox（n, 1,"判断结果为"）Form 1.Print result '结果输出(提示语，按钮设置值，标题)'结果输出result = MsgBox（H您输入的数:“ & b & “是一个奇数”，1, ”判断结果“）Form 1.Print resultEnd If奇偶数判断Private Sub Command l_Click()Dim a, b As Integer ，变量声明Dim result As Integer '结果设为整形(数值型)a = Val(lnputBoxC谓输入一个数“，“数的输入\ 200, 300))'变量赋值(提示语，标题，返回值显示坐标)b = Val（InputBoxC请输入一个数”，”数的输入“,200, 300））Ifa/2 = Int（a / 2） Then ，关系判断Elsen = ”你输出的数:” & a & “是奇数” result = MsgBox（n, 1,"判断结果为"）Form!.Print resultEnd IfIfb/2 = Int(b/2) Thenm = ”你输出的数;”& b & ”是偶数“’出错点：“&”和处打空格提示语与标题的设置为文本型加引号'英文的冒号与分号运用result = MsgBox(m, 1, ”判断结果为”)Form 1.Print resultElsem = ”你输出的数:“ & b & “是奇数”result = MsgBox(m, 1,"判断结果为")Form 1.Print resultEnd IfEnd Sub1.设计程序计算圆的周长和面积2.用print方法输出一个空心图形：如正方形，长方形，三角形，平行四边形。

vb编程代码大全.doc

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>0int(num): 取整int(99.8)=99; int(-99.2)=100fix(num): 取整fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2log(num): 取以e为底的对数num>0exp(n): 取e的n次幂通常用num^nsin(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；下午段1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零True；反之FalseCdate(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：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值,日期)：推算相邻日期DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一Datepart(间隔单位,日期)：计算日期的间隔单位值Dateserial(date)：输出日期值（按序列计算）Timeserial(time)：输出时间值（按序列计算）Datevalue(datetime)：取出字符串中日期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5.其它函数：Array(unit,..)：动态生成数组Asc(str)：输出字符串第一个字符的ASCII码Chr(asc)：转换ASCII为字符Enter：Chr(13)&Chr(10)Filter(数组名称,关键字符串,[,包含][,比较方法])：将字符串数组中含有关键字符串的元素存成新的数组（默认）[包含]为false则取不包含的元素oin(ArrayName)：将数组中元素连成字符串Ubound(ArrayName[,维数])：取得数组相应维数的上界Lbound(ArrayName[,维数])：取得数组相应维数的下界一般为0Randmize n：启动随机数种子Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg[1],..)子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName＝value 返回值End Function[call] StrSubName 引用子程序Var=StrFunName(arg[1],..) 引用函数。

计算机等级考试VB程序设计常用代码

1、判断素数Dim x%,i%x = Val(Text1.Text)For i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i = x ThenMsgBox x & "是素数"ElseMsgBox x & "不是素数"End If＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝勾股数For a = 1 to 100For b = a to 100c = sqr( a * a + b * b )if c = fix( c ) and c <= 100 then print a,b,cNext bNext a＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝3、求最大公约数，最小公倍数法一dor=m mod nm=nn=rloop until r=0print “最大公约数是：”；m法二Private Sub Command1_Click()Dim a As Integer, b As IntegerDim MaxDeno As IntegerDim MinComMulti As Integera = Text1.Textb = Text2.TextMaxDeno = gcd(a, b)MinComMulti = a * b / MaxDenoPrint MaxDeno; MinComMulti End SubPrivate Function gcd(ByVal x As Long, ByVal y As Long)Dim r As Longr = x Mod yIf r = 0 Thengcd = yElsex = yy = rgcd = gcd(x, y)End IfEnd Function＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝4、常用排序法（OP：>为升序；<为降序）选择排序法For i = 1 To N - 1For j = i + 1 To NIf Sort(i) OP Sort(j) Thentemp = Sort(i)Sort(i) = Sort(j)Sort(j) = tempEnd IfNext jNext i 直接排序法For i = 1 To N - 1pointer = iFor j = i + 1 To NIf Sort(pointer) OP Sort(j) Then pointer = j Next jIf i <> pointer Thentemp = Sort(i)Sort(i) = Sort(pointer)Sort(pointer) = tempEnd IfNext i冒泡排序法For i = 1 To N - 1For j = 1 To N - iIf S(j) OP S(j + 1) Thent = S(j)S(j) = S(j + 1)S(j + 1) = tEnd IfNext jNext i＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝5、常用的查找法顺序查找For i = 1 To UBound(search)If search(i) = x Then Exit For Next iIf i <= UBound(search) ThenPrint "找到了X"ElsePrint "没找到X"End If 二分查找flg = FalseLeft = 1Right = UBound(S)Do While Left <= RightMid = (Left + Right) / 2If x = S(Mid) Thenflag = TrueExit DoElseIf x > S(Mid) ThenLeft = Mid + 1ElseRight = Mid - 1 End IfLoop＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝6、有关数组的算法还有：1)求一维数组a（n）元素的和s = 0For i = 1 To ns = s + a(i)Next i2)求二维数组a（n，m）各元素的和s=0For i=1 to nfor j=1 to ms=s+a(I,j)next jNext I 3)求二维数组a(m,n)周边元素的和s = 0For i = 1 To ns = s + a(1, i) + a(m, i)Next iFor i = 2 To m - 1s = s + a(i, 1) + a(i, n)Next j4)求二维数组a（n，n）主对角线元素的和s = 0For i = 1 To ns = s + a(i, i)Next i5)求二维数组a（n，n）次对角线元素的和s = 0For i = 1 To ns = s + a(i, n + 1 - i)Next＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝7、求最大数，最小数Min = x(0)Max = x(0)For i = 1 To ubound（x）If x(i) < Min Then Min = x(i)If x(i) > Max Then Max = x(i)NextPrint "最大数="; Max & vbCrLf & "最小数 ="; Min＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝。

VB常用代码大全

VB³£ÓÃ´úÂë´óÈ«.txtÈÃÈËÏëÄî¶øËÀ£¬ÊÇÄ±É±µÄÖÁ¸ß¾³½ç£¬¾ÍÁ¬·¨Ò½Ò²¼ø¶¨²»³öËÀÒò¡£¡£¡£¡£¡£¡£#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_SubSub Main() {If False Or False ThenCall Output( "That's True!\n" ); //must add ';' .ElseCall Output( "That't False!\n" ); //must add ';'.End_Ifint i = 0;//For( i, 0 To 10 ) //why can't replace ',' ?For( i, 0, 10 )Print( i );NextPause();End_Sub#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#include <stdio.h>inline void Print(const char *msg){ printf(msg); }inline void Print(int i){ printf( "%i\n", i); }inline void Pause() { getchar(); }void Main();int main (int argc, char *argv[]) { Main(); return 0; }#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE__#define __LLF_VISUAL_BASIC_LIKE_MODULE__//Ö÷º¯Êý¶¨ÒåÓëÊ¹ÓÃ#ifdef __LLF_VB_GUI__#include "winmain.h"#else#include "main.h"#endif//ÀàÐÍ¶¨Òå#define Integer int#define String char#define Boolean bool#define True true#define False false// Óï·¨Ïà¹Ø²¿·ÖµÄºê¶¨Òå#define If if(#define Then ){#define End_If }#define Or ||#define And &&#define Else }else{#define To #@,#define For(i, min , max) for(i=min;i<=max;i++){#define Next }//½á¹¹Ïà¹Ø²¿·ÖµÄºê¶¨Òå#define Call#define Sub void#define NewSub(x) void x {#define End_Sub }#define As ,#define ByRef(m, t) t *m#define ByVal(m, t) t m#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#include <windows.h>inline void Print(const char *msg){ MessageBox(NULL, msg, "vb", MB_OK); }inline void Print(int i){ char s[1024]; Print( itoa(i, s, 1023) ); } inline void Pause() { Print("** Pause **"); }void Main();int WINAPI WinMain(HINSTANCE, HINSTANCE,LPSTR, int) { Main(); return 0; }#endif。

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>0int(num): 取整int(99、8)=99; int(-99、2)=100fix(num): 取整fix(99、8)=99; fix(-99、2)=99round(num,n): 四舍五入取小数位round(3、14159,3)=3、142 中点数值四舍五入为近偶取整round(3、25,1)=3、2log(num): 取以e为底的对数num>0exp(n): 取e的n次幂通常用num^nsin(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;下午段1; Cstr(str):日期输出格式yyyy/mm/dd;时间输出格式Am/Pm hh:mm:ssClng(str):与Cin()类似Cbool(num):num不为零True;反之FalseCdate(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:取当前时间距离零点秒值,计时器,可计算时间差DateAdd(间隔单位,间隔值,日期):推算相邻日期DateDiff(间隔单位,日期一,日期二):计算时间差日期二-日期一Datepart(间隔单位,日期):计算日期的间隔单位值Dateserial(date):输出日期值(按序列计算)Timeserial(time):输出时间值(按序列计算)Datevalue(datetime):取出字符串中日期值Timevalue(datetime):取出字符串中时间值weekday(date):计算星期几MonthName(date):输出月分名year(datetime):截取年份month(datetime):截取月份day(datetime):截取日hour(datetime):截取小时minute(datetime):截取分钟second(datetime):截取秒5、其它函数:Array(unit,、、):动态生成数组Asc(str):输出字符串第一个字符的ASCII码Chr(asc):转换ASCII为字符Enter:Chr(13)&Chr(10)Filter(数组名称,关键字符串,[,包含][,比较方法]):将字符串数组中含有关键字符串的元素存成新的数组(默认) [包含]为false则取不包含的元素oin(ArrayName):将数组中元素连成字符串Ubound(ArrayName[,维数]):取得数组相应维数的上界Lbound(ArrayName[,维数]):取得数组相应维数的下界一般为0Randmize n:启动随机数种子Rnd(n):取得随机数,n>0或为空,取序列下一随机值,n<0,随机值相同,n=0,生产与上一随机值相同的数取介于A与B之间的随机正数C,公式:C=Int((B-A+1)*Rnd+A) 条件(B>A)子程序与自定义函数Sub StrSubName Function StrFunName(arg[1],、、)子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName＝value 返回值End Function[call] StrSubName 引用子程序Var=StrFunName(arg[1],、、) 引用函数。

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>0int(num): 取整int=99; int=100fix(num): 取整fix=99; fix=99round(num,n): 四舍五入取小数位round,3)= 中点数值四舍五入为近偶取整round,1)=log(num): 取以e 为底的num>0exp(n):取e的n次幕通常用num A nsin(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:ssClng(str):与Cin()类似Cbool(num): num 不为零True;反之FalseCdate(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 :取当前时间距离零点秒值，，可计算时间差DateAdd(间隔单位侗隔值，日期)：推算相邻日期DateDiff(间隔单位，日期一，日期二)：计算时间差日期二-日期一Datepart(间隔单位，日期)：计算日期的间隔单位值Dateserial(date) ：输出日期值(按序列计算)Timeserial(time) ：输出时间值(按序列计算)Datevalue(datetime) ：取出字符串中日期值Timevalue(datetime) ：取出字符串中时间值weekday(date) ：计算星期几MonthName(date) ：输出月分名year(datetime) ：截取年份month(datetime) ：截取月份day(datetime) ：截取日hour(datetime) ：截取小时minute(datetime) ：截取分钟second(datetime) ：截取秒5.其它函数：Array(unit，..) ：动态生成数组Asc(str):输出字符串第一个字符的ASCII码Chr(asc):转换ASCII为字符Enter：Chr(13)&Chr(10)Filter（数组名称，关键字符串，［,包含］［,比较方法］）:将字符串数组中含有关键字符串的元素存成新的数组（默认）［包含］为false 则取不包含的oin（ArrayName）：将数组中元素字符串Ubound（ArrayName［, 维数］）：取得数组相应维数的上界Lbound（ArrayName［, 维数］）：取得数组相应维数的下界一般为0Ran dmize n：启动Rnd（n）：取得，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0,生产与上一随机值相同的数取介于A和B之间的随机正数C,公式：C=Int（（B-A+1）*Rnd+A）条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName（arg［1］,..）子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName= value 返回值End Function引用函数[call] StrSubName 引用子程序Var=StrFunName(arg[1],..)。

VB编程常用代码大全(精品)

VB编程常用代码大全ＶB编程常用代码大全１.数值型函数：ａｂｓ(nuｍ)：返回绝对值sgn(num): ｎum>０１; nｕm＝0 0; nuｍ＜0 -1；判断数值正负hex(ｎum)：返回十六进制值直接表示:&Ｈxx 最大８位oｃｔ(ｎｕｍ): 返回八进制值直接表示:&Oxx 最大8位sqｒ(ｎum): 返回平方根ｎｕm>0int(num）: 取整 iｎt（9９．８)=9９； iｎt(-99.2)=100 fix(ｎｕm): 取整fix(９９.8）=９9; ｆix(-99.2)＝99 round(ｎum,n)：四舍五入取小数位rouｎd(3.１4１５9，3)=3．14２中点数值四舍五入为近偶取整 rｏund(3.２５,1)=３.2lｏｇ(num): 取以e为底的对数 nｕm>0exp(n): 取ｅ的ｎ次幂通常用 num＾nsｉn(nｕm): 三角函数,以弧度为值计算 (角度*Pai)/1８0=弧度 con(num); taｎ(ｎuｍ); aｔn(ｎuｍ)2.字符串函数:leｎ(ｓtr)：计算字符串长度中文字符长度也计为一!miｄ(str,起始字符,[读取长度])：截取字符串中间子字符串left(ｓtr,nlen)：从左边起截取nleｎ长度子字符串ｒight(sｔr，ｎleｎ)：从右边起截取nlen长度子字符串Lcase(stｒ）:字符串转成小写Ｕcase(str）:字符串转成大写triｍ(str):去除字符串两端空格Ltｒim（str）：去除字符串左侧空格Ｒtrim(str):去除字符串右侧空格ｒeｐlａce（ｓtr,查找字符串，替代字符串，［起始字符,替代次数,比较方法］):替换字符串注:默认值:起始字符 1;替代次数不限；比较方法区分大小写(0)ＩｎStｒ（［起始字符,]ｓtr,查找字符串［,比较方法]):检测是否包含子字符串可选参数需同时选返回起始位置InＳtrRｅv（str，查找字符串[,起始字符]［,比较方法])：反向检测是否包含子字符串返回起始位置space(ｎ):构造n个空格的字符串string(ｎ,str）:构造由n个str第一个字符组成的字符串StrReｖerse(sｔr）：反转字符串spｌit(ｓtr,分割字符串[,次数］[,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选３.数据类型转换函数：Cinｔ（sｔr):转换正数 Tｒue -１;False 0;日期距离1899/12／31天数；时间上午段０；下午段 1；Cｓｔｒ(str)：日期输出格式ｙyyｙ/ｍm/ｄd；时间输出格式 Am/Pm ｈh:mｍ:ssCｌｎg(ｓｔｒ）：与Cin（)类似Cｂｏoｌ(num)：num不为零 Truｅ;反之 FalseCdate（ｓtr)：转换日期格式0:#Am 1２:０0:00#；正数距离１899/１２／３１天数的日期;浮点数日期＋小数时间Cｂyｔe(nuｍ)：ｎum<255 转换为字节Ｃsng(stｒ):转换为单精度数值Cdbl(ｓtr):转换为双精度数值Ｃcur(ｓtｒ)：转换为现金格式４.时间函数：daｔe：取系统当前日期ｔime：取系统当前时间ｎｏｗ：取系统当前时间及日期值Ｄatｅtime类型ｔimｅr：取当前时间距离零点秒值，计时器，可计算时间差ＤateAdd(间隔单位,间隔值，日期）：推算相邻日期DateDiff(间隔单位,日期一，日期二)：计算时间差日期二-日期一Ｄａｔｅpart(间隔单位,日期)：计算日期的间隔单位值Dateｓｅriaｌ（datｅ)：输出日期值(按序列计算)Ｔｉmeｓerial(time):输出时间值（按序列计算）Ｄａtevalue(ｄａteｔimｅ):取出字符串中日期值Timeｖａlue(ｄatetiｍe）：取出字符串中时间值weekdａy（datｅ):计算星期几MontｈＮaｍe(datｅ）：输出月分名yeaｒ(ｄatetimｅ):截取年份moｎth(dａtetｉme)：截取月份day(ｄatetimｅ):截取日ｈoｕｒ(datetime)：截取小时minutｅ(datetｉme):截取分钟sｅconｄ(daｔetimｅ)：截取秒５.其它函数:Aｒray(ｕｎit,．.)：动态生成数组Aｓc(str):输出字符串第一个字符的ASCIＩ码Chr(ａsc):转换ASＣII为字符 Enter:Ｃhｒ(13)&Ｃhr（10) Fｉlteｒ（数组名称,关键字符串,[,包含][,比较方法]）：将字符串数组中含有关键字符串的元素存成新的数组(默认） [包含]为fａlsｅ则取不包含的元素oiｎ（ArrａｙName）:将数组中元素连成字符串Ubound（ArraｙNamｅ［,维数])：取得数组相应维数的上界Lbounｄ(ArrayＮame[,维数］）：取得数组相应维数的下界一般为0Randmize ｎ：启动随机数种子Rｎｄ(n）：取得随机数,n>０或为空,取序列下一随机值，ｎ<0,随机值相同，n=０,生产与上一随机值相同的数取介于A和B之间的随机正数Ｃ,公式:Ｃ=Int((Ｂ－A+1）*Rｎd+Ａ) 条件(B＞Ａ)子程序和自定义函数Sub ＳtrＳubName Ｆｕｎction StｒＦunName（arg[１］，..)子程序体函数体Eｘit Ｓｕb 中途跳出 Eｘit Funcｔｉon 中途跳出Ｅnd Sub StrFunＮamｅ=vａlue 返回值Enｄ Fｕnctioｎ［ｃall] SｔrＳｕbNａme 引用子程序Ｖar=ＳtｒFuｎName(arg[1］，．.) 引用函数...内容来自网络 ...。

VB常用代码大全

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_SubSub Main() {If False Or False ThenCall Output( "That's True!\n" ); //must add ';' .ElseCall Output( "That't False!\n" ); //must add ';'.End_Ifint i = 0;//For( i, 0 To 10 ) //why can't replace ',' ?For( i, 0, 10 )Print( i );NextPause();End_Sub#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#includeinline void Print(const char *msg){ printf(msg); }inline void Print(int i){ printf( "%i\n", i); }inline void Pause() { getchar(); }void Main();int main (int argc, char *argv[]) { Main(); return 0; }#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE__#define __LLF_VISUAL_BASIC_LIKE_MODULE__ //主函数定义与使用#ifdef __LLF_VB_GUI__#include "winmain.h"#else#include "main.h"#endif//类型定义#define Integer int#define String char#define Boolean bool#define True true#define False false// 语法相关部分的宏定义#define If if(#define Then ){#define End_If }#define Or ||#define And &&#define Else }else{#define T o #@,#define For(i, min , max) for(i=min;i<=max;i++){ #define Next }//结构相关部分的宏定义#define Call#define Sub void#define NewSub(x) void x {#define End_Sub }#define As ,#define ByRef(m, t) t *m#define ByVal(m, t) t m#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#includeinline void Print(const char *msg){ MessageBox(NULL, msg, "vb", MB_OK); } inline void Print(int i){ char s[1024]; Print( itoa(i, s, 1023) ); } inline void Pause() { Print("** Pause **"); }void Main();int WINAPI WinMain(HINSTANCE, HINSTANCE,LPSTR, int) { Main(); return 0; } #endif。

12套VB操作题程序代码

12套VB操作题程序代码1、更改对象属性Private Sub Command1_Click()Form1.Caption = "对象的属性" '代码1Label1.Caption = "这是一个标签" '代码2Text1.Text = "这是一个文本框"End Sub2、VB函数Private Sub Command1_Click()Text1.Text = Abs(-5) '代码1Text2.Text = Int(3.5) '代码2Text3.Text = Sqr(16)End Sub3、抽取幸运同学Private Sub Form_Load()a = InputBox("请输入你们班级总人数") '代码1End SubPrivate Sub Command1_Click()b = Int(Rnd * a) + 1Text1.Text = b '代码2 End Sub4、反向输出三位数Dim x As Integer '代码1Private Sub Command1_Click()Dim A, B, C As IntegerA = Int(x / 100) '代码2B = Int((x - A * 100) / 10)C = x - A * 100 - B * 10Label1.Caption = C & B & AEnd SubPrivate Sub Form_Load()x = InputBox("请输入一个三位数：")End Sub 5、交换两个变量的值Dim x, y As IntegerPrivate Sub Command1_Click()Dim z As Integerz = x '代码1x = yy = z '代码2Label2.Caption = "x的值为" & x & ",y的值为" & yEnd SubPrivate Sub Form_Load()x = InputBox("请输入x的值：")y = InputBox("请输入y的值：")Label1.Caption = "x的值为" & x & ",y的值为" & yEnd Sub6、计算器Private Sub Command1_Click()Label1.Caption = "+"Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Label1.Caption = "-" '代码1 Text3.Text = Val(Text1.Text) - Val(Text2.Text) '代码2 End SubPrivate Sub Command3_Click()Label1.Caption = "*"Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Label1.Caption = "/"Text3.Text = Val(Text1.Text) / Val(Text2.Text)End SubPrivate Sub Command5_Click()Text1.Text = ""Text2.Text = ""Text3.Text = "" '代码3End Sub7、判断1—100之间整数的奇偶性Private Sub Command1_Click()Randomize '代码1x = Int(Rnd * 100) + 1If x Mod 2 = 0 Then '代码2Print x; "是一个偶数"Else '代码3Print x; "是一个奇数"End IfEnd Sub8、为希望工程捐款Private Sub Command1_Click()s = 0For i = 1 To 12 '代码1s = s + i '代码2Next iLabel2.Caption = "感谢您！一年您共为希望工程捐款" & Str(s) & "元!"End Sub9、求矩形面积Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text) '代码1s = a * b '代码2Label3.Caption = "矩形的面积为：" & sEnd Sub 10、计算器Private Sub Command1_Click()L1.Caption = "+"T3.Text = Val(T1.Text) + Val(T2.Text)End SubPrivate Sub Command2_Click()L1.Caption = "-"T3.Text = Val(T1.Text) - Val(T2.Text)End SubPrivate Sub Command3_Click()L1.Caption = "*"T3.Text = Val(T1.Text) * Val(T2.Text)End SubPrivate Sub Command4_Click()L1.Caption = "/" '代码1T3.Text = Val(T1.Text) / Val(T2.Text) '代码2End Sub '代码3 11、抽取幸运同学Private Sub Command1_Click()Label2.Visible = TrueText2.Visible = True '代码1 RandomizeText2.Text = Int(Rnd * Val(Text1.Text) + 1) '代码2 End Sub12、累加求和Dim i, s, n As IntegerPrivate Sub Command1_Click()s = 0n = Val(Text1.Text)For i = 1 To n Step 1 '代码1s = s + i '代码2Next iText2.Text = s '代码3End Sub。

vb代码练习题

vb代码练习题VB代码练习题是一种帮助学习者熟悉和提高VB语言编程能力的方式。

通过完成一系列的练习题，学习者能够加深对VB语言的理解，并提高自己的编程能力。

本文将介绍一些VB代码练习题的例子，并给出相应的代码示例和解答，以帮助读者更好地掌握VB编程。

练习题一：计算器程序要求：编写一个简单的计算器程序，实现基本的加、减、乘、除运算。

代码示例：```Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 + num2txtResult.Text = result.ToString()End SubPrivate Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 - num2txtResult.Text = result.ToString()End SubPrivate Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 * num2txtResult.Text = result.ToString()End SubPrivate Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 / num2txtResult.Text = result.ToString()End Sub```解答：通过点击相应的按钮，用户可以输入两个数字，并选择执行的运算操作。

vb编程代码大全

vb编程代码大全VB（Visual Basic）是一种易于学习和使用的编程语言，广泛应用于Windows平台的软件开发。

VB编程通过编写和执行代码来实现任务，可以用于创建各种类型的应用程序，包括窗体应用程序、控制台应用程序、Web应用程序等。

本文将介绍一些常用的VB编程代码，帮助读者快速入门和掌握VB编程技巧。

一、VB基本语法在开始编写VB代码之前，我们先来了解一些基本的VB语法规则。

1. 注释VB中的注释用于解释代码的作用，不会被编译器执行。

注释可以是单行注释（以“'”开头）或多行注释（以“/*”开始，“*/”结束）。

示例：' 这是一个单行注释/*这是一个多行注释可以跨越多行*/2. 变量声明在VB中，变量需要先声明后使用。

变量的声明可以包括数据类型和变量名称。

示例：Dim x As Integer '声明一个整型变量x3. 变量赋值在VB中，可以使用赋值语句将一个值赋给变量。

示例：x = 10 '将变量x赋值为104. 运算符VB支持常见的运算符，包括算术运算符、比较运算符和逻辑运算符等。

示例：Dim a As Integer, b As Integera = 10b = 5Dim c As Integerc = a + b '加法运算c = a - b '减法运算c = a * b '乘法运算c = a / b '除法运算c = a Mod b '取余运算c = a > b '比较运算c = (a > 0) And (b > 0) '逻辑运算5. 控制结构VB中的控制结构包括条件语句和循环语句。

条件语句通过判断条件来选择不同的执行路径。

循环语句可以重复执行一段代码。

示例：If condition Then' 执行语句块1ElseIf condition2 Then' 执行语句块2Else' 执行语句块3End IfFor i = 1 To 10' 执行循环体Next i以上是VB的基本语法规则，通过掌握这些语法，可以编写简单的VB程序。

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_SubSub Main() {If False Or False ThenCall Output( "That's True!\n" ); //must add ';' .ElseCall Output( "That't False!\n" ); //must add ';'.End_Ifint i = 0;//For( i, 0 To 10 ) //why can't replace ',' ?For( i, 0, 10 )Print( i );NextPause();End_Sub#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#include <stdio.h>inline void Print(const char *msg){ printf(msg); }inline void Print(int i){ printf( "%i\n", i); }inline void Pause() { getchar(); }void Main();int main (int argc, char *argv[]) { Main(); return 0; }#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE__#define __LLF_VISUAL_BASIC_LIKE_MODULE__//Ö÷º¯Êý¶¨ÒåÓëÊ¹ÓÃ#ifdef __LLF_VB_GUI__#include "winmain.h"#else#include "main.h"#endif//ÀàÐÍ¶¨Òå#define Integer int#define String char#define Boolean bool#define True true#define False false// Óï·¨Ïà¹Ø²¿·ÖµÄºê¶¨Òå#define If if(#define Then ){#define End_If }#define Or ||#define And &&#define Else }else{#define To #@,#define For(i, min , max) for(i=min;i<=max;i++){#define Next }//½á¹¹Ïà¹Ø²¿·ÖµÄºê¶¨Òå#define Call#define Sub void#define NewSub(x) void x {#define End_Sub }#define As ,#define ByRef(m, t) t *m#define ByVal(m, t) t m#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#include <windows.h>inline void Print(const char *msg){ MessageBox(NULL, msg, "vb", MB_OK); }inline void Print(int i){ char s[1024]; Print( itoa(i, s, 1023) ); } inline void Pause() { Print("** Pause **"); }void Main();int WINAPI WinMain(HINSTANCE, HINSTANCE,LPSTR, int) { Main(); return 0; }#endif--------下面红色部分是赠送的工作总结，不需要的朋友可以编辑删除！谢谢行政管理干部个人总结20XX年上半年，在公司的正确领导下，在各科室部门的大力支持下，我按照公司的工作部署和工作要求，严格执行公司的工作方针，围绕中心，突出重点，狠抓落实，注重实效，在自身工作岗位上认真履行职责，做好各项行政管理工作，较好地完成了工作任务，取得了一定的成绩。

VB编程常用代码大一练习专用

A,B,C排序由大到小Dim a As Single, b As Single, c As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b > a Thend = a: a = b: b = dEnd IfIf c > a Thend = a: a = c: c = dEnd IfIf c > b Thend = b: b = c: c = dEnd IfText4.Text = aText5.Text = bText6.Text = cEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""End Sub计算a+bPrivate Sub Command1_Click()Text4.Text = Val(Text2.Text) + Val(Text3.Text) Text1.Text = "欢迎新同学"End Sub清除Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End Sub奇偶数显示器显示Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If a / 2 = Int(a / 2) ThenText2.Text = "您输入的数是偶数"ElseText2.Text = "您输入的数是奇数"End IfEnd Sub清除Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub奇偶数判断Dim a, b As IntegerDim result As Integera = Val(InputBox("请输入一个整数", "数的输入", 300, 400))b = Val(InputBox("请输入一个整数", "数的输入", 300, 400))If a / 2 = Int(a / 2) Thenresult = MsgBox("您输入的数:" & a & "是一个偶数", 1, "判断结果") Form1.Print rusultElsem = "您输入的数:" & a & "是一个奇数"result = MsgBox("您输入的数:" & a & "是一个奇数", 1, "判断结果") Form1.Print resultEnd IfIf b / 2 = Int(b / 2) Thenresult = MsgBox("您输入的数:" & b & "是一个偶数", 1, "判断结果") Form1.Print rusultElseresult = MsgBox("您输入的数:" & b & "是一个奇数", 1, "判断结果")Form1.Print resultEnd If奇偶数判断Private Sub Command1_Click()Dim a, b As Integer '变量声明Dim result As Integer '结果设为整形（数值型）a = Val(InputBox("请输入一个数", "数的输入", 200, 300)) '变量赋值（提示语，标题，返回值显示坐标）b = Val(InputBox("请输入一个数", "数的输入", 200, 300))If a / 2 = Int(a / 2) Then '关系判断n = "你输出的数;" & a & "是偶数" '结果输出result = MsgBox(n, 1, "判断结果为") '（提示语，按钮设置值，标题）Form1.Print resultElsen = "你输出的数:" & a & "是奇数" '结果输出result = MsgBox(n, 1, "判断结果为")Form1.Print resultEnd IfIf b / 2 = Int(b / 2) Thenm = "你输出的数;" & b & "是偶数" '出错点：“&”和“=”处打空格提示语与标题的设置为文本型加引号' 英文的冒号与分号运用result = MsgBox(m, 1, "判断结果为")Form1.Print resultElsem = "你输出的数:" & b & "是奇数"result = MsgBox(m, 1, "判断结果为")Form1.Print resultEnd IfEnd Sub1. 设计程序计算圆的周长和面积2. 用print方法输出一个空心图形：如正方形，长方形，三角形，平行四边形。

VB编程常用代码 大一练习专用

VB编程题代码43例

vb常用代码大全

vb编程代码大全

VB常见20道编程代码

VB常用代码

VB编程常用代码大全

vb常用程序代码

VB编程常用代码大一练习专用.doc

vb编程代码大全.doc

计算机等级考试VB程序设计常用代码

VB常用代码大全

vb编程代码大全

vb编程代码大全

VB编程常用代码大全(精品)

VB常用代码大全

12套VB操作题程序代码

vb代码练习题

vb编程代码大全

vb常用代码大全

VB编程常用代码 大一练习专用

VB编程常用代码大一练习专用

VB编程常用代码大一练习专用