这个VB程序有什么问题？

来源：百度知道编辑：UC知道时间：2024/05/22 03:10:27

Option Explicit
Dim V%, JS!
Private Sub Command2_Click()
Set Picture = LoadPicture("VB 背景 1.bmp")
Labe11.Caption = "演示火箭匀速垂直运动"
Labe12.Caption = "选择速度米/秒"
Labe13.Caption = "升空时间秒"
Labe15.Caption = "速度米/秒"
Labe17.Caption = "升空高度米"
Labe14.Caption = ""
Labe16.Caption = ""
Labe18.Caption = ""
Command1.Caption = "发射按钮"
Command2.Caption = "结束按钮"
Combo1.AddItem10
Combo1.AddItem20
Combo1.AddItem30
Combo1.AddItem40
Combo1.AddItem50
Combo1.Text = 30
Picture1.Picture = LoadPicture("China火箭.bmp")
Picture1.AutoSize = True
Timer1.Enabled = False
Timer1.Enabled = 10
End Sub

Private Sub Timer1_Timer()
Dim H!
JS = JS + 1
H = V * JS
Picture1.Top = Form11.Height - Picture1.Height - H - 300
Labe14.Caption = JS
Labe16.Caption

你忘打空格了
Combo1.AddItem "10"
Combo1.AddItem "20"
Combo1.AddItem "30"
Combo1.AddItem "40"
Combo1.AddItem "50"
'为什么要加""呢?因为additem后加的是STRING型的 10中数据型殖民地STRING不符.也可用STR(10)表示

单从贴出来的代码看JS没有初值，直接 +1（引用）将导致不可预测情况。

测试了下 Combo1.AddItem10 没空格 Combo1.AddItem 10

第二十四行的属性错了
应该是Timer1.interval=10

Combo1.AddItem 10 'additem后面要跟空格
Timer1.Interval = 10 '把Timer1.Enabled改成Timer1.Interval

有谁知道这个VB程序有什么问题？这个VB程序有什么错 VB 这个程序什么意思？这个程序有什么问题高手赐教，请问这个VB程序有什么错误？这个小程序有什么问题呀我这个程序有什么问题请告诉我这个程序有什么问题? 请问这个程序有什么问题？？这个CPP程序有什么问题？