内容发布更新时间 : 2024/12/25 8:57:25星期一 下面是文章的全部内容请认真阅读。

Private Sub Command1_Click() Dim a%, b%, c%, s% a = Val(Text1) b = Val(Text2) c = Val(Text3) Call sum(a, b, c, s) Text4 = s End Sub Private Sub sum(a%, b%, c%, sansum%) sansum = a + b + c End Sub （4）程序的运行及保存。 2 编一过程，求一维数组a中的最大值。 【步骤】 （1）设计应用程序的界面：设置窗体的Caption属性为“求一维数组的最大值”。 （2）编写事件代码和子过程： Dim a(1 To 10) As Integer Private Sub Form_Click() Dim i%, max%

Randomize For i = 1 To 10 a(i) = Int(Rnd * 101 + 300) Print a(i); Next i Print Call promax(a(), max) Print \End Sub Private Sub promax(a() As Integer, max As Integer) Dim i As Integer max = a(LBound(a)) For i = LBound(a) To UBound(a) If a(i) > max Then max = a(i) Next i End Sub （4）程序的运行及保存。 3 编一个选择排序子过程，对已知的若干个整数按递增次序排序。 【步骤】

（1）编写事件代码和子过程： Option Base 1 Private Sub Form_click() Dim a%(), n%, i% n = Val(InputBox(\ ReDim a(n) Cls Print \\ For i = 1 To n a(i) = Int(Rnd * 100) Print a(i); If i Mod 10 = 0 Then Print Next i Print Call sort1(a()) Print \\ For i = 1 To n Print a(i); If i Mod 10 = 0 Then Print Next i End Sub

Private Sub sort1(a() As Integer) Dim i%, j%, temp% For i = LBound(a) To UBound(a) - 1 p = i For j = i + 1 To UBound(a) If a(j) < a(p) Then p = j Next j temp = a(i): a(i) = a(p): a(p) = temp Next i End Sub （2）程序的运行及保存。 4 编写一个判断素数的子过程或函数过程。要求输入一个整数，就能够通过该子过程或函数过程求得该整数是否为素数。 5 编写一个在数组中查找最大值的过程。要求给定或由机器产生一系列随机数构成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。 6 编写一个函数过程，能够通过该函数过程求任意正整数的阶乘，并利用该函数过程分别求5的阶乘、8的阶乘、10的阶乘，将结果打印在窗体上。 【提示】 考虑能保存较大的整数，函数的返回值类型应定为Long，但

这样仍然存在稍大一些的整数阶乘结果超过Long所能表示的最大值。 5 编写一函数，使用递归法求n!。 6 用递归法求得Fibonacci数列（1 1 2 3 5 8 13 21 34…）的第20、200项。Fibonacci数列数学描述式为：F（i）= F（i-2）+F（i-1）。 实验七 常用控件 一、实验目的 1．掌握常用控件的重要属性、方法和事件，熟悉它们的使用。 2．熟悉面向对象的可视化编程的框架。 二、实验内容 1 如图7-1所示，用列表框、框架、单选按钮、复选框等控件实现对文本框中文字的字体、字号和粗斜体属性的设置。