请问这个vb哪里错了，提示缺少参数_百度知道
请问这个vb哪里错了，提示缺少参数
hiphotos.baidu://g.com/zhidao/pic/item/18d8bc3eb1b3f7acd3fd1f40345bef.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="<a href="/zhidao/wh%3D600%2C800/sign=5aafd36776cdcbdd875c/18d8bc3eb1b3f7acd3fd1f40345bef.jpg" esrc="http.baidu:///zhidao/wh%3D450%2C600/sign=ddb9ee04afca029afbc3eb1b3f7acd3fd1f40345bef&nbsp.hiphotos://g
你中间那个End Sub1、InputBox改成InputBox(&)这个已经有人说过了2，加上Private Sub Command2_Click()这个是第二个按钮的代码，下面应该有句丢了;&quot
来自团队：
其他类似问题
为您推荐：
其他2条回答
inputbox(&&) 这样修改第二错误就是 有2个end sub看代码的意思 应该把第一end sub 之后的代码都删除
是可以运行了，不过不能用，
蹦出个这个奇奇怪怪的东西是什么
...你自己不知道inputbox函数的作用么
弹出对话框 让用户输入数据
删除中间的end
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB 这句话错在哪里？, VB 这句话错在哪里？ txtSQL=&q
VB 这句话错在哪里？ txtSQL=&&selec乏罚催核诎姑挫太旦咖t * from UidAndPwd where UserName=&&#39;&& Text1.Text &&&#39;&问题补充：
提示缺少语句结束 叁号丶 VB 这句话错在哪里？
txtSQL=&select * fr乏罚催核诎姑挫太旦咖om UidAndPwd where UserName=&&#39;&& Text1.Text &&&#39;&你的前面多个双引号
txtSQL=&select * from UidAndPwd where UserName=&&#39;& & Text1.Text & &&#39;&乏罚催核诎姑挫太旦咖
最前面一个 &
前后要隔开
txtSQL=&select * from UidAndPwd where UserName=&#39;&& Text1.Text &&&#39;&参考资料：这样写这个VB程序错在哪里？_百度知道
这个VB程序错在哪里？
&quot.RecordSource = &quot.TextAdodc1;&Adodc1;&b&&select * from 账户 where name= &#39b = text1;&#39
提问者采纳
select * from 账户 where name= &#39;&&#39;&&&#39.RecordSource = &quot.RecordSource = &这句里的最后&符号前后要加空格;&quot,即;select * from 账户 where name= &#39; & b & &quotAdodc1;&b&&quot:Adodc1
提问者评价
谢谢了 ！！搞好了！
其他类似问题
为您推荐：
vb程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁这个vb提示最长那句类型不匹配,不知道错在哪里?, 这个vb提示最长那句类型不匹配,
这个vb提示最长那句类型不匹配,不知道错在哪里? Private Sub Command1_Click()Dim cha As StringDim pro(2) As IntegerDim a, m As Integercha = &asd5dsasda6&For m = 1 To Len(cha)For i = 1 To 20If IsNumeric(Mid(cha, m, 1)) = True And IsNumeric(Mid(m + 1, 1)) = True Then pro(i) = CInt(Mid(cha, m, 1) & Mid(m + 1, 1)) Else pro(i) = CInt(Mid(cha, m, 1))Next iNext mMsgBox pro(i)End Sub问题补充：
语句If IsNumeric(Mid(cha, m, 1)) = True 是判断为数字时候才用cint()转换为integer.这个是最后改过的结果,输出后发现不能正确的得出结果5,6,而是都为6,又是哪里的错呢?Private Sub Command1_Click()Dim cha As StringDim pro(2) As StringDim a, m As Integercha = &asd5dsasda6&For m = 1 To Len(cha) For i = 1 To 2If IsNumeric(Mid(cha, m, 1)) = True And IsNumeric(Mid(cha, m + 1, 1)) = True Then pro(i) = Mid(cha, m, 1) & Mid(cha, m + 1, 1) Else pro(i) = Mid(cha, m, 1)Next iNext mText1.Text = pro(1)Text2.Text = pro(2)End Sub 123好好123 这个vb提示最长那句类型不匹配,不知道错在哪里?
CINT()?你要求AS哗激糕刻蕹灸革熏宫抹CII码的话就用ASC()cint参数不能是字符型啊
Mid(m + 哗激糕刻蕹灸革熏宫抹1, 1)和 Mid(m + 1, 1)两个地方，把字符串变量cha写掉了。补上就可以了
错在else后面的Cint（），当M＝1时就变成了Cint(a)了，当然要出错}