VB上程序题库.docVIP

VB上机程序题库 一、1到50相加 Private Sub Command1_Click() Dim a As Integer, m As Integer s = 0 For n = 1 To 50 s = s + n Next n Text1.Text = s End Sub 二、随机产生13个元素的数组（找出max和min），并分别以逆序和顺序显示在两个标签中（文本框内） Dim a(1 To 13) As Integer Private Sub Command2_Click() For i = 1 To 12 For j = i + 1 To 13 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next p = Str(a(1)) For i = 2 To 13 p = p , Str(a(i)) Next Label2.Caption = LTrim(p) End Sub Private Sub Form_Load() Dim p As String Randomize p = For i = 1 To 13 Do For j = 1 To i - 1 If x = a(j) Then yes = 1: Exit For Next Loop While yes = 1 a(i) = x p = p Str(a(i)) Next Label1.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 Single w = Val(Text1.Text) If w = 50 Then x = 0.25 * w Else If w = 100 Then x = 0.25 * 50 + 0.35 * (w - 50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100) End If End If Text2.Text = x End Sub 四、求两个数中较大数的函数过程，利用该函数求3个数中最大数 Private Sub Command1_Click() Dim a, b, c As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) Label1.Caption = 最大数是： Max(a, Max(b, c)) End Sub Private Function Max(x, y As Single) If x y Then Max = x Else Max = y End If End Function 五、从1加到100 Private Sub Command1_Click() Dim s, i As Integer s = 0 For i = 1 To 100 s = s + i Next i Print s End Sub 六、 用form load方式求1到10相加 Private Sub Form_Load() Dim t As Single, i As Long Show t = 0 For i = 1 To 10 Step 1 t = t + i Next i Print 总和： Str(i) End Sub 七、任意数判断奇偶 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x Mod 2 = 0 Then Label1.Caption = 偶数 Else Label1.Caption = 奇数 End Sub 八、判断闰年 Private Sub Command1_Click() Dim y As Integer Dim leapyear As Boolean y = Val(Text1.Text) If (y Mod 4 = 0 And y Mod 100 0) Or (y Mod 400 = 0) Then leapyear = True Label2.Caption = 闰年 Else leapyear = False Label2.Caption = 不是闰年 End If End Sub 九、求平均数 Dim a(1 To 10) As Integer Private Sub Command1_Cl