提交回答
  • 至过去的我

    2044人对此回答表示赞同

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

    90人对此回答表示赞同

    楼上的答案很牛X,我的就见笑了

    Private Sub Command1_Click()
    If Text1.Text = "C" or Text4.Text = "是" Then
    MsgBox "你答对了"
    Else
    If MsgBox("你答错了,显示正确答案吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then
    Text1.Text = "c"
    Text2.Text = "否"
    Text3.Text = "否"
    Text4.Text = "是"
    Text5.Text = "否"
    Else
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    End If
    End If
    End Sub
    展开
    90
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 钱霖

    90人对此回答表示赞同

    给你个简单的
    设ABCD分别人1234四人

    Private Sub Form_Click()

    Dim a(3) As String
    Dim b(3) As Integer
    Dim i, j
    a(0) = "234"
    a(1) = "3"
    a(2) = "4"
    a(3) = 123
    i = 0

    For i = 1 To 4
    For j = 0 To 3
    If InStr(a(j), CStr(i)) Then b(j) = b(j) + 1
    Next
    Next
    For j = 1 To 3
    If a(0) > a(j) Then a(0) = a(j): i = j
    Next
    Print i & "说慌"
    End Sub
    展开
    90
    0回复
    发布于 8年前

    评论(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
扫码咨询

扫码咨询套餐

回到顶部