单项选择题

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

单项选择题
当改变目录列表框控件Dir1中的当前目录时，希望同步改变文件列表框File1中显示的文件，在Dir1_Change事件过程中使用的命令是
A．File1.Path=Dir.Path
B．Dir1.Path=File1.Path
C．File1.Path=Dir1.Drive
D．Dir1.Drive=File1.Path
单项选择题
如果将PasswordChar属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然会显示出来，而不显示星号，原因可能是
A．文本框的MultiLine属性值为True
B．文本框的Locked属性值为True
C．文本框的MultiLine属性值为False
D．文本框的Locked属性值为False
相关试题