关于2道VB编程的问题

1.“任意输入10个数，分别计算输出其中的正数和和负数和”用VB编程

2.计算1到100以内含有6的数的和 也是VB编程

在线等 不知道我们学数控的 为虾米还要学计算机编程 - -

不过还是觉得蛮有兴趣的~！呵呵

1

Private Sub Command1_Click()
Dim a(9)
Dim s1 As Integer
Dim s2 As Integer
For I = 0 To 9
a(I) = Val(InputBox("请输入一个数字"))
If a(I) > 0 Then s1 = s1 + a(I)
If a(I) < 0 Then s2 = s2 + a(I)
Next
Print " 大于的和：" & s1
Print " 小于的和：" & s2

End Sub

我写点伪代码吧：VB几年没碰了。不记得语法了。

1、

dim integer a(10) ‘首先把10个数存放在数组中

dim sum1 ,sum2 as long

for i = 1 to 10

if(a(i) >0)

sum1 = sum1 + a(i)

else

sum2 = sum2 + a(i)

next

2、

dim sum as long

for i = 1 to 100

if instr(str(i),"6") >0 then sum = sum + i end if

next