VB上机程序题库.doc

VB上机程序题库一、1到50相加Private Sub Command1_Click()Dim a As Integer, m As Integers = 0For n = 1 To 50s = s + nNext nText1.Text = sEnd Sub二、随机产生13个元素的数组（找出max和min），并分别以逆序和顺序显示在两个标签中（文本框内）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 = 三、 托运行李，重不超过50千克每千克0.25元，超过50不超过100时超过部分0.35每千克，超过100时超过部分每千克0.45，计算托运费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七、任意数判断奇偶Private Sub Command1_Click()Dim x As Integerx = Val(Text1.Text)If x Mod 2 = 0 Then Label1.Caption = 偶数 Else Label1.Caption = 奇数End Sub八、判断闰年Private 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九、求平均数Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()s = 0For i = 1 To 10a(i) = InputBox(数组元素)s = s + a(i)Next iPrint s / 10End Sub十、随机数组找最大、最小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以内7的倍数，求和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以内被37整除的自然数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整除的数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内能被6整除的自然数Private Sub Command1_Click()List1.ClearFor n = 1 To 200If n Mod 6 = 0 Then List1.AddItem nNext nEnd Sub十五、十个数排序Private Sub Command1_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10a(i) = InputBox(输入数组元素值)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以内被5整除的数，并求和（显示在标签中）。设置：L1（200以内能被?）L2，T1（mul设为True.Scro设为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十七、两数比大小，输出较大数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 = 较大数为： & Str(x)End Sub十八、将二十个数倒置Dim a(1 To 20) As IntegerPrivate Sub Command1_Click()For i = 1 To 20a(i) = InputBox(数组的元素)Next ij = 20For i = 1 To 10t = a(i): a(i) = a(j): a(j) = tj = j - 1Next iPrint iEnd Sub十九、两数相加Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub二十、输入两个正整数，求最大公约数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 请重新输入数据!Exit DoEnd Ifr = m Mod nm = nn = rLoop While r 0Label3.Caption = 最大公约数为： & mEnd Sub二十一、随机生成一个有8个元素的数组显示在文本框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 二十二、 将字符放到数组中,倒叙打印出来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