UC知道VB入门问题
来源：百度知道 编辑：UC知道 时间：2024/07/02 17:24:59
我是一个VB新手，请教2个问题。
希望哪位高手帮我解决下，先谢谢了！
第一个：是计算一个函数的VB程序（公式上传不了，就截了个图）
图片地址http://b12.photo.store.qq.com/http_imgload.cgi?/rurl4_b=2d03add8a5cbcd32dcc0221f48a96f2895c872882f78036af88067dea5cba21fb4a6c17e797d1a32b07a93da48a695cabaac8c2140d0ebb0285e8338d9df8a770fa13b6f9fb0555e49c96f31429933cdfd14fb50
第2个是：生成20个100～200之间的随机数，将这20个数显示在窗体上。再显示其中能被7整除的数，并计算输出它们的平均数！
要求：程序完整点，，我是菜鸟，我怕看不懂。先谢谢了
第2个题目的难点是怎么求平均数，因为产生的随机数个数不同。我不会做！急用！高手进
希望哪位高手帮我解决下，先谢谢了！
第一个：是计算一个函数的VB程序（公式上传不了，就截了个图）
图片地址http://b12.photo.store.qq.com/http_imgload.cgi?/rurl4_b=2d03add8a5cbcd32dcc0221f48a96f2895c872882f78036af88067dea5cba21fb4a6c17e797d1a32b07a93da48a695cabaac8c2140d0ebb0285e8338d9df8a770fa13b6f9fb0555e49c96f31429933cdfd14fb50
第2个是：生成20个100～200之间的随机数，将这20个数显示在窗体上。再显示其中能被7整除的数，并计算输出它们的平均数！
要求：程序完整点，，我是菜鸟，我怕看不懂。先谢谢了
第2个题目的难点是怎么求平均数，因为产生的随机数个数不同。我不会做！急用！高手进
1:
for i=1 to n
a=(-1)^i/i
next
a就是公式的答案 这个就是一个求和 求-1,1/2,-1/3...1/n的和 （-1）^i 就是指（-1）的i次方
2:
Private Sub Form_Click()
Dim i As Integer, s(20) As Integer, he As Integer, gs As Integer
Cls '清屏
Print "20个100～200之间的随机数:" '输出一句话
For i = 1 To 20
s(i) = Int(Rnd * 100 + 100) '得到随机数
Print s(i); '打印随机数
If i = 10 Then Print '如果够了10个就换行
Next
Print '换行
Print "其中能被7整除的数:" '输出一句话
For i = 1 To 20
If s(i) Mod 7 = 0 Then '如果能被7整除就执行一下代码
Print s(i); ' 打印
he = he + s(i) '把它加到和中
gs = gs + 1 '求个数
End If
Next
Print
Print "平均数是:" + CStr(he / gs) ' 打印平均数
End Sub
Option Explicit
Dim a(1 To 20) As Byte
Dim i As Byte
Private Sub Form_Click()
Cls
P