资源描述：
《VB编程常用代码 大一练习专用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、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 Then d = a: a = b: b = dEnd IfIf c > a Then d = a: a = c: c = dEnd IfIf c > b Then d = b: b = c: c = dEnd IfText4.Text = aText5.Text = bText6.Text = cEnd SubPrivate Sub Comma
2、nd2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""End Sub计算a+bPrivateSubCommand1_Click()Text4.Text=Val(Text2.Text)+Val(Text3.Text)Text1.Text="欢迎新同学"EndSub清除PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSub奇
3、偶数显示器显示PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)Ifa/2=Int(a/2)ThenText2.Text="您输入的数是偶数"ElseText2.Text="您输入的数是奇数"EndIfEndSub清除PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub奇偶数判断Dima,bAsIntegerDimresultAsIntegera=Val(InputBox("请输入一个整数","数的输入",300,400))b=Val(InputBox(
4、"请输入一个整数","数的输入",300,400))Ifa/2=Int(a/2)Thenresult=MsgBox("您输入的数:"&a&"是一个偶数",1,"判断结果")Form1.PrintrusultElsem="您输入的数:"&a&"是一个奇数"result=MsgBox("您输入的数:"&a&"是一个奇数",1,"判断结果")Form1.PrintresultEndIfIfb/2=Int(b/2)Thenresult=MsgBox("您输入的数:"&b&"是一个偶数",1,"判断结果")Form1.PrintrusultElseresult=MsgBox("您输入的数
5、:"&b&"是一个奇数",1,"判断结果")Form1.PrintresultEndIf奇偶数判断PrivateSubCommand1_Click()Dima,bAsInteger'变量声明DimresultAsInteger'结果设为整形（数值型）a=Val(InputBox("请输入一个数","数的输入",200,300))'变量赋值（提示语，标题，返回值显示坐标）b=Val(InputBox("请输入一个数","数的输入",200,300))Ifa/2=Int(a/2)Then'关系判断n="你输出的数;"&a&"是偶数"'结果输出result=MsgBox(n,1,"判
6、断结果为")'（提示语，按钮设置值，标题）Form1.PrintresultElsen="你输出的数:"&a&"是奇数"'结果输出result=MsgBox(n,1,"判断结果为")Form1.PrintresultEndIfIfb/2=Int(b/2)Thenm="你输出的数;"&b&"是偶数"'出错点：“&”和“=”处打空格提示语与标题的设置为文本型加引号'英文的冒号与分号运用result=MsgBox(m,1,"判断结果为")Form1.PrintresultElsem="你输出的数:"&b&"是奇数"result=MsgBox(m,1,"判断结果为")Form1.Pri
7、ntresultEndIfEndSub1.设计程序计算圆的周长和面积
2.用print方法输出一个空心图形：如正方形，长方形，三角形，平行四边形。
3.一个笼子里鸡和兔，一共数得h个头、f只脚。设计程序计算鸡和兔共有几只。
privatesubForm_lond()Debug.Print5+7ClsCaption="用方print法输出"AutoRedraw=TruePrintFori=1To5PrintTab(15-i);String(i,"●");Tab(30-i);String(i,"
