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方法输出一个空心图形：如正方形，长方形，三角形，平行四边形。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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方法输出一个空心图形：如正方形，长方形，三角形，平行四边形。
3.一个笼子里鸡和兔，一共数得h个头、f只脚。
设计程序计算鸡和兔共有几只。
private sub Form_lond()Debug.Print5+7ClsCaption="用方print法输出"AutoRedraw=TruePrintFor i=1To5Print Tab(15-i);String(i,"●");Tab(30-i);String(i,"⊙")Next iFor j=1to5Print tab(15-(6-j));String(6-j,"●");Tab(30-(6-j));String((6-j),"⊙")Next jEnd sub打印一个三角形（金字塔）Private Sub Command1_Click()For i=1To Val(Text1.Text)Print Space(Val(Text1.Text-i)*3);For j=1To i*2-1Print"##";Next jPrintNext iEnd Sub４.其它图形如将Print“*”;语句改为IF Y=1Or Y=2*p-1Then Print p;Else Print“”;运行后则输出（图十一）。
如将Print“*”;语句改为Print5-Int((p+1)/2);运行后输出图十二。
鸡兔同笼Private Sub Command1_Click()Dim a,b As Integera=Val(Text3.Text)b=Val(Text4.Text)Text1.Text=(b-2*a)/2Text2.Text=(4*a-b)/2End Sub1．在代码中引用一个控件时，应使用控件的（b）属性。
A．Caption B．Name C．Text D．Index2．设变量x=4，y=-1，a=7，b=-8,下面表达式（a）的值为“假”。
A．x+a<=b-yB．x>0AND y<0C．a=b OR x>y D．x+y> a+b AND NOT(y<b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（c）。
A．（10，80）B．（10，81）C．[10，80]D．[10，81]4．函数Sgn(3.1416)的返回值是（c）。
A．-1B．0C．1D．以上都不对5．67890属于（d）类型数据。
A．整型B．单精度浮点数C．货币型D．长整型6．下列变量名中正确的是（d）。
A．3S B．Print C．Select MyName D．Select_17．下列赋值语句（a）是有效的。
A．sum=sum-sum B．x+2=x+2C．x+y=sum D．last=y/08．以下的控件或方法具有输入和输出双重功能的为（b）。
A．Print B．Textbox C．Optionbutton D．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（d）属性来实现。
A．Name B．ListIndex C．ListCount D．T ext10．下列代码的运行结果为（b）。
Private Sub command1_click()Dim m(10)For k=1To10m(k)=11-kNext kx=5Print m(2+m(x))End SubA．2B．3C．4D．5二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达式n Mod13=0And n Mod17=0。
2．代码窗口中有两个下拉列表框：左侧是列表框，右侧是过程列表框。
3．写出在字符串”Visual Basic6.0”中截取”Visual”的Basic表达式。
4．函数Len(“abcdef”)的返回值是。
5．设a=2，b=5，c=-2，d=100，则a>b>=c AND a<b>=d 的值为。
6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True来实现。
7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为。
8．要强制显式声明变量，使用__________语句完成。
9．在VB中，用户定义常量使用语句，声明变量使用语句。
三、将下列数学表达式转换为VB表达式。
（6分）1．a2+2ab+b2__________________________2．__________________________3．8exln10__________________________4．2sin(450)cos(450)_______________________________5．___________________________________________6．___________________________________________四、判断题，正确打“√”，错误打“×”（10分）1．在VB中，控件的事件只能通过用户的操作触发。