单项选择题

运行下列程序： 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
<上一题 目录 下一题>
热门 试题

单项选择题
Randomize语句的功能是
A．产生一个(0，1)之间的随机小数
B．产生一个[1，10]之间的随机整数
C．产生一个(-1，1)之间的随机小数
D．产生新的随机整数
单项选择题
阅读如下程序： 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
相关试题