Question

按键精灵考试问题

1,写一个子程序Sub 子程序(记事本句柄, 分辨率X, 分辨率Y)，要求实现对记事本中“文本子窗口”做自定义大小改变。2,随机出4个1~10(含1和10)的整数,这四个数字的顺序是一定的,求是否可以经过四则运算得到结果为24,例如(1,3,7,2) -> 1+3*7+2=24 (简化24点),请写出代码3,建立多线程a和多线程b,当系统时间的小时数为奇数时启动a关闭b,为偶数时启动b关闭a,请写出代码4,生成5个1~10(含1和10)之间的随机数字,用函数计算出是否存在其中三个数的和为10的倍数,存在返回1,不存在返回0 (牌类游戏:牛牛),请写出代码今天刚考完，求会解答的给点信心！

Answer 1

问题1
hwnd = Plugin.Window.Find("Notepad", 0)//获取记事本窗口句柄
Call 子程序(hwnd, 200, 200)
Sub 子程序(记事本句柄, 分辨率X, 分辨率Y)
	Call Plugin.Window.SetClientSize (记事本句柄,分辨率X, 分辨率Y)
End Sub

问题2
当初是用穷举法做的，好尴尬,写了上千行代码。要带挂号的话自己去尝试一下。
Dim 符号,随机(3),过程(3),已换位
符号=array("+","-","*","/")
Randomize
已换位 = 0
For i=0 to 3
    随机(i) = cstr(int(10 * rnd) + 1)
    TracePrint 随机(i)
Next
For 4
    Call 换位
    TracePrint "换位一次"
    For i_符号1 = 0 To 3
        For i_符号2 = 0 To 3
            For i_符号3 = 0 To 3
                等式 = 过程(0) + 符号(i_符号1) + 过程(1)+ 符号(i_符号2) + 过程(2)+ 符号(i_符号3) + 过程(3) + "=24"
                If Eval(等式) Then 
                    TracePrint 等式
                End If
            Next 
        Next
    Next
Next
Sub 换位
    p = 0
    For i_换位 = 0 To 3
        If p + 已换位 > 3 Then 
            过程(p + 已换位 - 4) = 随机(i_换位)
        Else 
            过程(p + 已换位) = 随机(i_换位)
        End If
        p=p+1
    Next
    已换位 = 已换位 + 1
End Sub
问题3
时间 = split(time, ":")
小时 = 时间(0)
If (小时 mod 2) = 0 Then 
    TracePrint "偶数"
    线程ID = BeginThread(a)
Else
    TracePrint "奇数"
    线程ID = BeginThread(b)
End If
Do
	时间 = split(time, ":")
    If 小时 <> 时间(0) Then 
    	小时 = 时间(0)
        If (小时 mod 2) = 0 Then 
        	TracePrint "偶数"
        	StopThread 线程ID
            线程ID = BeginThread(a)
        Else
            TracePrint "奇数"
            StopThread 线程ID
            线程ID = BeginThread(b)
        End If
    End If
Loop
Sub a
	TracePrint "a"
    Do
        Delay 1000
    loop
End Sub
Sub b
	TracePrint "b"
    Do
        Delay 1000
    loop
End Sub

问题4
额，这个还是你自己算算吧，很简单，多看看命令代码，不要全都靠别人，毕竟这是你要学习的内容

Answer 2

其实说实话 你这个工作量确实不小 现在按键的考试题目都变了 之前不是这些题目的 很坦诚的跟你说 不管过不过 不论考了多少分 我希望楼主 不要只想着考过 我个人认为，正是因为在按键精灵的考试上，我学会了很多，没有考试，就没有成长，希望你能从考试中，学到实战的经验，