- 二一组卷

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

浙江省高中信息技术解析算法及程序实现同步练习

将一个十进制正整数转化为二进制数可以采用“除二取余法”，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述“除二取余”操作，直到商的整数部分为零时停止。

程序界面如图所示，在文本框Text1中输入一个正整数，单击“转换”按钮(Command1)后，对应的二进制数在文本框Text2中显示出来。

解决此问题的Visual Basic程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()

Dim x As Integer,s As String,r As Integer,t As Integer

x=Val(Text1.text)

s=“”

Do While ①

r=x Mod 2

s=Str(r)+s

x=②

Loop

Text2.text=s

End Sub

（1）、解决此问题所用的算法是。(选填:解析算法或枚举算法)

（2）、程序中划线处①应填入。

（3）、程序中划线处②应填入。

举一反三

编写VB程序，实现如下功能：在文本框Text1中输入发放红包的总金额s，在文本框Text2中输入发放红包的个数n，单击“分配”按钮（Command1），为n个红包随机分配金额，并在列表框List1中显示分配后的这些金额。界面如图14题-1图所示。

1图

2图

自然常数e，约为2.71828，其值可通过泰勒公式计算获得 $\text{[math]}$

小明编写了一个VB程序来计算e的近似值，功能为在文本框Text1中输入公式n值，单击“计算”命令按钮Commong1，在标签Label2中显示计算结果，程序运行界面如图所示。

有一个数列，它的前二个数为0，1，此后的每个数都是其前面2个数之和，即0，1，1，2，3，5，8，13……要求编写程序，输出该数列到刚超过10000的数为止，且项数不能超过100项。编写程序如下：

Dim i As Integer， a As Integer， b As Integer， c As Integer

Dim s As String

a = 0: b = 1: c = 0: i = 2

s = Str(a) + Str(b)

Do While c <= 10000 And i < 100

a = b: b = c

c = a + b

s = s + Str(c)

i = i + 1

Loop

Text1.Text = s

运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是（）

某计算机系统中，只采用ASCII码与GB2312两种编码，现在要统计某句话中有多少个ASCII字符，多少个GB2312字符。为了解决这个问题，某同学设计了一个VB程序，功能如下：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1，则计算机会在标签Label2中输出统计结果。界面如第11题图所示：程序代码如下：

现要求编写VB程序实现如下功能：在文本框Text1中输入正整数n（n为奇数），单击 “生成”命令按钮后，如下图所示，在文本框 Text2 中会显示一个有规律的对称数字串，形式为“1 3 …… n-2 n n-2 3 1”。例如n=9时，显示的数字串为“1 3 5 7 9 7 5 3 2 1”。

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

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

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

③输出结果

④结束

上述算法属于（）

相关试卷

公司介绍

服务介绍

帮助中心