题目内容
（请给出正确答案）
窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1Click（）
Dim a(10)，x％
Fork=1 To 10
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod 2
Next k
Print X
End Sub
程序运行后，单击命令按钮，输出结果是（）。
A.10个数中奇数的个数
B.10个数中偶数的个数
C.10个数中奇数的累加和
D.10个数中偶数的累加和
如果结果不匹配，请 联系老师 获取答案
更多“窗体上有一个名为Command1的命令按钮，并有如下程序：P…”相关的问题
A.对输入的10个数据求累加和
B.对输入的10个数据求各自的余数,然后再进行累加
C.对输入的10个数据分别统计奇数和偶数的个数
D.对输入的10个数据分别统计整数和非整数的个数
A.对输入的10个数据求累加和
B.对输入的10个数据求各自的余数，然后再进行累加
C.对输入的10个数据分别统计奇数和偶数的个数
D.对输入的10个数据分别统计整数和非整数的个数
在考生文件夹下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击“计算”按钮，则计算出上述数列第n项的值，并在文本框中显示，n是选中的单选按钮后面的数值（提示：因计算结果较大，应使用长整型变量）。
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击“计算”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
求1到100以内的奇数，单击"计算"按钮后，首先清除列表框中原先的内容，然后显示结果，单击"退出"按钮后退出表单。表单文件名为Frm03.scx。
要求：
(1)窗体命名为frm03.scx(表单备注文件不能删除)
(2)窗体的标题为：求100以内的奇数
(3)命令按钮"计算"(名称为command1),"退出"(名称为command2)
(4)列表框名称为list1
(5)判断一个数是否为奇数使用语句“i%2＜＞0”，即i除2不等于0
(6)列表框中增加一项使用语句“additem(str(i))”
(7)要求使用for循环语句
(8)退出表单用release语句
A.程序运行有错误，数据类型不匹配
B.程序运行有错误，InputBox函数的格式不对
C.在Label1中显示5
D.在Label1中显示23
Private Sub Command1 Click（）
X!=Val(Text1．Text)
Select Casc x
Case Is＜-10，Is＞=20
Print"输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Seleet
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。
A.5
B.20
C.25
D.输入错误
