用InputBox函数输入10个数与数组A中，输入后将这10个数显示在文本框中，并统计正数的个数，正数的和，负数

Option Explicit

Private Sub Form_Click()

Dim i As Integer, s(9) As Integer

Dim a1 As Integer, a2 As Integer

Dim b1 As Integer, b2 As Integer

For i = 0 To 9

s(i) = InputBox("请输入", "提示")

Text1.Text = Text1.Text + Str(s(i)) + Chr(9)

If s(i) > 0 Then

a1 = a1 + 1

a2 = a2 + s(i)

ElseIf s(i) < 0 Then

b1 = b1 + 1

b2 = b2 + s(i)

End If

Next i

Scale (-10, 10)-(10, -10)

CurrentX = -7.5

CurrentY = 0

Print "正数的个数="; a1; "正数的和="; a2

CurrentX = -7.5

Print "正数的个数="; b1; "正数的和="; b2

End Sub

扩展资料：

注意事项

一、占位符不要乱用，要选择正确的对应类型，否则可能会损失精度。

二、C没有String类型，C的字符串实际就是字符数组。

三、C数组定义，[ ]只能再变量名之后。

四、 C字符串两种定义方式。

五、char str[] = {'h','e','l','l','o','\0'};//注意'\0'字符串结束符。

六、char str[] = "你好"; //这种定义方式不用写结束符 可以表示汉字。

七、函数不可以定义为数组，可以用函数指针来操作。

函数指针的数组定义方法：返回值类型( * 指针变量名[Number]) (形参列表)。例如：

double add(double a,double b){}

double sub(double a,double b){}

double mul(double a,double b){}

double div1(double a,double b){}

double (*oper_func[])(double, double) = {add,sub,mul,div1};//函数指针的数组定义。