vb 缺少语句结束 急！！

你的IF 不是Lf 你打成Lf了没发现？应该是if。。。
还有 else必须独占一行
还有 有一个if就有一个end if
你有3个if 为什么只有一个end if？
Private Sub Command2_Click()
Dim x!, y!
x = Val(InputBox("渴흙x돨令"))
If x < 1000 Then
y = x
Else
If x < 2000 And x >= 1000 Then
y = 09 x
Else
If x < 3000 And x >= 2000 Then
y = 08 x
Else
If x >= 3000 Then
y = 07 x
End If
End If
End If
Print y
End Sub

Sub 成绩级别判断()
Worksheets("Sheet1")Activate
Dim nums As Integer
nums = Cells(1, 2)Value
If nums > 90 And nums <= 100 Then
MsgBox "输入成绩的级别为:优秀!"
ElseIf nums >= 80 And nums <= 90 Then
MsgBox "输入成绩的级别为:良好!"
ElseIf nums >= 60 And nums <= 80 Then
MsgBox "输入成绩的级别为:及格!"
Else
MsgBox "输入成绩的级别为:不及格!"
End If
End Sub
'-----------------------------
'再试一下：
Sub 成绩级别判断()
Worksheets("Sheet1")Activate
Dim nums As Integer
nums = InputBox("请输入成绩:")
If nums > 90 And nums <= 100 Then
MsgBox "输入成绩的级别为:优秀!"
Else
If nums >= 80 And nums <= 90 Then
MsgBox "输入成绩的级别为:良好!"
Else
If nums >= 60 And nums <= 80 Then
MsgBox "输入成绩的级别为:及格!"
Else
MsgBox "输入成绩的级别为:不及格!"
End If
End If
End If
End Sub

要求对象就说明你没添加对应的控件~~
还有要修改默认的控件名~
比如默认按钮名称为commmand1 而你代码是cmd1 你就应该在该按钮的属性栏 “名称”那一栏修改 其他控件类似
全都是拼写错误
Private Sub Cmd1_Click()
If txt1Text1 = "1005003093" Then
Txt2SetFocus
ElseIf txt1Text <> "1005003093" Then
MsgBox "请输入正确的用户名!", vbOKOnly + vblnformation, "注意"
End If
If Txt2Text = "1230123" Then
Form1Hide
Form2Show
ElseIf Txt2Text <> "1230123" Then ' ←这个不行，下一句也不行
MsgBox "请输入正确的密码!", vbOKOnly + vbInformation
End If
End Sub

Private Sub Cmd2_Click()
End
End Sub
Private Sub Form_Load() '←这个说Sub缺少表达式
Form2Show
Form1Show
End Sub

Private Sub Tet1_KeyDown(KeyCode As Integer, Shift As Integer)
If txt1Text1 = "1005003093" And KeyCode = vbKeyReturn Then
Txt2SetFocus
ElseIf txt1Text1 <> "1005003093" And KeyCode = vbKeyReturn Then
MsgBox "请输入正确的用户名!", vbOKOnly + vbInformation
End If
End Sub
Private Sub Txt2_KeyDown(KeyCode As Integer, Shift As Integer)
If Txt2Text = "1230123" And KeyCode = vbKeyReturn Then
Form1Hide
ElseIf Txt2Text <> "1230123" And KeyCode = vbKeyReturn Then
MsgBox "请输入正确的密码!", vbOKOnly + vbInformation
End If
End Sub

跟大小写没有关系，Vb语言中，else和ifthen结构是要分开的，ifthen在下一行
格式：If…then
…
else
…
endif
希望我的答案能帮到你，欢迎追问

