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

A,B,C排序由大到小DimaAsSingle,bAsSingle,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)IfbaThend=a:a=b:b=dEndIfIfcaThend=a:a=c:c=dEndIfIfcbThend=b:b=c:c=dEndIfText4.Text=aText5.Text=bText6.Text=cEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=EndSub计算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奇偶数显示器显示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(请输入一个整数,数的输入,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(您输入的数:&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,判断结果为)'（提示语，按钮设置值，标题）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.PrintresultEndIfEndSub1.设计程序计算圆的周长和面积2.用print方法输出一个空心图形：如正方形，长方形，三角形，平行四边形。3.一个笼子里鸡和兔，一共数得h个头、f只脚。设计程序计算鸡和兔共有几只。privatesubForm_lond()Debug.Print5+7ClsCaption=用方print法输出AutoRedraw=TruePrintFori=1To5PrintTab(15-i);String(i,●);Tab(30-i);String(i,⊙)NextiForj=1to5Printtab(15-(6-j));String(6-j,●);Tab(30-(6-j));String((6-j),⊙)NextjEndsub打印一个三角形（金字塔）PrivateSubCommand1_Click()Fori=1ToVal(Text1.Text)PrintSpace(Val(Text1.Text-i)*3);Forj=1Toi*2-1Print##;NextjPrintNextiEndSub４.其它图形如将Print“*”;语句改为IFY=1OrY=2*p-1ThenPrintp;ElsePrint“”;运行后则输出（图十一）。如将Print“*”;语句改为Print5-Int((p+1)/2);运行后输出图十二。printspace(10)+'*'printspace(9)+'**'printspace(8)+'**'printspace(7)+'**'printspace(6)+'**'printspace(5)+'**'printspace(4)+'**'printspace(3)+'**'printspace(2)+'**'printspace(1)+'**********'/*最笨的方法:)****************************/鸡兔同笼PrivateSubCommand1_Click()Dima,bAsIntegera=Val(Text3.Text)b=Val(Text4.Text)Text1.Text=(b-2*a)/2Text2.Text=(4*a-b)/2EndSub1．在代码中引用一个控件时，应使用控件的（b）属性。A．CaptionB．NameC．TextD．Index2．设变量x=4，y=-1，a=7，b=-8,下面表达式（a）的值为“假”。A．x+a=b-yB．x0ANDy0C．a=bORxyD．x+ya+bANDNOT(yb)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．3SB．PrintC．SelectMyNameD．Select_17．下列赋值语句（a）是有效的。A．sum=sum-sumB．x+2=x+2C．x+y=sumD．last=y/08．以下的控件或方法具有输入和输出双重功能的为（b）。A．PrintB．TextboxC．OptionbuttonD．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（d）属性来实现。A．NameB．ListIndexC．ListCountD．Text10．下列代码的运行结果为（b）。PrivateSubcommand1_click()Dimm(10)Fork=1To10m(k)=11-kNextkx=5Printm(2+m(x))EndSubA．2B．3C．4D．5二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达式nMod13=0AndnMod17=0。2．代码窗口中有两个下拉列表框：左侧是列表框，右侧是过程列表框。3．写出在字符串”VisualBasic6.0”中截取”Visual”的Basic表达式。4．函数Len(“abcdef”)的返回值是。5．设a=2，b=5，c=-2，d=100，则ab=cANDab=d的值为。6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True来实现。7．若要在一行书写多条语句，则各语句间应加分隔符，VisualBasic的语句分隔符为。8．要强制显式声明变量，使用__________语句完成。9．在VB中，用户定义常量使用语句，声明变量使用语句。三、将下列数学表达式转换为VB表达式。（6分）1．a2+2ab+b2__________________________2．__________________________3．8exln10__________________________4．2sin(450)cos(450)_______________________________5．___________________________________________6．___________________________________________四、判断题，正确打“√”，错误打“×”（10分）1．在VB中，控件的事件只能通过用户的操作触发。（）2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（）3．保存工程时，窗体文件和工程文件的文件名不能相同。（）4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。（）5．同一过程中，数组和简单变量可以同名。（）6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（）7．代码ConstNumber1=15：Number1=10合法。（）8．允许将块If-Then语句结构中的所有语句都写在一行上（）9．定义数组语句Dima(b)AsInteger是正确的（）10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（）五、根据题意，将下列程序补充完整。（16分）1．产生20个[10，100]之间的随机整数，每行输出10个数据。PrivateSubcommand1_click()Dima(1To20)AsIntegerRandomizei=0DoWhilei20i=i+1a(i)=()If（）ThenPrinta(i);EndIfIfi=10ThenPrinta(i)Ifi10ThenPrinta(i);LoopEndSub2．打印九九乘法表PrivateSubcommand1_click()Fori=1To9Forj=1To9Print（）NextjPrint（）EndSub3．判断一个数是否素数PrivateSubcommand1_click()x=InputBox(请输入一个整数)flag=1Fori=2To（)IfxModi=0Thenflag=0EndIfNextiIf（）ThenPrintx;是素数ElsePrintx;不是素数EndSub4．利用数组输出Fibonacci数列的前15项。该数列的第1项和第2项为1，其余各项均为其前两项之和。PrivateSubCommand1_Click()（）f(1)=1:f(2)=1List1.AddItemf(1):List1.AddItemf(2)Fori=3To15f(i)=（)List1.AddItemf(i)NextiEndSub六、写出下面程序的输出结果。（每题3分，共18分）1．PrivateSubcommand1_click()x=InputBox(enterx)'x的输入值为-8SelectCaseSgn(x)+2Case1Printy=;x^2+1Case2Printy=;x-4Case3Printy=;x^3+100EndSelectEndSub2．PrivateSubcommand1_click()Dima,b,c,d,eAsStringa=ZhengZhoub=ZhongYuanGongXueYuanc=a++bd=Left(a,1)+Mid(a,7,1)e=L