VB上機(jī)程序題庫(kù).doc

VB上機(jī)程序題庫(kù)一、1到50相加Private Sub Command1_Click()Dim a As Integer, m As Integers = 0For n = 1 To 50s = s + nNext nText1.Text = sEnd Sub二、隨機(jī)產(chǎn)生13個(gè)元素的數(shù)組（找出max和min），并分別以逆序和順序顯示在兩個(gè)標(biāo)簽中（文本框內(nèi)）Dim a(1 To 13) As IntegerPrivate Sub Command2_Click()For i = 1 To 12For j = i + 1 To 13If a(i) a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNextp = Str(a(1)For i = 2 To 13p = p & , & Str(a(i)NextLabel2.Caption = LTrim(p)End SubPrivate Sub Form_Load()Dim p As StringRandomizep = For i = 1 To 13DoFor j = 1 To i - 1If x = a(j) Then yes = 1: Exit ForNextLoop While yes = 1a(i) = xp = p & Str(a(i)NextLabel1.Caption = LTrim(Left(p, Len(p) - 1)Label2.Caption = 三、 托運(yùn)行李，重不超過(guò)50千克每千克0.25元，超過(guò)50不超過(guò)100時(shí)超過(guò)部分0.35每千克，超過(guò)100時(shí)超過(guò)部分每千克0.45，計(jì)算托運(yùn)費(fèi)Private Sub Command1_Click()Dim w As Single, x As Singlew = Val(Text1.Text)If w = 50 Thenx = 0.25 * wElseIf w y ThenMax = xElseMax = yEnd IfEnd Function五、從1加到100Private Sub Command1_Click()Dim s, i As Integers = 0For i = 1 To 100s = s + iNext iPrint sEnd Sub六、 用form load方式求1到10相加Private Sub Form_Load()Dim t As Single, i As LongShowt = 0For i = 1 To 10 Step 1t = t + iNext iPrint 總和： & Str(i)End Sub七、任意數(shù)判斷奇偶Private Sub Command1_Click()Dim x As Integerx = Val(Text1.Text)If x Mod 2 = 0 Then Label1.Caption = 偶數(shù) Else Label1.Caption = 奇數(shù)End Sub八、判斷閏年P(guān)rivate Sub Command1_Click()Dim y As IntegerDim leapyear As Booleany = Val(Text1.Text)If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) Thenleapyear = TrueLabel2.Caption = 閏年Elseleapyear = FalseLabel2.Caption = 不是閏年End IfEnd Sub九、求平均數(shù)Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()s = 0For i = 1 To 10a(i) = InputBox(數(shù)組元素)s = s + a(i)Next iPrint s / 10End Sub十、隨機(jī)數(shù)組找最大、最小Dim a(1 To 8) As IntegerPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 8a(i) = Int(Rnd * (100 - 1 + 1) + 1)Next iFor i = 1 To 7For j = i + 1 To 8If a(i) a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iPrint a(1), a(8)End Sub十一、文本框中100以?xún)?nèi)7的倍數(shù)，求和Private Sub Command1_Click()Dim i As Integer, s As Long, t As Strings = 0: t = 0For i = 1 To 100If i Mod 7 = 0 Thens = s + it = t & Str(i) & Chr(13) & Chr(10)End IfNext iText1.Text = tText2.Text = Str(s)End Sub十二、1000以?xún)?nèi)被37整除的自然數(shù)Private Sub Command1_Click()a = For n = 1 To 1000If n Mod 37 = 0 Thena = a & Str(n) & Chr(13) & Chr(10)End IfNextText1.Text = aEnd Sub 十三、輸出100-200之間不能被3整除的數(shù)Private Sub Command1_Click()Dim x As Integerx = 100Do Until x 200If x Mod 3 0 ThenText1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10)End Ifx = x + 1LoopEnd Sub十四、列表框中顯示200內(nèi)能被6整除的自然數(shù)Private Sub Command1_Click()List1.ClearFor n = 1 To 200If n Mod 6 = 0 Then List1.AddItem nNext nEnd Sub十五、十個(gè)數(shù)排序Private Sub Command1_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10a(i) = InputBox(輸入數(shù)組元素值)Next iFor i = 1 To 9For j = i + 1 To 10If a(i) a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 10Print a(i)Next i十六、在文本框顯示200以?xún)?nèi)被5整除的數(shù)，并求和（顯示在標(biāo)簽中）。設(shè)置：L1（200以?xún)?nèi)能被?）L2，T1（mul設(shè)為T(mén)rue.Scro設(shè)為2垂直），C1 Private Sub Command1_Click()Dim i As Integer, s As Long, t As StringFor i = 1 To 200If i Mod 5 = 0 Thens = s + it = t & Str(i) & Chr(13) & Chr(10)End IfNext iText1.Text = tLabel2.Caption = Str(s)End Sub十七、兩數(shù)比大小，輸出較大數(shù)Private Sub Command1_Click()Dim x, y As Singlex = Val(Text1.Text)y = Val(Text2.Text)If x y Thent = xx = yy = tEnd IfLabel1.Caption = 較大數(shù)為： & Str(x)End Sub十八、將二十個(gè)數(shù)倒置Dim a(1 To 20) As IntegerPrivate Sub Command1_Click()For i = 1 To 20a(i) = InputBox(數(shù)組的元素)Next ij = 20For i = 1 To 10t = a(i): a(i) = a(j): a(j) = tj = j - 1Next iPrint iEnd Sub十九、兩數(shù)相加Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub二十、輸入兩個(gè)正整數(shù)，求最大公約數(shù)Private Sub Command1_Click()Dim m, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m n Thent = m: m = n: n = tEnd IfDoIf n = 0 Or m = 0 ThenMsgBox 請(qǐng)重新輸入數(shù)據(jù)!Exit DoEnd Ifr = m Mod nm = nn = rLoop While r 0Label3.Caption = 最大公約數(shù)為： & mEnd Sub二十一、隨機(jī)生成一個(gè)有8個(gè)元素的數(shù)組顯示在文本框Private Sub Command1_Click()Dim a(1 To 8), p As StringRandomizeFor i = 1 To 8a(i) = Int(Rnd * 90) + 10p = p & Str(a(i) & ,Next iText1.Text = pEnd Sub 二十二、 將字符放到數(shù)組中,倒敘打印出來(lái)Private Sub Command1_Click()Dim x As Integer, a(1 To 8) As Stringa(1) = a: a(2) = b: a(3) = q: a(4) = r: a(5) = s: a(6) = t: a(7) = w: a(8) = xFor x = 1 To 8Label1.Caption = Label1.Caption & a(x)Next xFor x = 8 To 1 Step -1Label2.Caption = Label2.Caption & a(x)Next xEnd Sub二十三、楊輝三角Option Base 1Private Sub Form_Click() Const n = 10 Dim Arr(n, n) As Inte