按键精灵的4级开发认证，笔试题参考

最近参加按键精灵的开发认证，下面是其4级的3道题目，比较简单，列于此处仅供参考。

1、查找窗口标题("Internet Explorer")的句柄，并激活(激活窗口)

//查找窗口标题("Internet Explorer")的句柄，保存到数组
HwndEx = Plugin.Window.Search("Internet Explorer")

//分割获得的句柄
dim HwArray,Max
HwArray = Split(HwndEx, "|")
Max_array=UBound(HwArray)

If Max_array>=0 Then
	For i = 0 To Max_array-1
		
		//切换窗口
		Call Plugin.Window.Active(Clng(HwArray(i)))
		Msgbox "切换窗口：" & Clng(HwArray(i))
		Delay 500
	Next
End If

2、随机生成2-6个65-90之间的偶数

//随机生成2~6个
Randomize
Num_Cnt = Round(Rnd * 4, 0) + 2

While Num_Cnt>0
	Num_Cnt = Num_Cnt - 1
	
	//随机数65~90
	MyNumber = Round(Rnd * 25, 0) + 65
	
        //奇数+1后再显示，因为随机最大奇数89，所以+1后为90，在正确区间内	
	If MyNumber mod 2 != 0 Then  MyNumber = MyNumber + 1
		
	Msgbox MyNumber & ",【 " & Chr(MyNumber) & " 】(剩余" & Num_Cnt & "个)", 64, "CharASC"
 
Wend

3、随机生成2005-01-01到2012-03-31之间的日期，并显示

	Dim Year_rnd,Month_rnd,Day_rnd,Date_Rnd

	Randomize

	//年随机
	Year_rnd = Round(Rnd * 7, 0) + 2005
	
	//2012年最大只到3月份
	If Year_rnd = 2012 Then 
		Month_rnd = Round(Rnd * 2, 0) + 1
	Else 
		Month_rnd = Round(Rnd * 11, 0) + 1
	End If
	
	
	//日随机，及判断
	Select Case Month_rnd
	
		Case 1, 3, 5, 7, 8, 10, 12
    		Day_rnd = Round(Rnd * 30, 0) + 1 //大月31天
		Case 4, 6, 9, 11     
			Day_rnd = Round(Rnd * 29, 0) + 1 //小月30天
		Case 2
			//2月份判断，闰年29天，平年28天
			If (Int(Year_rnd) Mod 4=0) And (Int(Year_rnd) Mod 100=0) Or (Int(Year_rnd) Mod 400=0) Then
				Day_rnd = Round(Rnd * 28, 0) + 1
			Else
				Day_rnd = Round(Rnd * 27, 0) + 1
			End If
			
	End Select  
	
	
	//格式修正，补充0
	If Month_rnd<10 then Month_rnd= "0" & Month_rnd
	If Day_rnd<10 then Day_rnd= "0" & Day_rnd
	
	Date_Rnd = Year_rnd & "-" & Month_rnd & "-" & Day_rnd
	
	//输出日期
	TracePrint Date_Rnd