- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省台州市黄岩第二高级中学2019-2020学年高二下学期信息技术返校考试试卷

某对分查找算法的VB程序段如下：

t="": i=0: j=9: key=62: f=False

Do While i <=j And Not f

m=Fix((i+j)/2)

t=t+Str(m)

If a(m)= key Then

f=True

ElseIf a(m)>key Then

i=m+1

t=t+"→"

Else

j=m-1

t=t+"←"

End If

Loop

数组元素a（0）到a（9）的值依次为“99，94，90，87，78，70，63，56，45，36”执行该程序段的值是（）

A、"4→7←5→" B、"4→7←5→6→" C、"4→7←5→6" D、"4→7←-5"

举一反三

设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。

Private Sub Command1_Click()

Dim ch As String, s As String

Dim i As Integer, j As Integer

ch = Text1.Text

For i = 1 To {#blank#}1{#/blank#}

j = Asc(Mid(ch, i, 1))

If j > 96 And j < 123 Then

s = s + Chr(j - 32)

Else

s = s + Chr(j)

End If

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

End Sub

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，

点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

某 VB 段程序如下：

s = Text1.Text

For i = 1 To Len(s) c = Mid(s, i, 1)

s1 = s1 + c Next i Text2.Text = s1

程序运行时，在文本框Text1中输入“ABC123xyz”，在文本框Text2中输出“bcd123yza”，则加框①处的代码为（）

【加试题】删数问题。输入一个数字串s，删去其中k个数字(k<数字串中数字的个数)，使剩余数字在保持相对位置不变的情况下构成一个值最小的整数。例如，s=“19990608”，k=4，处理结果为：608。

删数的算法如下：

⑴如果k>0，则从前往后检测相邻字符，否则，转⑶；

⑵①若所有相邻字符都已非降序，则将串尾k个字符删去，k值置0，转⑴；

②若相邻两数存在逆序（即前一个数>后一个数），则将前一个数删除，k值变化，然后回到⑴；

⑶去掉串首的0，输出结果。按照上述算法思路，编写了VB程序，功能如下：在文本框Text1中输入数字串，在文本框Text2中输入删数的个数，单击“处理”按钮Command1，在文本框Text3中显示最小的整数。程序运行界面如图所示。

有如下VB程序段：

y=0

n=Len(Text 1．Text)

For i=1To n

c=Mid(Text 1.Text，i，1)

If c>=“0”And c<=“9”Then

x=Val(c) ：a(x) =a(x) + 1

End If

Next i

For i= 0 To 9

If a(i) >0Then y=y+ 1

Next i

Label 1．Caption=Str(y)

a数组各元素的初值为0，程序运行时，在文本框Text 1中输入内容“pi=3．1415926535”，单击按钮Command 1后，标签Label 1中显示的内容是（）

某对分查找算法的VB程序如下：

i = 1: j = 20

m = (i + j + 1) \2

Do While i < j And Key <> a(m)

If a(m) > Key Then i = m+ 1 Else j = m -1

m = (i + j + 1) \2'①

Loop

数组元素a(1)到a(20)各不相同且按降序排列，若查找键key与a(4)相等，执行该程序段，①处语句的执行次数有（）

相关试卷

公司介绍

服务介绍

帮助中心