执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。
Private Sub Cotomand1_Click()
Ch$="Welcome Home!"
a=Len(ch$)
For i= 1 To a
b$ = Mid(ch$， i 1)
If b$ = "m" Then m = m + 1
Next 1
Print m
End Sub

A．Sub Command1_C1ick()
Dim student As studtype
Dim record_no As Integer
record_no=1
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
Open" c:\student.dat" For input As # 1 len=len(student)
Put # 1,record_no,student
Close #1
End Sub
B．Sub Command1_Click( )
Dim student As studtype
Dim record_no As Integer
record_no=1
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
Open"c:\student.dat" For random As #1 len=len(student)
Put #1,record_no,student
Close #1
End Sub
C．Sub Command1_Click()
Dim student As studtype
Dim record_no As integer
record_no=1
With student
.ino=12
.stmame="smith"
.strsex="男"
.smark=89
End With
Open"c:\student.dat" For random As #1 len=len(student)
Write #1,record_no,student
Close #1
End Sub
D．Sub Command1_Click()
Dim Student As studtype
Dim Record_no As Integer
record_no=1
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
Open"c:\student.dat"For output As #1 len=len(student)
Put #1,record_no,student
Close #1
End #1

A) 输出n以内的奇数
B) 输出n以内的偶数
C) 输出n以内的素数
D) 输出n以内能被j整除的数