定義m，n，s，I，v為整數。
將a、b、c標註為字符串
將a、b和c定義為字符類型。
m=0
設m的值為0。
n=0
設n的值為0。
i=1
設I的值為I。
當i<=6時
循環開始條件是I小於或等於6。
V=InputBox("現在是第壹次"+Str(i)+"第壹次學生投票"，"投票")
設v的值為輸入對話框的返回值。
如果(v = 1或v=2)則s =s+1
如果V的值是1或者V的值是2，則S的值是S的值加上1。
如果v=1，那麽m=m+1
如果V的值是1，M的值就是M加1的值。
如果v = 2，那麽n=n+1
如果V的值是2，N的值就是N加上1的值。
i=i+1
設I的值為I加1的值。
行
回送
A= "有效投票"+Str(s)+"投票，"
“a”的值是“有效票數”+字符+“票數”
B= "李明拿到了"+Str(m)+"票，"
“b”的值是“學生李明得到”+字符(m)+“票”
C= "葉綺得到了"+Str(n)+"選票，"
' c '的值是“葉綺的同學拿到了”+字符類型(n)+“票”
MsgBox a+b+c，"發布"
對話框顯示a+b+c的內容，對話框標題為Publish。
如果m=n，那麽
如果m的值等於n的值，那麽
MsgBox“兩個學生票數相同，需要重新投票”，“宣布”
對話框顯示“兩位同學票數相同，需要重新投票”，並公布對話框標題。
其他
“否則，”他說。
如果m>n，則
如果m的值大於n的值，則
MsgBox“恭喜！本周之星是李明！”，，“發布”
對話框顯示“恭喜！本周之星是李明！”，標題為“宣布”的對話框。
其他
“否則，”他說。
MsgBox“恭喜！本周之星是葉綺！”，，“發布”
對話框顯示“恭喜！本周之星是葉綺！”，標題為“宣布”的對話框。
如果…就會結束
審判結束
結束
程序結束
如果…就會結束
審判結束