菜鸟的问题 多谢：）

Question

listbox.additem textbox1
listbox.additem textbox2

Answer 1

Private Sub commandbutton _Click ()
listbox.additem textbox1 
listbox.additem textbox2
End Sub

Answer 2

dim i as long
for i=clng(textbox1) to clng(textbox2)
  listbox.additem cstr(i)
next

Answer 3

如果还在LONG范围内，即
-2147482648< X < 2147482647，那么好办；直接用CLNG把TEXT里的
文本转成数字，然后取小的一个，循环往LISTBOX里ADDITEM就可以了。如果超出了这个范围，就要麻烦得多，你自己做模拟加法吧。

Answer 4

我是说 着两个数之间的所有的值
比如  textbox1=50   textbox2=60
那么listbox里应该出现50 51 52 53。60

Answer 5

Private Sub commandbutton _Click () 
  dim i as long
  listbox.clear
  for i=val(textbox1.text) to val(textbox2.text)
    listbox.additem i
  next i  
End Sub

Answer 6

Dim Min ,Max
If Clng(text1) < Clng(Text2) Then
   Min = Text1.text :Max = Text2.text
Else
   Min = Text2.text:Max = Text1.text
End IfIf Min = Max Then 
   End
Else
   For Min TO Max
       Listbox1.AddItem (Min+1)
   Next
End If
================================================
对吗? 是你的 意思吗?

Answer 7

Private Sub Command1_Click()
Dim i As Integer
For i = Val(Text1.Text) To Val(Text2.Text)
List1.AddItem i
Next
End Sub

Answer 8

Private Sub Command1_Click() 
Dim a As Date
Dim b As Date
a=text1
b=text2
if a<b then
  do
    a=a+1
    List1.AddItem a
  while(a<=b)
end if
End Sub 

Answer 9

Dim i As Long
For i = CLng(CDate(Text1)) To CLng(CDate(Text2))
    List1.AddItem CDate(i)
Next

Answer 10

'text1:2002/3/8形式，否则先做处理
'
Private Sub Command1_Click() 
Dim a As Date 
Dim b As Date 
a=FormatDateTime(text1,vbGeneralDate) 
b=FormatDateTime(text2,vbGeneralDate)
if a<b then 
do 
a=a+1 
List1.AddItem a 
while(a<=b) 
end if 
End Sub 

Answer 11

to  Kin_CIOM() 你的程序编译是出现 END IF 没有块 IFTO ferrytang(ferry) 
你的程序输出后没有年份的前两位数

Answer 12

如果是日期
dim a as variant
dim b as variant
b=cdate(text2.text)
a=cdate(text1.text)
do until a=b
   list.additem cstr(a)
   a=dateadd(d,1,a)
loop

Answer 13

'sorry!我记错了！^o^
'
Private Sub Command1_Click() 
Dim a As Date 
Dim b As Date 
a=FormatDateTime(text1,vbGeneralDate) 
b=FormatDateTime(text2,vbGeneralDate) 
if a<b then 
do while(a<=b) 
a=a+1 
List1.AddItem a 
loop
end if 
End Sub 

Answer 14

如果这样呢
Dim b As Long
Dim i As Long
Listbox.Clear
For i = Val(Textbox1.Text) To Val(Textbox2.Text)
For a = 1 To 12
For b = 1 To 31
Listbox.AddItem i
Listbox.AddItem a
Listbox.AddItem b
Next b
Next a
Next i输出的值差不多了：） 我要是想让  i a b 的值横着排列怎么班？