单项选择题
有如下的程序片段,该程序片段的执行完后,共执行循环______次。
Private Sub command1_ Click()
total =0
Counter = 1
do
Print Counter
total = total + Counter
Print total, "111"
Counter = Counter + 1
if total >= 10 then
exit do
End if
Loop while Counter <= 10
End Sub
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
窗体上画一个命令按钮,然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click( Open c: file. txt for Input As MaxSize = LOF (1) for NextChar =MaxSize To Step-1 Seek #1, NextChar MyChar=Input(1,#1) Next NextChar Print EOF(1) Close #1 End Sub程序运行后,单击命令按钮,其输出结果为______。
A.True
B.False
C.0
D.Null
点击查看答案&解析
单项选择题
有过程如下:Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下:Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5,运行结果为 ______。
A.100
B.120
C.200
D.50
点击查看答案&解析
相关试题
给出下面的程序:Private Sub Command1...
在窗体中添加一个列表框(listBox1)和一...