Private Sub Command1_Click()
Dim i As Integer
Dim k As Integer
Dim s As Double
s = 1
k = Val(Text1.Text)
For i = 1 To k
s = s * i
Next
Labe12,Caption = k&"!="&s(就是这一行)
End Sub
vb提示缺少语句结束是什么意思啊
答案:2 悬赏:70 手机版
解决时间 2021-12-20 11:52
- 提问者网友:流星是天使的眼泪
- 2021-12-19 18:04
最佳答案
- 五星知识达人网友:拾荒鲤
- 2021-12-19 18:09
Dim i As Integer
Dim k As Integer
Dim s As Double
s = 1
k = Val(Text1.Text)
For i = 1 To k
s = s * i
Next
Labe12,Caption = k&"!="&s(就是这一行)
、Labe12,Caption ","改为 “.” 就OK了!!写代码时应该注意细节!!!
Dim k As Integer
Dim s As Double
s = 1
k = Val(Text1.Text)
For i = 1 To k
s = s * i
Next
Labe12,Caption = k&"!="&s(就是这一行)
、Labe12,Caption ","改为 “.” 就OK了!!写代码时应该注意细节!!!
全部回答
- 1楼网友:鱼芗
- 2021-12-19 19:15
vb中缺少语句结束是什么意思是说语法不对引起语句不匹配或者语句没有写完整导致编译器无法找到结束语句符。
正确代码
private sub text1_change()
if val(text1) <= 0 then
msgbox "父亲的身高不能小于等于0!"
elseif isnumeric(text1) = false then
msgbox "父亲身高输入了数字以外的字符!"
end if
end sub原因:
vb中
1、if语句的格式是
if 条件 then
end if
或者
if 条件 then
elseif 条件 then
end if
2、过程定义格式
sub 过程名称
end sub
3、注意拼写false别犯错误。
vb因为忽略大小写,所以大小写无所谓,但变量定义要小心,最好最前面都写上
option explicit '这样,没有声明的变量都无法使用,避免出现不必要的错误。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