1. 小王和小李在学习二进制数时发明了一种“二进制骰子”的游戏:游戏双方轮流掷骰子,每人按顺序掷4次,点数是奇数时代表0,偶数时代表1,四次骰子点数依次从低位到高位组成一个4位的二进制数,其十进制的值就是最后的成绩,成绩高的胜出,相等则平局。如图a所示,四次掷出的骰子点数依次是3-1-4-2,则代表二进制数1100,最后的成绩就是12。

图a

图b

程序运行界面如图b所示,请回答以下问题。

(1) 要想程序运行时自行清空文本框Text1中的内容,需要将语句“Text1.Text=″ ″”添加在过程(单选,填字母:A .Form_load()/B .Command1_Click()/C .Text1_Change())中。
(2) 实现上述程序的VB代码如下,请在划线处填入合适的代码:

Private Sub Command1_Click()

Dim a(1 To 4) As Integer, b(1 To 4) As Integer

'数组a存储骰子的点数,数组b存储对应的二进制数值

Dim s As Integer

Randomize

List1.Clear

c=0

For i=1 To 4

a=Int(Rnd*6)+1

Ifthen b=1 Else b=0

c=c+

List1.AddItem ″第″+Str(i)+″次:″+Str(a)+″点″

Next i

Text1.Text=Str(c)

End Sub

(3) 若小王掷的点数依次是4-5-6-2,小李掷的点数依次是6-4-3-2,结果是(选填:小王胜/小李胜/平局)。
【考点】
解析算法及程序实现;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 普通
能力提升
真题演练
换一批