程序设计作业3.docVIP

程序设计作业3 随机产生10个两位数整数（正整数），要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上。 答：程序代码如下： Dim a() As Integer Private Sub Command1_Click() Dim i% For i = 1 To 10 ReDim Preserve a(i) a(i) = Int(Rnd * 99 + 10) Print a(i); Next i Print End Sub Private Sub Command2_Click() Dim n% n = UBound(a) Dim imin%, j%, t%, k% For k = 0 To n - 1 imin = k For j = k + 1 To n If a(j) a(imin) Then imin = j Next j t = a(k) a(k) = a(imin) a(imin) = t Next k For k = LBound(a) To UBound(a) Print a(k); Next Print End Sub Private Sub Command3_Click() Dim n%, i%, j%, t% n = UBound(a) For i = 0 To n - 1 For j = 0 To n - 1 - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i For i = 0 To n: Print a(i);: Next i Print End Sub 编写一个求N！的Function过程。N的值在调用该过程时通过参数传递，过程名为fact，在命令按钮的click事件过程中调用该过程计算 1！+2！+….+10！ 答：程序代码如下： 编写一个判断数N是否是素数的sub子过程，过程名为prime,要判断的数在调用该过程时通过参数传递。 要求： 每位同学独立完成，将程序代码保存在一个文件名为自己姓名的word文档中，将该文档统一交各班班长或学委，15周上课时拷贝给我。 杜老师 2012/5/17