UC知道二级考试中的VB问题？急需解决，有会的请帮帮忙，谢谢！！！
来源：百度知道 编辑：UC知道 时间：2024/06/24 06:30:51
（1）
Dim a(-1to 5) as boolean
Dim flag as boolean
flag=true
Dim i as integer
Dim j as integer
DO Until flag =true
for i=-1 to 5
j= j+1
if a(i)=false then
a(i)=true
exit for
end if
if i=5 then
flag=true
end if
next
loop
print j
以上的程序运行结果为：（）
求这个题的详解过程！！！！
（2）
若串 s="Program",则其子串的数目是（）
求这个题的详解过程！！！！
Dim a(-1to 5) as boolean
Dim flag as boolean
flag=true
Dim i as integer
Dim j as integer
DO Until flag =true
for i=-1 to 5
j= j+1
if a(i)=false then
a(i)=true
exit for
end if
if i=5 then
flag=true
end if
next
loop
print j
以上的程序运行结果为：（）
求这个题的详解过程！！！！
（2）
若串 s="Program",则其子串的数目是（）
求这个题的详解过程！！！！
Dim a(-1to 5) as boolean 'a(-1) - a(5)7个元素
Dim flag as boolean
flag=true
Dim i as integer
Dim j as integer
DO Until flag =true ‘flag前面赋值为true，这里意思是flag是 true 结束循环，所以跳出循环，直接执行 print j。j现在还没赋值，是0,所以直接打印0
for i=-1 to 5
j= j+1
if a(i)=false then
a(i)=true
exit for
end if
if i=5 then
flag=true
end if
next
loop
print j '打印0
(2)字串就是：
长7个的，一种：program
长6个的：二种：progra rogra
...
长1个的：7种：p r o g r a m
加起来，你自己数数吧
第2题不是编程题
(1) a(-1 to 5) 在没有赋值时，系统缺省认为 False
同样 J=0
而 flag=True
事实上 Do Until ...语句并没有执行
因而结果为 0
(2) 不大明白您想表达的意思