vb6-常用控件知识讲解.ppt

《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、择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。单选按钮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