入门级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
