1.求vb判断数字区间程序源码
2.易语言把一串数字分割成几组？
3.使用while循环输出1~50,数字每行5个数,每个数字占8个位置？

求vb判断数字区间程序源码

       Private Sub Command1_Click()

       Dim a As Variant, b As Variant

       a = Array(0, 3, 4, 5, 9, , , , , , , , , , )

       b = Array(1, 2, 6, 7, 8, , , , , , , , )

       For i = 0 To UBound(a)

        If a(i) = Val(Text1.Text) Then Text2.Text = "第一区间": Exit Sub

       Next

       For i = 0 To UBound(b)

        If b(i) = Val(Text1.Text) Then Text2.Text = "第二区间": Exit For

       Next

       End Sub

       一个按钮 2个text

易语言把一串数字分割成几组？

       你好，这个问题很好解决的分组分组资料发布源码。

       我已为你写好一份例程源代码供你参考（代码可直接复制粘贴到易语言里哟）

       .版本 2

       .支持库 spec

       .子程序 _按钮1_被单击,源码朋友买卖 源码 , , By:Kiss灬小猪（Junko）

       .局部变量 取出计划, 文本型

       .局部变量 i, 整数型

       .局部变量 局_数组, 文本型, , "0"

       .局部变量 text, 文本型

       取出计划 ＝ “”

       清除数组 (局_数组)

       text ＝ “”

       .变量循环首 (1, 取文本长度 (取出计划), 2, i)

       加入成员 (局_数组, 取文本中间 (取出计划, i, 2))

       text ＝ text ＋ 取文本中间 (取出计划, i, 2)

       .如果真 (i ≤ 取文本长度 (取出计划) － 2)

       text ＝ text ＋ “，”

       .如果真结束

       .变量循环尾 ()

       调试输出 (“分组为_数组”,代码源码安装http 局_数组)  ' ///By:Kiss灬小猪（Junko）

       调试输出 (“分组为_文本”, text)  ' ///By:Kiss灬小猪（Junko）

       信息框 (text, 0, , )  ' ///By:Kiss灬小猪（Junko）

       如果上面的代码你觉得看得不够尽兴，我还在下方上传了源代码截图供你更直观的数字msrp实现源码查看学习哟

       By:Kiss灬小猪（Junko）

       希望我的回答对你有所帮助！By:Kiss灬小猪（Junko）

使用while循环输出1~,分组分组notepad 替换源码每行5个数,每个数字占8个位置？

       水平制表符'\t'可以实现每个数字占8个位置的功能

       具体C代码和运行结果如下：

       输出符合要求，望采纳~

       附源码：

       #include <stdio.h>

       int main() {

           int i = 1;

           while (i <= ) {

               printf("%d\t",源码 i);

               if (i % 5 == 0)

                   printf("\n"); // 换行

               i++;

           }

           return 0;

       }