Dim m,n,s,i,v As Integer
'定义 m,n,s,i,v 为 整型
Dim a,b,c As String
'定义 a,b,c 为 字符型
m=0
'让 m 的值为 0
n=0
'让 n 的值为 0
i=1
'让 i 的值为 i
While i＜=6
'循环开始 条件为 i 小于等于 6
v=InputBox("现在是第"+Str(i)+"个同学进行投票","投票")
'让 v 的值为 输入对话框的返回值
If(v=1Or v=2)Then s =s+1
'若 v 的值为 1 或 v 的值为 2 则 s 的值为 s 的值加 1
If v=1 Then m=m+1
'若 v 的值为 1 则 m 的值为 m 的值加 1
If v=2Then n=n+1
'若 v 的值为 2 则 n 的值为 n 的值加 1
i=i+1
'让 i 的值为 i 的值加 1
Wend
'循环返回
a="有效票数"+Str(s)+"票,"
'a 的值为 "有效票数"+字符型(s)+"票,"
b="李明同学得"+Str(m)+"票,"
'b 的值为 "李明同学得"+字符型(m)+"票,"
c="叶绮同学得"+Str(n)+"票,"
'c 的值为 "叶绮同学得"+字符型(n)+"票,"
MsgBox a+b+c, ,"公布"
'对话框 显示a+b+c的内容,对话框标题为 公布
If m=n Then
'若 m 的值与 n 的值相等 则
MsgBox"两位同学得票相同,需要重新投票", ,"公布"
'对话框 显示"两位同学得票相同,需要重新投票",对话框标题为 公布
Else
'否则的话
If m＞n Then
'若 m 的值大于 n 的值 则
MsgBox"恭喜!每周之星是李明同学!", , "公布"
'对话框 显示"恭喜!每周之星是李明同学!",对话框标题为 公布
Else
'否则的话
MsgBox"恭喜!每周之星是叶绮同学!", , "公布"
'对话框 显示"恭喜!每周之星是叶绮同学!",对话框标题为 公布
End If
'判断结束
End
'程序结束
End If
'判断结束