每日一题，做对加10—50学分,欢迎大家积极参与!

本贴由【VB各位版主】负责。

第一题：
下面程序中，k执行几次？(学分10)
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

我不一定能天天上的，Vb版主一起管理吧。

k=1,k=3,k=5  共3次

[ 本帖最后由 王懿 于 2008-6-6 23:18 编辑 ]

感谢楼上参与。
我在你后面加了共3次。

第二题：
下面的程序段在窗体上输出A~Z的26个大写字母，在画线处填上适当内容。（20分）
Dim a as string
Dim b as integer
a=_____
b=1
do while b<26
     a=a & ______
     b=b+1
Loop
Print a

"A"
Chr(Asc("A")+b)
嘿嘿

大家答题热情要提高啊！

才看到 呵呵  马上找题目

给个具体时间吧
还有 公布答案和评分是不是应该 晚上执行？
还有 可不可以放在一个专区里
还有.....