vb程序例子.docVIP

Private Sub Command2_Click() n = InputBox(输入学生的人数) ReDim mark(1 To n) aver = 0 For i = 1 To n mark(i) = InputBox(输入第 i 个学生成绩) aver = aver + mark(i) 数组的输入;计算成绩总和 Next i ReDim Preserve mark(1 To n + 2) mark(n + 1) = aver / n mark(n + 2) = 0 For i = 1 To n If mark(i) mark(n + 1) Then mark(n + 2) = mark(n + 2) + 1 End If Next i Print 平均分=; mark(n + 1), 高于平均分人数=; mark(n + 2) End Sub Private Sub Form_Load() End Sub Private Sub Form_Click() Dim s s = Array(5, 6, 7, 9, 8) n = 4 For i = 0 To n - 1 iMax = i For J = i + 1 To n If (s(J) s(iMax)) Then iMax = J Next J t = s(i): s(i) = s(iMax): s(iMax) = t Next i For i = 0 To n Print s(i), Next i End Sub Private Sub Command1_Click() Dim mark() As Integer n = InputBox(输入学生的人数) ReDim mark(1 To n + 2) aver = 0 For i = 1 To n mark(i) = InputBox(输入第 i 个学生成绩) aver = aver + mark(i) 数组的输入;计算成绩总和 Next i mark(n + 1) = aver / n mark(n + 2) = 0 For i = 1 To n If mark(i) mark(n + 1) Then mark(n + 2) = mark(n + 2) + 1 End If Next i Print 平均分=; mark(n + 1), 高于平均分人数=; mark(n + 2) End Sub Private Sub Command1_Click() Dim A$, B$ A$ = Text1.Text 取出欲判断字符串 B$ = A$ 做一个副本 l = Len(A$) 求出长度 For I = 1 To l 在B中做出A的反串 Mid(B$, l - I + 1, 1) = Mid(A$, I, 1) mid函数的作用是从一个字符串的指定位置连续取n个字符 Next I If A$ = B$ Then 如果正反串一样则是回文 MsgBox 字符串 A$ 是回文 Else MsgBox 字符串 A$ 不是回文 End If End Sub Private Sub Form_Load() End Sub Private Sub Form_Click() Dim s$, a$, a1%, a2%, a3%, a4%, a5% s = Text1.Text For i = 1 To Len(s) a = Mid(s, i, 1) Select Case a Case A To Z a1 = a1 + 1 Case a To z a2 = a2 + 1 Case 0 To 9 a3 = a3 + 1 Case a4 = a4 + 1 Case Else a5 = a5 + 1 End Select Next i Label1.Caption = 大写字母有 a1 个 Label2.Caption = 小写字母有 a2 个 Label3