新人报道
请问一下这个问题怎么解决
Private Sub Form_Click()
Dim n, s As String
Dim h, w As Single
n = InputBox("输入姓名", "输入数据")
s = InputBox("输入性别", "输入数据")
h = InputBox("请输入身高数据 (单位: 厘米)", "输入数据")
If s = "男" Then
w = (h - 80) * 0.7
Print n; "同学", s
Print n; "你的标准体重应该为"; w; "公斤"
Else
w = (h - 70) * 0.6
Print n; "同学", s
Print "你的标准体重应该为"; w:"公斤"
End If
End Sub

之后弹出“语法错误”

Dim n, s As String
Dim h, w As Single变量定义有错误啊，分开定义，Dim n As String, s As String
Dim h As Single, w As Single

还是不行
还是语法错误
左边一个黄色的→对着第一行

Else
w = (h - 70) * 0.6
Print n; "同学", s
Print "你的标准体重应该为"; w:"公斤"
End If
这句：
Print "你的标准体重应该为"; w:"公斤"
w后面应该是分号，你写成冒号了！
应该为：
Print "你的标准体重应该为"; w;"公斤"

收到的鲜花

• C1999 于 2013-02-19 17:18 送鲜花  3朵   附言：我很赞同

解决了
多谢

呵呵，小小的一个冒号让c1999同学愁死了多少脑细胞！