使用VB程序将2~40以内的偶数以每行5个输出

2025-04-15 13:49:56

推荐回答（1个）

回答1：

输出到Text1控件中吧：

Dim i as Integer                                    '定义循环变量
Text1.text=""                                       '清除Text1显示内容 
For i=2 to 40 step 2                                '循环步长为2，即显示偶数 
    if ((i Mod 10)=0) then                          '循环到变量10的整数倍换行 
        Text1.text=Text1.text & i & VbCrLf
    Else                                            '非10的整数倍添加制表符Tab 
        Text1.text=Text1.text & i & VbTab
    Endif
Next