vb選擇結(jié)構(gòu)練習[1]

1、程序分析題1X=5Y=-20If not x0 then x=y-3 else y=x+3 Print x-y;y-xNot 50 falseY=5+3=8X-y=5-8=-3Y-x=8-5=3-3 3 編程題判斷閏年l輸入數(shù)據(jù)從鍵盤輸入年份 a=inputbox( ， ， )從文本框中輸入年份 a=text1.textl判斷閏年的條件：能被4整除，但不能被100整除，或能被400整除l顯示結(jié)果直接打印在屏幕上 print顯示在標簽上 label1.caption=顯示在文本框 text1.text=.程序書寫Private sub command1_click()End sub確定促發(fā)的事件

2、定義變量Dim x as integer 輸入數(shù)據(jù) x=val(inputbox(“請輸入年份”,”判斷閏年”)判斷條件If x mod 4=0 and x mod 1000 and x mod 400=0 then print x & “是閏年”Else print x &”不是閏年”End if 輸入學生成績，顯示相關等級。輸入學生成績，顯示相關等級。Private Sub Command1_Click()Dim a as singlea = Val(Text1.Text)Select Case aCase Is = 90Label1.Caption = ACase Is = 80Labe

3、l1.Caption = BCase Is = 70Label1.Caption = CCase Is = 60Label1.Caption = DCase ElseLabel1.Caption = EEnd Select編寫一計算水費程序，如果用水噸數(shù)小于或等于編寫一計算水費程序，如果用水噸數(shù)小于或等于5噸，按每噸噸，按每噸2元收費；如果水的噸數(shù)大于元收費；如果水的噸數(shù)大于5小于小于20，超出，超出5部分按部分按3元收費；如元收費；如果在果在20噸以上，超出部分按噸以上，超出部分按5元收費。元收費。Private Sub Command1_Click()Dim x,y as singlex

4、= Val(Text1.Text)If x = 5 Then y = 2 * xElseIf x = 800 Then y = 1.2 * xElseIf x =600 Then y = 1.15*xElse y = 1.1*xEnd IfLabel1.Caption = yEnd Sub分段函數(shù)分段函數(shù) 2x-1 x-10Y= 3x2+5x-1 -10 x10 |x2-100| 0 x5 Sin(5x+ 7) 5x10 3x3-2x2-x+1 x10Private Sub Command1_Click()Dim x,y as singlex = Val(Text1.Text)If x = -

5、10 And x = 0 And x 5 And x = 10 Then y = 3 * x 3 - 2 * x 2 - x + 1Label1.Caption = yEnd Sub由鍵盤輸入三條邊由鍵盤輸入三條邊ABC，判斷是否構(gòu)成三角形，構(gòu)成三角形的，判斷是否構(gòu)成三角形，構(gòu)成三角形的計算面積及周長，并判斷是否直角三角形，不構(gòu)成三角形的給計算面積及周長，并判斷是否直角三角形，不構(gòu)成三角形的給出提示。出提示。Private Sub Command1_Click()Dim a,b,c as singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(T

6、ext3.Text)If a + b c And a + c b And b + c a Then Label1.Caption = 能構(gòu)成三角形 x = a + b + c y = x / 2 s = Sqr(y*(y - a) * (y - b) * (y - c) Text4.Text = 周長為： & x Text5.Text = 面積為 & s If a2 + b2 =c2 Or a2 + c2 = b2 Or b2 + c2 = a2 then Text6.Text = 是直角三角形 Else Text6.Text = 不是直角三角形“ end if End IfEnd Sub求一

7、元二次方程求一元二次方程ax2+bx+c=0的根。（的根。（d=b2-4ac如果如果d0有二根為）有二根為）Private Sub Command1_Click()Dim a,b ,c ,d,x1,x2,x as singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b * b - 4 * a * cLabel2.Caption = 一元二次方程為： & a & x*x+ & b & x+ & cIf d 0 Then Label1.Caption = 無根ElseIf d = 0 Then x = -b / (2

8、 * a) Label1.Caption = 有一根為： & xElse X1 = (-b + Sqr(b * b - 4 * a * c) / (2 * a) X2 = (-b - Sqr(b * b - 4 * a * c) / (2 * a) Label1.Caption = 有二根為： & X1 & X2End IfEnd Sub在文本框在文本框1中輸入英文單擊中輸入英文單擊“大寫大寫”按鈕，在文本框按鈕，在文本框2中顯示大中顯示大寫的英文；單擊寫的英文；單擊“小寫小寫”按鈕，在文本框按鈕，在文本框2中顯示小寫。中顯示小寫。小寫轉(zhuǎn)為大寫Private Sub Command1_Clic

9、k()Text2.Text = UCase(Text1.Text)End Sub大寫轉(zhuǎn)為小寫Private Sub Command2_Click()Text2.Text = LCase(Text1.Text)End Sub由鍵盤輸入三個數(shù)由鍵盤輸入三個數(shù)ABC，要求按順序輸出。，要求按順序輸出。Private Sub Command1_Click()Dim a,b,c,x as singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a b Then x = a: a = b: b = xIf a c Then x = a: a = c: c = xIf b = 1000 And a 10000 Then c = a 1000 d = (a - c * 1000) 100 e = (a - c * 1000 - d * 100) 10 f = a - c * 1000 - d * 100 - d * 10End IfPrint a & 的千位數(shù)為： & cPrint a & 的百位數(shù)為： & dPrint a & 的十位數(shù)為： & ePrint a & 的個位數(shù)為： & fEnd Sub判斷一個數(shù)是