Visual Basic入门第八讲 过程与函数.ppt

【思考题1】编写一个Sub过程，计算K个数的和，即1+2+…+K，并通过命令按钮的单击事件调用该过程计算S=1+(1+2)+(1+2+3)+ …+(1+2+…+N)。 分析: 编写一个Sub过程计算1+2+…+K， 设参数K、S，参数S用于返回该和值。 Sub A1(K As Integer, S As Integer) S = 0 For J = 1 To K S = S + J Next J End Sub Private Sub Command1_Click() Dim N As Integer, S1 As Integer, I As Integer N = Val(Text1.Text) For I = 1 To N 调用过程A1求1+2+…+I，和值返回到S1中 Call A1(I, S1) Sum = Sum + S1 Next I Text2.Text = Sum End Sub 【思考题2】编写一个计算乘幂的Function过程，用来计算x的y次幂，其中y0。单击窗体时调用该过程打印51、52、53、54、55的值。 Function Power(x As Single, ByVal y As Integer) Dim result As Single result = 1 Do While y 0 result = result * x y = y - 1 Loop Power = result End Function Private Sub Form_Click() Dim i As Integer For i = 1 To 5 Print Power(5, i) Next i End Sub 【思考题3】编写三个Sub过程 LetArray过程: 产生[0，99]之间的随机整数，并赋值给一维数组。 SortArray过程:实现数组从大到小排序。 PrintArray过程:实现数组的输出。 (1) LetArray过程 Sub LetArray(Value() As Integer) Dim I As Integer, N As Integer Randomize N = UBound(Value) For I = 1 To N Value(I) = Int(100 * Rnd) Next I End Sub (2) SortArray过程: 实现数组从大到小排序 Sub SortArray(Value() As Integer) Dim I As Integer, J As Integer, N As Integer, _ T As Integer N = UBound(Value) For I = 1 To N - 1 For J = I + 1 To N If Value(I) Value(J) Then T = Value(I) Value(I) = Value(J) Value(J) = T End If Next J Next I End Sub (3) SortArray过程: 实现数组的输出 Sub PrintArray(Value() As Integer) Dim I As Integer, N As Integer N = UBound(Value) For I = 1 To N Print Value(I); If I Mod 4 = 0 Then Print 每行显示4个数 Next i End Sub 在时间过程中调用以上SUB过程： Private Sub Command1_Click() Dim Value(20) As Integer Call LetArray(Value()) Print 排序前： Call PrintArray(Value()) Call SortArray