VB中出现以下错误怎么解决?我是初学者啊. 发现二义性的名称:command1_click

显示全部楼层 · 2011-10-15 02:14:45

PrivateSubCommand1_Click()Dimnum1,num2AsSingle\'num1,num2分别代表输入的第一个数和第二个数Dimstrnum1,strnum2AsString\'strnum1,strnum2分别代表输入的第一个数和第二个数的字符串形式DimfirstnumAsBoolean\'判断输入是否是数字开头EndSubPrivateSubForm_Load()num1=0num2=0\'令num1和num2为0strnum1=\"\"strnum2=\"\"\'令strnum1和strnum2为空字符串firstnum=True\'确定为数字开头EndSubPrivateSubCommand1_Click(indexAsInteger)SelectCaseindex\'用index作为判断分支的条件Case0To9\'如果index是0到9IffirstnumThen\'输入为第一个数字的话strnum1=Str(index)\'实型转字符型firstnum=False\'初赋值标志为假Else\'输入不是第一个数字的话strnum1=strnum1Str(index)\'将输入的字符添加到原有字符串上EndIf\'结束if块Label1.Caption=strnum1\'显示\'将字符串结果显示到标签上《还有其他语句，等待插入》EndSelectEndSub

千问 · 2011-10-15 02:14:45

程序中出现了两个PrivateSubCommand1_Click也就是说出现了两个同名称的子过程，这是不允许的，当点击按钮后，你让VB究竟执行哪个子过程啊？就好比有人说“我爸是李刚”后，两个人同时站起来说“我就是李刚”，这让VB情何以堪啊，呵呵。另外，你这个Command1究竟是单个按钮，还是控件数组啊？看糊涂了还有Dimnum1,num2AsSingle这样的变量定义方法也是错误的，要改为Dimnum1AsSingle,num2AsSingleDimstrnum1AsString,strnum2AsString下面是完整的修改结果：Dimnum1AsSingle,num2AsSingle\'此三行定义全局变量Dimstrnum1AsString,strnum2AsStringDimfirstnumAsBooleanPrivateSubForm_Load()num1=0num2=0\'令num1和num2为0strnum1=\"\"strnum2=\"\"\'令strnum1和strnum2为空字符串firstnum=True\'确定为数字开头EndSubPrivateSubCommand1_Click(indexAsInteger)SelectCaseindex\'用index作为判断分支的条件Case0To9\'如果index是0到9IffirstnumThen\'输入为第一个数字的话strnum1=Str(index)\'实型转字符型firstnum=False\'初赋值标志为假Else\'输入不是第一个数字的话strnum1=strnum1Str(index)\'将输入的字符添加到原有字符串上EndIf\'结束if块Label1.Caption=strnum1\'显示\'将字符串结果显示到标签上《还有其他语句，等待插入》EndSelectEndSub

千问 · 2011-10-15 02:14:45

你的问题有两个1、Command1_Click()和Command1_Click(indexAsInteger)是同一个事件，VB是事件型，要放弃过去代码驱动的思维。你可以将这两部分代码合并，并且辅以条件或选择性分支语句。2、你在前五行的代码中犯了一个错误PrivateSubCommand1_Click()Dimnum1,num2AsSingle\'num1,num2分别代表输入的第一个数和第二个数Dimstrnum1,strnum2AsString\'strnum1,strnum2分别代表输入的第一个数和第二个数的字符串形式DimfirstnumAsBoolean\'判断输入是否是数字开头EndSub你在这个事件中只是仅仅声明了几个变量，没有其他任何语句，他们在本段“EndSub”语句执行后就全部消亡了，因此没有意义。我猜测你的本意是申明一些局部变量，因此这里你只要将第一行“PrivateSubCommand1_Click()”和第五行“EndSub”删除就OK了。