注册

题型：综合题题类：常考题难易度：普通

信息技术基础

小王和小李在学习二进制数时发明了一种“二进制骰子”的游戏：游戏双方轮流掷骰子，每人按顺序掷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，结果是(选填:小王胜/小李胜/平局)。

举一反三

编写VB程序，实现如下功能：在文本框Text1中输入十进制整数，文本框Text2中输入待转换进制（范围2~16），单击“转换”按钮Command1，在列表框List1中输出该整数对应的进制结果，运行效果如图1所示。


图1	图2

有一个单击按钮过程，其作用是产生50个60~100 的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click()

Dim X, N As Integer

im count As Integer 'count 用来保存能被 6 整除余 2 的数据的个数

Randomize Timer '随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = {#blank#}1{#/blank#}+ int(Rnd * 40) '随机产生 50 个 60~100 的随机数

If X Mod 6 = 2 Then

List1.AddItem Str(X)

{#blank#}2{#/blank#}

End If

Next N

Label1.Caption=str（count）

End Sub

“字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手上的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字符串“1234ABCD”，若把中间的第3个到第5字母抽出并保持原来的顺序放到最前面，则一次洗牌操作后字符串变成“34A12BCD”），也可以把扑克牌分成上下两部分，把下面的部分放置到上面（如字符串“1234ABCD”，把第3个字符到最后一个字符移到前面，变成“34ABCD12”），多次重复做这个动作，就能达到洗牌的目的，效果如图所示。

计算梯形面积的算法描述如下：

①输入上底a、下底b和高h

②计算梯形面积s(计算公式为：s=(a+b)*h/2)

③输出结果

④结束

上述算法属于（）

请在横线处填写正确的代码

一个正整数的阶乘是所有小于及等于该数的正整数的积，并且0的阶乘为1，即n！＝1*2*3*...*（n－1）*n。

n！＝现求n！。

def f（n）： #定义递归函数f（n）

if n＝＝0 or n＝＝1：

return 1 #定义当n为0时函数返回值为1

else：

return {#blank#}1{#/blank#} #递归定义n≥1时的通项公式

{#blank#}2{#/blank#}＝int（input（"请输入n："）） #从键盘上输入n的值

print（"n！的值为：", {#blank#}3{#/blank#}） #输出结果

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服