一小道考试题

Question

从键盘输入10数(inputbox) 在text1里输出负数 计算正数和 与负数和 分别text2和text3里显示

Answer 1

谁接受输入？
Text1还是窗口？

Answer 2

首先建一个command，名称是Command1,然后建三个文本框，分别为text1,text2,text3。然后在Command1_Click()事件中写入下面的代码：
    Dim iNum(1 To 10) As Long   '存放数据
    
    Dim i As Long   '循环数
    Dim s As String '临时字符串
    
    '清空文本框数据
    Text1.Text = ""
    Text2.Text = "0"
    Text3.Text = "0"
    
    For i = 1 To 10
        '进行输入
        Do
            s = InputBox("请输入数字", "输入框", 0)
        Loop While Not IsNumeric(s)
        iNum(i) = CLng(s)
        
        '如果是负数，输出
        If iNum(i) < 0 Then
            Text1.Text = Text1.Text & " " & iNum(i)
        End If
        
        '计算正数与负数和
        If iNum(i) < 0 Then
            Text2.Text = CLng(Text2.Text) + iNum(i)
        Else
            Text3.Text = CLng(Text3.Text) + iNum(i)
        End If
    Next