程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第6章实验答案.doc

《程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第6章实验答案.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实验6-1：OptionExplicit'变量强制说明语句ConstPIAsSingle=3.141593PrivateSubCmdCalculation_Click()DimrAsSingle,lAsSingle,sAsSingle'定义变量r=Val(Txtr.Text)'接收用户输入到文本框中的圆半径l=__2*PI*r_________'计算周长s=_PI*r*r__________'计算面积Txtl.Text=CStr(l)'输出结果Txts.Text=Cstr(s)_______________EndSubPrivateSubCmdClear_Click()Txtr.Text=""

2、'清空数据Txtl.Text=""Txts.Text=""Txtr.SetFocus'设置焦点，等待下一次输入EndSubPrivateSubCmdClose_Click()_____End__________'结束程序EndSub实验6-2：PrivateSubForm_Click()DimhAsInteger,fAsInteger,xAsInteger,yAsIntegerh=InputBox("鸡和兔的总头数H=:","鸡兔同笼")f=InputBox("鸡和兔的总脚数F=:","鸡兔同笼")x=(4*h-f)/2y=(f-2*h)/2MsgBox"笼中鸡数为"&x&vbCrLf&"笼中

3、兔数为"&yEndSub实验6-3：PrivateSubCommand1_Click()DimyAsInteger,fAsInteger,kAsIntegery=Val(Text1)-1f=y+Int(y/4)-Int(y/100)+Int(y/400)+1k=fMod7Text2=kEndSub实验6-4：PrivateSubCommand1_Click()'利用数学计算DimnAsInteger,n1AsstringDimaAsInteger,bAsInteger,cAsIntegern=Int(Rnd*(999-100+1)+100)a=n100b=(n-a*100)10c=nMod

4、10n1=c*100+b*10+aifc=0thenn1=0&n1MsgBox"逆序前的数是："&n&vbCrLf&"逆序后的数是："&n1,vbExclamation,"逆序"EndSubPrivateSubForm_Click()'利用字符串提取DimnAsInteger,n1AsIntegerDimaAsInteger,bAsInteger,cAsIntegern=Int(Rnd*(999-100+1)+100)a=Val(Left(CStr(n),1))b=Val(Mid(CStr(n),2,1))c=Val(Right(CStr(n),1))n1=c*100+b*10+aMsgBox

5、"逆序前的数是："&n&vbCrLf&"逆序后的数是："&n1,vbExclamation,"逆序"EndSub实验6-5：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)r=InputBox("请输入圆的半径","画圆")Circle(X,Y),rPrint"圆的半径为";r;"圆心位置为：(";X;",";Y;")"EndSub实验6-6：PrivateSubCommand1_Click()List1.AddItemText1Label2.Caption=List1.ListCountT

6、ext1=""Text1.SetFocusEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexLabel2.Caption=List1.ListCountEndSubPrivateSubCommand3_Click()List1.ClearLabel2.Caption=""EndSub