题目内容
（请给出正确答案）
[单选题]
从1到10的正整数中，任意抽取两个相加，所得和为不同奇数值的有__种（）
A.11
B.22
C.25
D.45
单选题，请选择你认为正确的答案：
提交
查看答案
如搜索结果不匹配，请 联系老师 获取答案
A.10
B.15
C.20
D.25
更多“从1到10的正整数中，任意抽取两个相加，所得和为不同奇数值的…”相关的问题
第9题
在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个命令按钮和一个文本框，命令按钮的名称分别为
Cmd1和Cmd2，标题分别为“计算”和“存盘”，文本框为空，如图3—1所示。程序的功能是在运行时，单击“计算”命令按钮，系统随机产生20个只有两位数的正整数，将其存入到一个数组中，再将这20个数相加的结果在文本框中显示出来。单击“存盘”命令按钮，将相加的结果存入“out5.txt”文件中。
点击查看答案
.jpg)
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能。
注意：不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的程序以原文件名存盘。
sjt5.frm文件内容如下：
Option Base1
Dim sum As Integer
Private Sub Cmd1_ClickO
Dim art(20)As Integer
'Dim f1 As？
Randomize
arr(1)=Int (Rnd * 90)+10
'sum=？
For i=3 To 20
Do
a=Int(Rnd * 90)+10
'f1=？
For j=1 To i—1
If arr(j)=a Then f1=True:Exit For
Next j
Loop While f1
arr(i)=a
sum=sum+arr(i)
Next i
Text1. Text=sum
End Sub
Private Sub Cmd2_Click()
'Call WriteData(,sum)
End Sub
Sub WriteData(Filename As String,Num As Integer)
Open App.Path & "\"& Filename For Output As 1
Print 1,Num
Close 1
End Sub
