資源描述：
《vb6-常用控件知識講解.ppt》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。
1、文本框的換行輸出:PrivateSubCommand1_Click()Fori=1To100step2text1=text1+format(str(i),”@@@”)Sum=Sum+iN=n+1Ifnmod5=0thentext1=text1+vbcrlfNextiText2=SumEndSub求階乘1!+2!+3!+……+10!的和PrivateSubCommand1_Click()p=1Fori=1To10p=p*iSum=Sum+pNextiPrint"1!+2!+3!+……+10!=";SumEndSubPrivateSubCommand1_C
2、lick()b=1:a=2:i=1Print"no.";i;"=";a;"/";bFori=2To20a=a+bb=a-bPrint"no.";i;"=";a;"/";bNextiEndSub例：輸入三角形的三條邊長，計算三 角形面積。界面PrivateSubCommand1_Click()A=Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)L=A+B>CAndB+C>AAndC+A>BIfLThenS=(A+B+C)/2Area=Sqr(S*(S-A)*(S-B)*(S-C))Text4.Text
3、=AreaElseText4.Text="不能構成三角形“EndIfEndSub?程序代碼?運行結果PrivateSubCommand1_Click()a=Val(Text1):b=Val(Text2):c=Val(Text3)L=a+b<=cOrb+c<=aOrc+a<=bIfLThenText4="不能構成三角形":ExitSubIfa<>bOrb<>cOrc<>aThenText4="一般三角形“Ifa=bOrb=cOrc=aThenText4="等腰三角形"Ifa=bAndb=cAndc=aThenText4="等邊三角形"S=(a+b+c)/
4、2Area=Sqr(S*(S-a)*(S-b)*(S-c))Text4.Text=AreaEndSub?界面設計(計算一元二次方程的實根）?代碼設計(計算一元二次方程的根）PrivateSubCommand1_Click()a=Val(Text1)b=Val(Text2)c=Val(Text3)d=b*b-4*a*cp=-b/(2*a)Ifd>0Thenr=Sqr(d)/(2*a)X1=p+rX2=p–rendifIfd=0ThenX1=p:X2=pIfd<0Thenq=Sqr(-d)/(2*a)p=CInt(p*100)/100q=CInt(q*10
5、0)/100X1=p&"+"&q&"I"X2=p&"-"&q&"I"endifText4.Text=X1Text5.Text=X2endsub?代碼設計方法二：(計算一元二次方程的根）PrivateSubCommand1_Click()a=Val(Text1)b=Val(Text2)c=Val(Text3)d=b*b-4*a*cp=-b/(2*a)接下頁：Ifd>=0ThenIfd>0Thenq=Sqr(d)/(2*a)X1=p+q：X2=p-qElseX1=p：X2=pEndIfElseq=Sqr(-d)/(2*a)p=CInt(p*100)/100
6、:q=CInt(q*100)/100X1=p&"+"&q&"I":X2=p&"-"&q&"I"EndifText4.Text=X1：Text5.Text=X2Endsub?運行界面(計算一元二次方程的實根）第五章常用控件5.1單選按鈕和復選框形狀控件5.2列表框和組合框5.3滾動條和Slide控件5.4時鐘5.5圖片框和圖像框5.5ProgressBar控件5.7UpDown控件5.8Animation控件5.9SSTab控件5.10鼠標器和鍵盤5.1單選鈕和復選框、框架1單選鈕（OptionButton）一組彼此相互排斥的選項，任何時刻用戶只能從中選
7、擇一個選項，實現(xiàn)一種“單項選擇”的功能，被選中項目左側圓圈中會出現(xiàn)一黑點。單選按鈕PrivateSubOption3_Click()IfOption3.ValueThen_Text1.ForeColor=vbRedEndSubPrivateSubption4_Click()IfOption4.ValueThen_Text1.ForeColor=vbBlueEndSub復選框（CheckBox）也稱作、選擇框。一組復選框控件可以提供多個選項重要屬性：Caption、Vlalue、Style與單選鈕相同復選框PrivateSubCheck1_Click()
8、IfCheck1.Value=vbCheckedThenText1.FontBold=True
