[问答题] 要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

[问答题] 要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

参考答案：

首先在循环语句中对数组赋值，使用Rnd函数和Int函数生成0～A000随机整数。在数组求最大值中，定义一个变量，用来存放数组中的最大值，在数组比较开始前，对变量进行赋初始值。在比较中，使用循环让变量和数组中的每个元素进行逐个比较，每次比较后变量中保存两个数中最大的数，循环结束后，变量中存放的数即为最大值。 Int函数是将参数转换成整数。 Rnd函数返回小于A，但大于或等于0的值，其语法格式为： Rnd[(number)] 可选的number参数是Single或任何有效的数值表达式。 number的值决定了Rnd函数生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式： Int((upperbound-lowerbound+A) *Rnd+lowerbound) 这里，upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。解题步骤： 第一步：阅读题目提供的程序。 程序提供的代码： Option base A Private Sub CommandA_Click() Dim arrN(C0) As Integer Dim Max As Integer Randomize For i=A To C0 ’arrN(i)=Int(Rnd * ) Next i ’=arrN(A) For i=B To C0 ’If Then Max=arrN(i) End If Next i Print Max End Sub 第二步：修改程序代码。 参考代码： Option base A Private Sub CommandA_Click() Dim arrN(C0) As Integer Dim Max As Integer Randomize For i=A To C0 arrN(i)=Int(Rnd * A000) Next i Max=arrN(A) For i=B To C0 If Max＜arrN(i) Then Max=arrN(i) End If Next i Print Max End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (B) 本题要求的是A000以内能被E或G整除的数的个数。在Visual Basic中，使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为0，则表示可以整除，否则不能整除。解题步骤： 第一步：阅读题目提供的程序。 程序提供的代码： Sub SaveData() Open App.Path &""& "outtxt.txt" For Output As #A Print #A, TextA.Text Close #A End Sub Function Fun() End Function Private Sub CommandA_Click() d=Fun() TextA.Text=d SaveData End Sub 第二步 编写程序代码。 参考代码： Sub SaveData() Open App.Path & "" & "outtxt.txt" For Output As #A Print #A, TextA.Text Close #A End Sub Function Fun() Dim temp As Integer Dim i As Integer For i=0 To A000 If i Mod E=0 Or i Mod G=0 Then . temp=temp+A End If Next i Fun=temp End Function Private Sub CommandA_Click() d=Fun() TextA.Text=d SaveData End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。

问题解析:

解析无