病情分析：
中年女性,血糖结果为71
指导意见：
验血如果是验的手指血,早晨空腹大于61,餐后两小时大于111为糖尿病指标；如果是静脉抽血化验的,那空腹大于70,餐后两小时大于111为糖尿病指标
平时饮食注意少吃多餐,用粗制米,面和一定量的杂粮,忌各种糖果,甜糕点饼干,冰激凌,含糖饮料等脂肪摄入也不宜多,每日在300mg以下增加纤维素食物,如绿叶蔬菜,豆类,块根类,粗谷物,含糖成分少的水果等,还应限制高盐,戒酒
进行有规律的合适运动,有利于减轻体重,提高胰岛素敏感性
应该注意定期监测血糖
您好： 如果随机血糖大于等于111 mmol/L可确诊糖尿病( 需另一天再次证实,排除应激状态外,如感染,外伤）如果两次空腹血糖大于等于70mmol/L可确诊糖尿病( 需另一天再次证实,排除应激状态外,如感染,外伤）正常的空腹血糖389-61 mmol/L,正常人餐后2小时血糖小于78mmol/L,如果餐后2小时血糖大于等于78mmol/L,又小于111mmol/L,为糖耐量减低餐后2小时血糖大于等于111mmol/L,考虑为糖尿病（需另一天再试）(排除应激状态外,如感染,外伤）这时就要正规治疗糖尿病应该注意： (1) 糖尿病患者必须忌烟忌酒,严格糖尿病饮食,树立信心,学会放松,保持良好心态； (2)生活规律,劳逸结合,戒烟戒酒,保持正常体重,尽量避免肥胖； (3)用药要谨慎,要按照医生根据病情所提出的要求,选择和定时服用中西药物,勿擅自滥选降糖药,老年人的用药量比一般人稍低一些； (4)定期观察血糖变化,并作相应并发症的检查,如血脂,肝功能,肾功能,心电图以及眼科检查,如有异常及早治疗； (5)适量有氧锻炼,如散步,早 *** 建议选择升糖指数低食物,升糖指数高的食物,一般不建议糖尿病患者使用,正确的做法应该是平衡膳食,也就是在总热量控制的前提下,尽可能做到谷类,肉,蛋,奶,蔬菜及水果种类齐全,以便获得均衡营养建议吃升糖指数低的蔬菜如黄瓜,西红柿,青菜,芹菜等水果如柚子,猕猴桃,草莓,青苹果蛋白选择优质蛋白如瘦肉,牛奶,鱼类等主食最好选择粗粮如玉米面,荞麦面,燕麦面做成的馒头但都的注意量建议您到糖尿病专科医院营养中心看一下营养科为您制定一份适合您的饮食方案,以便于为您精确病情评价,规范化基础上的个体化治疗,祝您早日康复!
病情分析：
属于糖尿病, 空腹血糖大于61就算为糖尿病
指导意见：
给你下边几点建议
一,不暴饮暴食,生活有规律,吃饭要细嚼慢咽,多吃蔬菜,尽可能不在短时间内吃含葡萄糖,蔗糖量大的食品,这样可以防止血糖在短时间内快速上升,对保护胰腺功能有帮助,特别是有糖尿病家族史的朋友一定要记住!
二,性生活有规律,防止感染性疾病；不要吃过量的抗生素有些病毒感染和过量抗生素会诱发糖尿病
三,糖耐量不正常或有糖尿病家族史的朋友可以在最大限度内防止糖尿病的发生：每年吃三个月的烟酰胺,Vb1,Vb6,甲基Vb12（弥可保）增强胰腺功能；在季节更替时吃半个月的Vc,Ve,剂量要大,可以提高自身免疫力,清除自由基（也可以每年分两段时间肌注Vb12,每次两周,一天一支）
四,多加锻炼身体,少熬夜
糖尿病是一种常见的多发病,在我国目前大约有2000-3000万糖尿病患者此病到目前为止是一种不能根治,但可以良好控制的疾病如果在专科医师的指导下,正确运用好现在的三类基本疗法,包括饮食,运动,降糖药物在内的综合疗法,而进行终生性治疗,绝大多数患者可以如正常人一样生活,工作,颐养天年糖尿病患者应学会自我保健知识,积极预防各种慢性并发症发生,发展,避免致残,致死,从流行病学资料来看,如果控制空腹血糖〈72mmol/L(130mg/dl),餐后血糖〈89mmol/L(160mg/dl),糖化血红蛋白〈8%者极少发生并发症,亦是延缓其发生,发展的有效措施所以糖尿病患者必须遵循严格控制高血糖,坚持治疗达标的原则,才是治疗糖尿病的根本保证,不能偏听,偏信社会上的“游医”所谓“包医,根治糖尿病”的谬论
病情分析：
一次的检查不能够确诊就一定是糖尿病建议您多复查几次空腹血糖,并查个糖基化血红蛋白
指导意见：
糖尿病的诊断依据是血糖和临床症状以下诊断标准是1999年WHO,IDF公布,同年得到中华医学会糖尿病学会等认同,并建议在中国执行
糖化血红蛋白：小于60mmol/l（检查近三个月的血糖变化总体情况）
诊 断
条件
血糖浓度单位：mmol/l

静脉(全血)
毛细血管
静脉(血浆)

糖尿病
空 腹
≥61
≥61
≥70

服糖后2小时
≥100
111
≥111

糖耐量损害
空 腹

病情分析：
（一）确诊为糖尿病：
1,具有典型症状,空腹血糖≥70 mmol/l或餐后血糖≥111 mmol/l
2,没有典型症状,仅空腹血糖≥70 mmol/l或餐后血糖≥111 mmol/l应再重复一次,仍达以上值者,可以确诊为糖尿病
3,没有典型症状,仅空腹血糖≥70 mmol/l或餐后血糖≥111 mmol/l糖耐量实验2小时血糖≥111mmol/l者可以确诊为糖尿病
指导意见：
看你是不是空腹血糖,最好做一个糖耐量试验,如果确诊后平时饮食注意少吃含糖食物
病情分析：
糖尿病诊断：空腹血糖大于70mmol|l,ogtt实验2小时血糖大于111mmol|l,糖尿病症状+任意时间血糖大于111mmol|l就可诊断为糖尿病不知你说的血糖指数71是空腹的嘛
指导意见：
建议食用粗制米面,禁忌食用葡萄糖,蔗糖,蜜糖及其制品如果吃降糖药,可以降低血糖吃药时注意监测血糖,以免发生低血糖危机生命
病情分析：
空腹血糖正常为39-61mmol/L,大于等于70可考虑为糖尿病但不需重复测一次才可确诊如果随机血糖大于等于111 mmol/L加上有糖尿病症状（典型的症状为“三多一少”即多饮,多食,多尿,体重减轻）可确诊糖尿病
指导意见：
建议重新到医院在测一次血糖（空腹）,如真的是糖尿病应注意多锻炼,坚持吃药,控制饮食
病情分析：
血糖指数71如果是没吃饭的时候验的则血糖偏高,如果是吃饭后验的则是在正常值范围内,仅仅凭止血血糖是不能够确诊糖尿病的
指导意见：
建议监测一下餐前血糖,和餐后两小时血糖,以及做糖耐量实验,如果这些检查都反映血糖高,确诊为糖尿病再根据血糖情况口服降糖药或者打胰岛素治疗口服降糖药也要定期监测血糖若未确诊建议不要服用降糖药以免血糖过低
生活护理：
建议少吃甜食,控制主食的量水果多吃西红柿,猕猴桃火龙果等比较不甜的,适量的锻炼
糖尿病患者是要注意饮食和运动的,血糖控制稳定才不会引起并发症的我建议你可以去看看舒糖酵母哦,舒糖酵母可以帮你补充糖尿病不易获得的营养素,还有提高胰岛素的敏感性增强自身调控血糖的能力,关键是可以缓解糖尿病患者引起的并发症对糖尿病的护理还是比较好的

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click
Dim W As String, h As String, BMI As String
W = Val(TextBox1Text)
h = Val(TextBox2Text)
BMI = W / (h ^ 2)
If BMI >= 19 And BMI <= 25 Then
Label1Text = "你的健康良好"
End If
If BMI >= 25 And BMI <= 30 Then
Label1Text = "你有一点胖"
End If
If BMI > 30 Then
Label1Text = "你真胖，赶紧减肥"
End If
If BMI < 19 Then
Label1Text = "好瘦啊你"
End If
End Sub
----帮你改了 可以运行 物件名称可能和你的不一样 因为是我临时在自己的机器上做的测试的 呵呵----- 是可以运行的OK

---