⑴ vb编程题求100至200内的素数之和
做这个程序时,首先初始化一个美加器,初值为零,然后通过一个判断是否素数的函数,在做一个循环,从101到199步长为二进行循环,如果找到了一个素数,就把他累加起来,循环结束的时候,输出这个累加器的值就可以了
⑵ 怎样用vb编程计算从键盘上输入任意个数,求其总和、平均值
新建工程,1个文本框和1个按钮
text1用来录入数据, 因为是任意个数,用很多文本框是不方便的,程序设计是使用","来分隔数字,你可以输入任意多个数字,然后按钮command1后,就可以显示总和及平均值.
Private Sub Command1_Click()
If Len(Text1) = 0 Then Exit Sub
If InStr(Text1, ",") < 2 Then Exit Sub
Dim a, sumn%, i%, j%
a = Split(Text1, ",")
For i = 0 To UBound(a)
If IsNumeric(Val(a(i))) Then '防止有非数字的情况发生,做一下校验
sumn = sumn + Val(a(i))
j = j + 1
End If
Next
Print "总和为:" & sumn
Print "平均数为:" & sumn / (UBound(a) + 1)
End Sub