问一个vb中listbox的问题

sizz123

  我做了2个listbox,其中一个是名称是月份,另一个名称是日期.
  for 月=1 to 12
  月份.additem 月
  next
  for 日=1 to 30
  日期.additem 日
  next
但是,有大小月之分,那么就是当月份选择为1,3,5,等大月的时候,就要加一个31的项目.
就是说:如我选择的是大月的时候,日期.additem 31,这个句子应该如何写?
-------------------
2,如何检测用户连续按下回车键?

sizz123

  我做了2个listbox,其中一个是名称是月份,另一个名称是日期.
  for 月=1 to 12
  月份.additem 月
  next
  for 日=1 to 30
  日期.additem 日
  next
但是,有大小月之分,那么就是当月份选择为1,3,5,等大月的时候,就要加一个31的项目.
就是说:如我选择的是大月的时候,日期.additem 31,这个句子应该如何写?
-------------------
2,如何检测用户连续按下回车键?

暴风の龙

if 月=1 or 月 =2 or 月=3
日期 additem 31
else
日期 （忘记了，消除选项的那个）

貌似吧，我好久米碰VB了

叶舞枫

VB{/fd},送去技术区吧，放那儿这类问题会解决得更快{/wx}

SailCat

dim maxdays as integer
select case cint(月份.selecteditem)
  case 1,3,5,7,8,10,12
    maxdays = 31
  case 4,6,9,11
    maxdays = 30
  case else
    maxdays = 29
end select
for day = 1 to maxdays
   日期.additem day
next day

sizz123

豁然开朗，谢谢猫了