VB上机程序题库.docVIP

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 = 100 Thenx = 0.25 * 50 + 0.35 * (w - 50)Elsex = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100)End IfEnd IfText2.Text = xEnd Sub四、求两个数中较大数的函数过程，利用该函数求3个数中最大数Private Sub Command1_Click()Dim a, b, c As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)Label1.Caption = 最大数是： Max(a, Max(b, c))End SubPrivate Function Max(x, y As Single)If x 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