【加试题】小龙编写了一个简易加法器VB程序，运行界面如图所示。在文本框Text1中输入一个数字后再输入空格表示一个加数输入完毕，连续不断...

题型：填空题题类：常考题难易度：困难

浙江省五校2018届高三上学期信息技术第一次联考试题

【加试题】小龙编写了一个简易加法器VB程序，运行界面如图所示。在文本框Text1中输入一个数字后再输入空格表示一个加数输入完毕，连续不断输入不同的加数，待所有需要相加的数输入完毕后，单击“求和”按钮Command1后，在标签label1中显示加数的个数以及总和。(数字0和空格的ASCII码分别为48、32)

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

Private Sub Command1_Click()

Dim a As String

Dim x As Integer, s As Integer, k As Integer

a = Text1.Text

x = 1: s = 0: k = 0

For i = 1 To Len(a)

'如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序

If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57) or(Asc(Mid(a,i,1))= 32) then’Label1.Caption = "只能输入数字或空格"

Exit Sub

End If

If Mid(a, i, 1) = " " Then

s = s + Mid(a,x,i)’

x = i + 1

k = k + 1

End If

Next i

Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

End Sub

举一反三

【加试题】找出100到1 000之间满足以下条件的整数：该数和冥半万数合开后组成的数字串中不存在重复的数字。例如209，其平方数为43 681，209和43 681合并后的数字串“20943681”中无重复数字，209就是符合条件的数。运行界面加图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim x As Integer，Y As Long，st

As String

For x=100 To 1 000

y=x^2

st=x&y ‘将数字x和y合并成不含空格的数字串st

If Then ‘①

List1. AddItem Str(x)&" "& Str(y)&" "&st

EndIf

Next x

End Sub

Function judge(s As String)As Boolean

Dim a(1 To 100)As String，i As Integer，j As Integer

judge=False

For i=1 To Len(s)

a(i)=Mid(s，i，1)

Next i

For i=1 To Len(s)-1

For j=i+1 To Len(s)

If Then Exit Function ‘②

Next j

Next i

judge=True

End Function

【加试题】对分查找算法可用于求解方程的近似解。现要求方程x³-4x²+x+5=0的一个近似解，可设f(x)=x³-4x²+x+5，若有区间[a，b]，使f(a)与f(b)异号，则该区间内必存在该方程的一个解。小吴为此编写了VB程序，功能如下：分别在文本框Text1和Text2中输入求解的区间值a和b(a<b)，单击“计算”按钮Command1，若该区间必有解，则求解出该区间内的一个近似解(精确到10 s)，否则提示“重新输入区间”，计算后的相关结果显示在列表框List1中。程序运行界面如图所示。

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

Function f(x As Double)As Double

Dim Y As Double

y=x^3-4*x^2+x+5： ‘（1）

End Function

Private Sub Command1_Click()

Dim a As Double，b As Double，m As Double，x As Double

a=Val(Text1．Text)：b=Val(Text2．Text)

If f(a)*f(b)<0 And a<b Then

Do While a<=b

m=(a+b)／2

If Abs(f(m))<0.00001 Then Exit Do

If <0 Then ‘（2）

b=m

Else

a=m

EndIf

Loop

x=Format(m，“0．00000”) ‘Format函数用于定义输出的小数位数

List1．AddItem"["&Text1．Text&"，"&Text2．Text&"]" & "解为："＆x

Else

List1．AddItem"["&a&"，"&b＆"]" & "重新输入区间"

EndIf

End Sub

下面程序段用于计算分段函数 $\text{[math]}$ 的值，不正确的是（）

在计算机中负数反码的计算如下：给出十进制数x(-127≤x≤0)，将x的绝对值转化为七位二进制数，然后逐位取反，最左边增加符号位1得到八位二进制数反码。例如十进制数-7，将7转换为七位二进制数为0000111，逐位取反变成1111000，最左边增加符号位1得到八位二进制数反码为11111000。小杜编写了一个反码转化程序，功能如下：在文本框Text1中输入十进制负数x(-127≤x≤0)，单击按钮Command1后，在标签Labe1上显示其反码。程序运行界面如下图所示。

生成10个不重复的随机整数，保存在数组a中，并升序排列，实现算法的VB程序如下。

Dim a(1 To 10) As Integer, f(1 To 20) As Boolean

'f数组各元素的初值设为False，代码略

For i = 1 To 10

t =int(rnd()*20+1)

If Not f(t) Then

a(i) = t: ⑴

For j = i To 2 Step -1

If ⑵ Then

tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp

End If

Next j

Else

⑶

End If

Next i

上述程序中3处下划线应填入的程序代码是（）

下列关于算法基本结构的表述正确的有（）。

①算法的三种基本结构是顺序结构、选择结构、多重选择结构下

②一个算法最多可以包含两种基本结构

③选择结构的流程图中，根据条件是否成立有不同的流向

④一个算法可以含有三种基本结构的任意组合

相关试卷

公司介绍

服务介绍

帮助中心