我的代码是想单击“提交答案”按钮,然后在每题的后面通过标签显示对和错,并计算分数。可运行的时候总提示“错误13,类型不匹配”,为什么?高手指点!代码如下:
Private Sub Command1_Click()
Dim a1 As Integer
Dim a2 As Integer
Dim a3 As Integer
Dim a4 As Integer
Dim a5 As Integer
If Text1.Text = "

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 飞翔的企鹅

    20人对此回答表示赞同

    If Text1.Text = "碳的排放量一览表" Or "碳的排放量一览表.xls" Then
    ...
    If Text2.Text = "2" Or "两" Then

    写法错误!应该是 If Text2.Text = "2" Or text2="两" then (其他同)
    展开
    20
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Shyanne

    18人对此回答表示赞同

    If Text1.Text = "碳的排放量一览表" Or Text1.Text ="碳的排放量一览表.xls" Then
    展开
    18
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 祖师爷

    7人对此回答表示赞同

    zzz
    展开
    7
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 安以

    4人对此回答表示赞同

    If Text1.Text = "碳的排放量一览表" Or Text1.Text = "碳的排放量一览表.xls" Then
    a1 = 1
    Label7.Caption = "√"
    Else
    a1 = 0
    Label7.Caption = "×"
    End If

    If Text2.Text = "2" Or Text2.Te
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部