本人在简单应用题目中 碰到一个题目 却无法做出 故请教各位 (本人乃一菜鸟) 纯粹是想多学一点
就是说 一个Combo1 下有三项: 1.所有偶数 2.所有奇数 3.所有数 选中一个 然后 在text1中显示平均数
有两个commond 一个为读取 一个为计算 读取数据已有 要我们自己编个计算平均数的程序
本人思路 大致是:
If combo1.listindex=0, 1, 2
然后 a(i) mod 2=0 或者 mod 2<>0
n=n+1
sum=sum+a(i)
aver=sum/n
记不清楚了 望哪位 达人 能给一个完好的程序
感谢了 大家
我就是这样 有个不能解决的问题 就是放不下 哈哈
虽说一定过 但是 过不是目的 关键要学到东西
我对计算机很感兴趣 虽然现在只是一个菜鸟
也只是自己慢慢自学 呵呵
最新回复
lwhsy59 (2007-4-07 23:34:38)
Private Sub Command1_Click()
Open App.Path & "/in1.txt" For Input As #1
For k = 1 To 30
Input #1, a(k)
Next
Close #1
End Sub
Private Sub Command2_Click()
Dim sum As Integer
Dim n As Integer
Dim aver As Integer
sum = 0
n = 0
For i = 1 To 30
If Combo1.ListIndex = 0 Then
If a(i) Mod 2 = 0 Then
sum = sum + a(i)
n = n + 1
aver = sum / n
End If
End If
If Combo1.ListIndex = 1 Then
If a(i) Mod 2 <> 0 Then
sum = sum + a(i)
n = n + 1
aver = sum / n
End If
End If
If Combo1.ListIndex = 2 Then
sum = sum + a(i)
n = n + 1
aver = sum / n
End If
Next
Text1.Text = aver
End Sub
lwhsy59 (2007-4-07 23:35:48)