简单的题目是不是不屑做啊？
如果是的，我出点难的？

呵呵，看来真的不学就都不会了，一年前学了点VB，现在手都生了
还要努力呀

是啊，学了不用容易忘的。
但学好了，忘了拾起来快。

下面是求111的111次方的个位，十位，百位，并在text里显示。要你填充横线上的内容。（15分）
Dim int1 as integer, int2 as long
int2=111
for int1=2 to 111
    int2=________
    int2=________
next
text=int2

int2*int1
val(right(str(int2),3))  或者 int2 mod 1000
试试看，我也基本上忘光了哦

下面程序中，k循环共执行了几次，在窗体上显示的结果是什么？
Dim b as integer, k as integer
Let b=1
For  k=1 to 5
        Let b=b*k
        if b>=15 then
               Exit For
        Else
               Let k=k+1
        End if
Next k
Print k,b

在窗体上打印出 5 和 15

k循环了3次；

详细解释：
第一次 b=1,k=1
b=b*k=1，b<15
k++后k=2；for循环本身k还要加1，默认步长为1
k=3，
因为k<=5,进入第二次循环
b=b*k=3
因为b<15，所以k再次加2，k=5
K<=5进入第三次循环
b=b*k=13
跳出循环

第一空错了啊。
正确答案：（1） int2*111
                   （2） int2 mod 1000

:012 今天无来,答不上题目

呵呵，不太会做，大学的二级考试只教会了我考试，哎，失败