- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省名校协作体2019届高三上学期信息技术9月联考试卷

编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：

⑴将n乘以3后加1产生一个新的数

⑵对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1

譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。数字2不能在10步之内回到初始值。

界面如图所示，回答下列问题：

（1）、若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的属性。

（2）、完成上述功能的程序代码如下，请在划线处填入合适的代码

Private Sub Command1_Click()

Dim n As Integer，t as Integer ，m as Integer ，s as String

t = n * 3 + 1

m = 1

s = ""

Do While

s = s + Str(t)

If t Mod 2 = 0 Then

t = t \ 2

Else

t = t * 3 + 1

End If

m = m + 1

Loop

If n = t Then

Label1.Caption = s + Str(n)

Else

Label1.Caption = "该数10步之内无法实现！"

End If

End Sub

（3）、按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数。（选填：能/否）

举一反三

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如图1所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。

在VB的算术运算中，最大的实数类型double有效位数也只有15位。为了实现除法运算保留任意位数，小明根据除法原理，编写了如下程序，功能如下：在文本框Text1中输入被除数（正整数），在文本框Text2中输入除数（正整数），在文本框Text3中输入小数位数，单击按钮Command1，在标签 Label 中显示除法运算的商。程序运行界面如图所示，但加框处代码有错，请改正：

Private Sub Command1_Click

Dim x, y As Integer

Dim n As Integer

Dim s As String

x = Val(Text1.Text): y = Val(Text2.Text)

n = Val(Text3.Text)

s = s + Str(x \ y)

s = s + "."

k = x Mod y

For i = 1 To n

‘①

‘②

k = x Mod y

Next i

Label1.Caption = "商为： " + s

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

现要求编写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”。

简化的VB词频统计程序。程序功能为：在文本框Text1中输入一篇英文文章，在文本框Text2中输入一个英文单词，单机“统计”按钮Command1后，在文本框Text3中显示这个英文单词出现的次数。程序运行界面如图所示。

查找的英文单词由连续的ASCII英文字符（a～z或A～Z）组成。组合词程序会进行分解，如river-small可拆分为2个单词river和small，查找的英文单词不区分大小写。程序代码如下，但加框处代码有错，请改正：

Private Sub Command1_Click()

Dim article As String,f As String,count As Integer

Dim i As Intege，,begin As Integer,s As String

article=Text1.Text : f=Text2.Text : count=0

begin = 1

For i=1 To Len(article)

t = Mid(article,i,1)

If Not(t>="A"And t<="Z" Or t>="a" And t<="z") Then

If i > begin Then

s = '①

If LowerCase(f)=LowerCase(s) Then

count = count+1

End If

begin = i + 1

End If

Next i

Text3.Text=Str(count)

End Sub

Function LowerCase(word As String) As String '单词转化为全小写的形式

Dim i As Integer,c As String

For i=1 To Len(word)

c = Mid(word,i,1)

'小写英文字母的ASCII码值比大写字母的值大32

If c>="A" And c<="Z" Then c = '②

LowerCase = LowerCase + c

Next i

End Function

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

①{#blank#}1{#/blank#}；②{#blank#}2{#/blank#}。

有如下VB程序段：

Dim i As Integer, s As Integer

Dim a (1 To 10)As Integer

For i =1 To 10

a(i)=i^2

If a(i)Mod 3=0 And a(i)Mod 5 =0 Then s= 50000+ a(i)

If a(i)Mod 3=0 Or a(i) Mod 5 =0 Then s =s+ a(i)

Next i

Text1. Text Str(s)

执行该程序段后，下列说法正确的是（）

【加试题】格雷码(Gray code)，又叫循环二进制码。一般的，格雷码可以解码成普通二进制码。某格雷码 G1 G2 G3 …Gn-1 Gn，解码成普通二进制B1 B2 B3 …Bn-1 Bn的方法如下：

⑴把格雷码第1位G1作为解码后二进制码的第1位B1，即：B1= G1；

⑵从第2位起，将格雷码每一位与左边相邻一位的解码值作异或运算，结果作为该位格雷码的解码值，即Bi=Gi⊕Bi-1。例如，某格雷码1101110，可解码成普通二进制码 1001011，如图所示。

异或运算（⊕）规则：如果 a、b 两个值不相同，则 a⊕b 结果为 1；如果 a、b 两个值相同，则 a⊕b 结果为 0，即:0 ⊕ 0 = 0，1 ⊕ 0 = 1，0 ⊕ 1 = 1，1 ⊕ 1 = 0。

小明编写了一个格雷码解码的VB程序，功能如下：在文本框Text1中输入格雷码,单击 “解码”按钮 Command1，程序对输入的格雷码进行转换处理，转换后的二进制码用十六进制表示并显示在文本框 Text2 中。程序运行界面如图所示。

相关试卷

公司介绍

服务介绍

帮助中心