终极8题程序设计.docVIP

1、设我国人口现为13亿，年增长1%，编程计算多少年后人口增加到20亿。 Private Sub Command1_Click Dim x As Single x 13 n 0 Do While x 20 x x * 1 + 0.01 n n + 1 Loop Print n End Sub 2、编写程序，要求在窗体上打印9*9乘法表。 Private Sub Command1_Click For i 1 To 9 For j 1 To 9 Print i * j; Next j Print Next i End Sub 3、编写程序，建立包含3行4列的数组，使数组元素为【1，50】区间的随机整数，并分行列输出在窗体上。 Private Sub Command1_Click Dim a 1 To 3, 1 To 4 For i 1 To 3 For j 1 To 4 a i, j Int Rnd * 50 + 1 Next j Next i For i 1 To 3 For j 1 To 4 Print a i, j ; Next j Print Next i End Sub 4、编写过程，要求从包含10个元素的数组中找出最小元素所在的位置。 Private Sub Command1_Click Dim a 1 To 10 As Integer, index As Integer For i 1 To 10 a i Int Rnd * 100 + 1 Print a i ; Next i Print Call findmin a , index Print index End Sub Sub findmin b As Integer, index As Integer index 1 For i 1 To 10 If b i b index Then index i Next i End Sub 5、编写sub过程，求2个随机整数的平均值。 Sub average a As Integer, b As Integer, avg As Single avg a + b / 2 End Sub Private Sub Command1_Click Dim avg As Single Dim a As Integer Dim b As Integer Randomize a Int Rnd * 100 + 1 b Int Rnd * 100 + 1 Call average a, b, avg Print avg End Sub 5、编写sub过程，求2个数的平均值。 Sub average a As Integer, b As Integer, avg As Single avg a + b / 2 End Sub Private Sub Command2_Click Dim avg As Single Call average Val Text1.Text , Val Text2.Text , avg Print avg End Sub 6、编写function过程，计算1+1/2+1/3+….1/n，n是整数。 Function fun1 n As Integer As Single fun1 0 For i 1 To n fun1 fun1 + 1 / i Next i End Function Private Sub Command1_Click Dim a As Integer a Val Text1.Text Print fun1 a End Sub 7、编写求整数n的阶乘的递归过程。 Function f n As Integer As Long If n 1 Then f 1 Else f n * f n - 1 End If End Function Private Sub Command1_Click Print f Val Text1.Text End Sub 8、对包含