vb6.0提示编译错误：else没有if，请问如何解决？

2010-05-05 07:32:50 963 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

为VB6项目集成AES加密：DLL方案实现与避坑指南 AES（高级加密标准）作为目前全球广泛采用的对称加密算法，通过分组加密和密钥扩展机制，为数据提供了高强度的机密性保护。其技术价值在于平衡了安全性与性能，成为保护敏感信息的行业标准。在实际工程中，AES常用于加密配置文件、网络传输数据及用户文件等场景。针对VB6这类遗留系统，原生加密能力薄弱，直接实现AES算法复杂且低效。通过将AES核心算法用C/C++封装成标准Windows DLL，再由VB6调用，成为一种务实可靠的升级路径。该方案能有效解决类似“java.security.invalidkeyexcep 阅读详情

这段代码提示else没有if,请问如何解决？这段代码是当text7,text8,text9或text10,text11.text12没有输入数据时则除3,有数据时则除4.还有就是如何为text7,text8,text9或text10,text11.text12,当只输入其中一个数据，其他不输入时则提示：请输入数据！并不进行计算！
Private Sub Command1_Click()
Text16 = Val(Text1.Text) + Val(Text4.Text) + Val(Text7.Text) + Val(Text10.Text)
Text17 = Val(Text2.Text) + Val(Text5.Text) + Val(Text8.Text) + Val(Text11.Text)
Text18 = Val(Text3.Text) + Val(Text6.Text) + Val(Text9.Text) + Val(Text12.Text)
If Text7.Text = "" Then
Text8.Text = ""
Text9.Text = ""
Text16 = Val(Text16.Text) / 3
Text17 = Val(Text17.Text) / 3
Text18 = Val(Text18.Text) / 3
Else
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text16 = Val(Text16.Text) / 3
Text17 = Val(Text17.Text) / 3
Text18 = Val(Text18.Text) / 3
Else
Text16 = Val(Text16.Text) / 4
Text17 = Val(Text17.Text) / 4
Text18 = Val(Text18.Text) / 4
End If
End Sub

谢谢各位高手！

...全文

现代Windows系统安装VB6全攻略：解决兼容性问题与实战步骤软件兼容性是软件开发与系统维护中的基础挑战，尤其在操作系统迭代升级时，旧版应用程序常因底层机制变更而无法正常运行。其核心原理涉及权限模型、运行时库依赖、安装程序架构与系统API的演变。理解并解决这些兼容性问题，对于维护历史遗留系统、保障业务连续性具有重要技术价值。典型的应用场景包括在Windows 10/11等现代系统上部署或维护基于Visual Basic 6.0开发的工业控制软件、业务工具等。本文将聚焦于**VB6安装**这一具体任务，深入剖析因**UAC权限控制**、16/32位程序支持变化及运行时库阅读详情

tianlancheak

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

射天狼 2010-05-06

打赏
举报

怎么出现两上没有条件的else?
如楼上提示，将中间的else加上if就可以了！

of123 2010-05-06

打赏
举报

Private Sub Command1_Click()
Dim i As Integer, divisor As Integer
Dim v1 As Double, v2 As Double, v3 As Double

divisor = 4

'检查
v1 = Val(Text1(6))
v2 = Val(Text1(7))
v3 = Val(Text1(8))

If (v1 + v2 + v2 <> 0) And (v1 * v2 * v3) = 0 Then
For i = 6 To 8
If Text1(i) = "" Then
Text1(i).SetFocus
MsgBox "请输入数据！"
Exit Sub
End If
Next i
End If

If v1 + v2 + v3 = 0 Then divisor = divisor - 1

v1 = Val(Text1(9))
v2 = Val(Text1(10))
v3 = Val(Text1(11))

If (v1 + v2 + v2 <> 0) And (v1 * v2 * v3) = 0 Then
For i = 9 To 11
If Text1(i) = "" Then
Text1(i).SetFocus
MsgBox "请输入数据！"
Exit Sub
End If
Next i
End If

If v1 + v2 + v3 = 0 Then divisor = divisor - 1

v1 = 0
v2 = 0
v3 = 0
For i = 0 To 9 Step 3
v1 = v1 + Val(Text1(i))
v2 = v2 + Val(Text1(i + 1))
v3 = v3 + Val(Text1(i + 2))
Next i

