关于VB的问题 回答要快

来源：百度知道 编辑：UC知道 时间：2024/05/28 20:17:34
设置窗体的标题为班级--学号--姓名，在窗体上添加一个命令按钮，Name属性设置为Cmd1。添加一个文本框，Name属性设置为Tex1，n的值由tex1中输入。在Cmd1的Click事件中编写程序，定义一个动态数组，其长度为n，产生n个200—300之间的随机数，写入到数组中。调用一个函数，实现求这个数组中的所有元素的平均值，并在Cmd1的Click事件中输出。

Option Explicit
Dim n As Integer
Private Function c#(h%)
c = h / n
End Function

Private Sub Cmd1_Click()
Dim a() As Integer, s As Double, i As Integer
n = Val(Tex1.Text)
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd * 101 + 200)
s = s + c(a(i))
Next i
Print s
End Sub

这都是VB的最基本的操作，很简单的。

作业题吧，这都是些基础的知识，多看会书吧，很容易的

太简单了 懒得回答