单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为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

A．List1.Text=Str（a（i))+ vbCrLf
B．List1.Text=Str（a（i))+ vbCrLf
C．List1.AddItem a（i)
D．List1.AddItem=a（i)

单项选择题

在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print Visual ； End Sub Private Sub Command2_Click() Print Basic ； End Sub Private Sub Form_Load() Command2.Cancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是（）

A．Basic
B．Visual
C．Cancel
D．True

相关试题