Text1(15) = v1 / divisor
Text1(16) = v2 / divisor
Text1(17) = v3 / divisor
End Sub

threenewbee 2010-05-06

打赏
举报

[Quote=引用 7 楼 slowgrace 的回复:]
如果你像1楼那样写代码时养成正确缩进的习惯，就不会出这种错了 :-)
[/Quote]
西西知道编译原理里面讲的经典if二义性问题么？
比如

if (xxx)

    if (yyy)

       ...

    else

       ...

其实应该是

if (xxx)

    if (yyy)

       ...

else

   ...

因为编译器可不管缩进 :)
在VB6里面是

If xxx Then If yyy Then ... Else ...

熊孩子开学喽 2010-05-05

打赏
举报

if基本用法错误
不应该啊不应该

slowgrace 2010-05-05

打赏
举报

如果你像1楼那样写代码时养成正确缩进的习惯，就不会出这种错了 :-)

贝隆 2010-05-05

打赏
举报

多分支的话最好用Select Case语句，更有条理些。

threenewbee 2010-05-05

打赏
举报

最基本的语法。

看书，If Else End If的概念。

clear_zero 2010-05-05

打赏
举报

If Text7.Text = "" Then
Text8.Text = ""
Text9.Text = ""
Text16 = Val(Text16.Text) / 3
Text17 = Val(Text17.Text) / 3
Text18 = Val(Text18.Text) / 3
ElseIf XXXX Then 'XXXX为条件

Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text16 = Val(Text16.Text) / 3
Text17 = Val(Text17.Text) / 3
Text18 = Val(Text18.Text) / 3
Else
Text16 = Val(Text16.Text) / 4
Text17 = Val(Text17.Text) / 4
Text18 = Val(Text18.Text) / 4
End If
End Sub

SYSSZ 2010-05-05

打赏
举报

明显语法
If Text7.Text = "" Then
……

Else
……

Else
……
End if
是错的

luofenghen 2010-05-05

打赏
举报



Private Sub Command1_Click()

Text16 = Val(Text1.Text) + Val(Text4.Text) + Val(Text7.Text) + Val(Text10.Text)

Text17 = Val(Text2.Text) + Val(Text5.Text) + Val(Text8.Text) + Val(Text11.Text)

Text18 = Val(Text3.Text) + Val(Text6.Text) + Val(Text9.Text) + Val(Text12.Text)

dim anything as string

select case anything

case 条件1

  Text8.Text = ""

  Text9.Text = ""

  Text16 = Val(Text16.Text) / 3

  Text17 = Val(Text17.Text) / 3

  Text18 = Val(Text18.Text) / 3

 case 条件2

  Text10.Text = ""

  Text11.Text = ""

  Text12.Text = ""

  Text16 = Val(Text16.Text) / 3

  Text17 = Val(Text17.Text) / 3

  Text18 = Val(Text18.Text) / 3

case 条件3

  Text16 = Val(Text16.Text) / 4

  Text17 = Val(Text17.Text) / 4

  Text18 = Val(Text18.Text) / 4

end select

End Sub

zdingyun 2010-05-05

打赏
举报

Private Sub Command1_Click()

    Text16 = Val(Text1.Text) + Val(Text4.Text) + Val(Text7.Text) + Val(Text10.Text)

    Text17 = Val(Text2.Text) + Val(Text5.Text) + Val(Text8.Text) + Val(Text11.Text)

    Text18 = Val(Text3.Text) + Val(Text6.Text) + Val(Text9.Text) + Val(Text12.Text)

    If Text7.Text = "" Then

        Text8.Text = ""

        Text9.Text = ""

        Text16 = Val(Text16.Text) / 3

        Text17 = Val(Text17.Text) / 3

        Text18 = Val(Text18.Text) / 3

    ElseIf XXXX Then 'XXXX为条件

         Text10.Text = ""

        Text11.Text = ""

        Text12.Text = ""

        Text16 = Val(Text16.Text) / 3

        Text17 = Val(Text17.Text) / 3

        Text18 = Val(Text18.Text) / 3

    Else

        Text16 = Val(Text16.Text) / 4

        Text17 = Val(Text17.Text) / 4

        Text18 = Val(Text18.Text) / 4

    End If

End Sub

vb6.0提示编译错误：else没有if，请问如何解决？

相关推荐