单项选择题

阅读如下程序：
Private Sub Form_Click()
Dim num As Integer，digit As Integer
num=InputBox("输入数据")
Do While num ＜＞ 0
digit=num Mod 10
num=num\10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出的结果为

A．1 3 7 5 9
B．5 4 3 2 1
C．2 4 6 8 10
D．1 2 3 4 5
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim iAsInteger，n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5
单项选择题
在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是：单击命令按钮后，程序用“筛选法”求出1-100之间的全部素数。并将素数在列表框中显示出来。根据题意，填空处应选择 Option Base 1 Dim a(100)As Integer Private Sub Command1_Click() n = 100 For i = 2 To Sqr(n) For j = i + 1 To n If j Mod i = 0 And a(j)＜＞ 0 Then a(j)= 0 Next j Next i For i = 1 To n If a(i)＜＞ 0# Then Next i End Sub Private Sub Form_Load () For i = 1 To 100 a (i)=i Next i End Sub
相关试题