单项选择题

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

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x = 5: y = 2 Call sub1((x), y) Print x; y End Sub Private Sub sub1(m, n) t = m : m = n : n = t End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是________。
A．2　5
B．5　4
C．1　4
D．5　5
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 Print fun2(c, b, a) End Sub Private Function fun1(x As Integer, y As Integer, z As Integer) fun1 = 2 * x + y + 3 * z End Function Private Function fun2(x As Integer, y As Integer, z As Integer) fun2 = fun1(z, x, y)+ x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是________。
A．7
B．14
C．17
D．30
相关试题