单项选择题

阅读程序：
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

单项选择题

运行下列程序： Private Sub Form_Click( ) Sum = 0 For i = 1 To 100 If Mid(CStr(i)， 1， 1)= 1 Then Sum = Sum + 1 End If Next i Print Sum End Sub 单击窗体后，则在窗体上显示的结果是________。

A．12
B．13
C．14
D．15

相关试题