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中，控件的事件只能通过用户的操作触发。