VB编译错误缺少表达式怎么办

如题所述

推荐答案 2013-09-04

少了一个括号Private Sub Command1_Click()
Dim y%, M%
y = Val(Text1.Text)
M = Val(Text2.Text)
Print "本年为;"; y; "年"; M; "月"; IIf(Day(DateSerial(y, 3, 0)) = 29, "闰年", "不是闰年")
Print "目前还是"; Choose((M + 2) \ 3, "春", "夏", "秋", "冬"); "天"
Print "本月有; "; Day(DateSerial(y, M + 1, 0)); "天 "
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/siiU29Upp.html

相似回答

VB提示编译错误,缺少表达式 我按着书上一步一步敲的代码,但是每次敲了...答：看看你是否碰到了光标键，或是光标键没有抬起，造成的。也可以菜单--工具--选项--去掉自动语法检测前的勾，再试。

VB 编译错误缺少表达式怎么办答：带方括号的e2（[e2]）不是一个合法的变量名，建议去掉方括号，用e2做变量试一试。

VB数据表中,老提示:缺少,表达式,如下,求高手指点?答：VB换行需要添加空格和下划线，建议写在一行上，也就是：ZF = Data2.Recordset.Fields("微机原理") + Data2.Recordset.Fields ("office") + Data2.Recordset.Fields ("五笔字型打字") + Data2.Recordset.Fields ("VB")

VB编译错误缺少表达式怎么办答：少了一个括号Private Sub Command1_Click()Dim y%, M y = Val(Text1.Text)M = Val(Text2.Text)Print "本年为;"; y; "年"; M; "月"; IIf(Day(DateSerial(y, 3, 0)) = 29, "闰年", "不是闰年")Print "目前还是"; Choose((M + 2) \ 3, "春", "夏", "秋", "冬...

这个程序提示我缺少表达式,怎么回事啊答：缺少表达式的原因是你的子程序名取得不合规范，name为VB保留关键字。另外第九行的函数名错误，第十一行参数写法不对；第十二、三行没必要。我改了一下，供参考。Public Sub sname()Dim icount As Integer Dim sname() As String Dim ires As Integer ires = vbYes Do While ires = vbYes ReDim...

Excel宏VB代码编辑:缺少表达式,问题出在哪?答：cellrange(Irow, Icol) = Left(cellrange(Irow, Icol), Find(Left(Substitute(Substitute(cellrange(Irow, Icol), "0", ""), ".", ""), 1), cellrange(Irow, Icol)) + 2)

大家正在搜

编译错误缺少表达式缺失表达式是什么错误编译错误怎么解决编译错误缺少endsub 编译错误缺少语句结束 vb缺少语句结束怎么办 vb缺少表达式缺少表达式网页有错误缺少标识符