vb6入门级选择结构语句，for循环语句例题分析，声明:材料来自福州机电工程职业技术学校《VB程序设计》省级精品在线课程一一 实验报告

入门级vb6课程里的例题分析

声明：引用材料来自福州机电工程职业技术学校《VB程序设计》省级精品在线课程一一 实验报告。

---

题目一

题目要求判断的值只有一个 且设置的值是一个区间，推荐使用select语句，这样可以增加简洁性

代码：（手机打的，锁进不是做的很好）

private sub command1_click()
     select case val(text1.text)
      case is < 0,is > 100 
           label2.caption="成绩出错"
       case 0 to 59
           label2.caption="成绩等级为:不及格"
       case 60 to 79
           label2.caption="成绩等级为:及格"
       case 80 to 100
           label2.caption="成绩等级为:优良"

  end select
End Sub

---

题目二:

1.做这道题，首先我们要知道，年份 /12的余数代表的生肖分别是:0猴 1鸡 2狗 3猪 4鼠 5牛 6虎 7兔 8龙 9蛇 10马 11羊

2.如果只用选择结构语句推荐select

3.第二种请参考注释，有详细信息

 代码:(提供了两种)，第一种直接用select列出12种个值分别对应的生肖

private sub command1_click()

  select case val(text1.text)  mod 12

  Case 0 

      Text2.Text = "猴"

  Case 1

      Text2.Text = "鸡"

  Case 2

      Text2.Text = "狗"

  Case 3

      Text2.Text = "猪"

  Case 4

      Text2.Text = "鼠"

  Case 5

      Text2.Text = "牛"

  Case 6

      Text2.Text = "虎"

  Case 7

      Text2.Text = "兔"

  Case 8

      Text2.Text = "龙"

  Case 9

      Text2.Text = "蛇"

  Case 10

      Text2.Text = "马"

  Case 11

      Text2.Text = "羊"

  end select

end sub

这样子写，比较繁杂，推荐第二种:

dim a '定义个变体a

private sub form_load()

      const str as string="猴,鸡,狗,猪,鼠,牛,虎,兔,龙,蛇,马,羊" '定义常量str等于生肖，用,隔开

     a=split(str,",") '以,字符切分str常量，赋值到a

end sub

private sub command1_click()

       b=val(text1.text) mod 12

       for i =0 to 11 'FOR while 都行

            if b=i then   

                 text2.text=a(i)

                 exit for '退出for 循环

            end if

       next

end sub

---

第三题

就是用for循环 step设置为2，演示实例有误，0也是偶数

 所以要这样写：

private sub form_click

    cls

    print 20以内的偶数有（从小到大）

    for i=0 to 20 step 2

           print i 

    next

end sub