以下是全部程序:

Public a As Integer, b As Integer

Private Sub CmdChuTi_Click()
Randomize Timer
For n = 1 To 10
a = Fix(Int(Rnd * 10))
b = Fix(Int(Rnd * 10))
LabTiMu.Caption = Str(a) + "×" + Str(b) + "

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

    2044人对此回答表示赞同

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

    17人对此回答表示赞同

    Public a As Integer, b As Integer

    Private Sub CmdChuTi_Click()
    Randomize Timer
    For n = 1 To 10
    a = Fix(Int(Rnd * 10))
    b = Fix(Int(Rnd * 10))
    LabTiMu.Caption = Str(a) + "×" + Str(b) + "="
    Text.Te
    展开
    17
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Ruben

    14人对此回答表示赞同

    你的这个FOR循环
    For n = 1 To 10
    x = Val(Text.Text)
    If x = a * b Then
    i = i + 1
    LabDuiCuo.Caption = "正确"
    Else
    LabDuiCuo.Caption = "错误"
    MsgBox "正确答案应为:" & Str(a * b)
    End If
    展开
    14
    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
扫码咨询

扫码咨询套餐

回到顶部