我给你写了,挺简单的.窗体上添加两个label控件 一个command控件Dim a(1 To 10)Dim bDim c As IntegerDim d As IntegerPrivate Sub Command1_Click()For b = 1 To 10a(b) = InputBox("输入数据","","")If a(b) Mod 2 ...