- 二一组卷

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

浙江省临安市昌化中学2019届高三上学期信息技术期末模拟试卷

【加试题】小柯编写了一个多位数乘法的VB程序，运行界面如图所示。在文本框Text1中输入一个小于等于1000位的被乘数，在文本框Text2中输入1位乘数，点击“开始计算”按钮Command1后，在文本框Text3中显示计算结果。

实现上述功能的VB程序如下，但加框代码有错，请改正。

Private Sub Command1_Click()

Dim d(1 To 1001) As Integer

Dim str1 As String, str2 As String

Dim i As Integer, n As Integer, k As Integer, s As Integer

str1 = Text1.Text

n = Len(str1)

For i = 1 To n

D(i) = Val(Mid(str1, i, 1))

Next i

s = 0

k = Val(Text2.Text)

For i = n To 1 Step -1

①

s = d(i) \ 10

D(i) = d(i) Mod 10

Next i

If s <> 0 Then str2 = CStr(s) Else str2 = "" 'CStr()不会在返回的字串前加1个空格。

For i = 1 To n

②

Next i

Text3.Text = str2

End Sub

① ②

举一反三

已知 a =1 , b = 2 ，c =3 计算下列表达式的值：

条形码是按照一定编码规则排列的图形标识符。如图所示，条形码下方数字左边12位代表信息，最右边一位是校验码。校验码产生方法如下：

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”；

②从序号2开始把所有偶数序号位上的数相加求和，并乘以3；

③从序号3开始把所有奇数序号上的数相加求和；

④把第②和第③步结果相加求和；

⑤10减去第④步结果的个位数，得出校验码（如果差值为10，则校验码为0）；

如条形码的数字为：977167121601X（X为校验码），则校验码主要产生步骤如下：

1) (1+6+2+7+1+7)×3=72

2) 0+1+1+6+7+9=24

3) 72+24=96

4) 10-6=4

所以最后校验码X=4，此条形码数字为9771671216014。

小何为此编写了VB程序，用以验证条形码输入正确与否。程序运行时，从文本框Text1获取条形码数字部分，单击按钮Command1后，在标签Label1中输出结果。实现上述功能的VB代码如下，请补全代码。

Private Sub Command1_Click()

Dim i As Integer, b As String, Lb As Integer

Dim s1 As Integer, s2 As Integer, tmp As Integer

Dim c As String

Dim d(1 To 13) As Integer '存储数据

Dim res As String '存储结果

b = Text1.Text '输入条形码

Lb = Len(b)

s1 = 0 : s2 = 0

flag = True

res = "输入错误！"

listt1.Clear

If Lb = 13 Then

For i = 1 To 13

c = Mid(b, Lb - i + 1, 1)

If c >= "0" And c <= "9" Then

{#blank#}1{#/blank#} '输入转换

Else

flag = False : Exit For

End If

Next i

If flag Then

For i = 2 To Lb Step 2

s1 = s1 + d(i) '参数计算1

s2 = {#blank#}2{#/blank#} '参数计算2

Next i

tmp = s1 * 3 + s2

If {#blank#}3{#/blank#} Then res = "输入正确！"

End If

Label1.Caption = res

End Sub

小王编写VB程序，实现如下功能：在Text1中输入1~9之间的任意一个数字，单击“计算”按钮Command1, 计算该数字的阶乘并显示在标签Label2中。程序运行界面如图所示：

【加试题】某程序功能如下：数组a中存放了n*n个两位随机正整数，按n行n列在列表框List1 中显示（即第一行自左向右依次显示a(1)～a(n)，第二行自左向右依次显示a(n+1) ～a(2*n)，……）。按（行号，列号）的形式在文本框Text1 中输入某矩形区域的左上角位置(x1,y1)，在文本框Text2 中输入右下角位置(x2,y2)，单击“水平翻转”按钮Command1，对以(x1,y1)和(x2,y2)为对角顶点的矩形区域中的数据进行水平翻转，并将变换后的n*n个数据保存到数组b中，最后在列表框list2 中按照List1的格式显示数组b中的数据。程序运行界面如图所示。

有一个数列，它的前二个数为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

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

分析完善程序。

假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带利超过12000元。设定：连本带利=本金*（1+利率）∧年数

假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）∧n>12000，求最小的n。

（参考程序）

Dim s as single

Dim r as single

Dim n as integer

s=10000

r=0.03

n=0

Do while

n=n+1

s=s*(1+r)

Loop

Print n;“年后”:“连本带利超过”；s

根据上述回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心