- 二一组卷

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

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

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

n=0

i=1

j=6

key=val(Text1 text)

f=False

Do While i<=j And Not f

m=(i+j+1)\2

n=n+1

If key=d(m) Then

f=True

ElseIf key>d(m) Then

j=m-1

Else

i=m+1

End if

Loop

数组元素d（1）到d（6）的值依次为“87，72,53,41,29,18”，若该程段运行结束后，n的值为2，则key的值是（）

A、87或29 B、72或18 C、72 或 29 D、53 或 18

举一反三

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

编写一个VB程序，判断某字符串是否为回文字符串。所谓回文字符串，指一个字符串从左往右读和从右往左读是完全一样的。程序运行时，单击“判断”按钮后，在标签Label2中显示判断结果。程序运行效果如图所示。

实现上述功能的程序如下，请回答下列问题：

Private Sub Com1_Click( )

Dim s As String

Dim flag As Boolean

Dim n As Integer， i As Integer

s = Text1.Text

_________ ‘①

flag = True

i = 1

Do While i <= n \ 2

If Mid(s， i， 1) < >________________ Then ‘②

flag = False

Exit Do '退出Do循环

End If

i = i + 1

Loop

If flag Then

Label2.Caption = s + "是回文字符串"

Else

Label2.Caption = s + "不是回文字符串"

End If

End Sub

【加试题】将11个数据43、26、34、76、45、16、56、90、13、45、81依次存放在数组a(1)到a(11)中，部分VB程序段如下：

min=a(1)

n=Val(Text1.Text)

For i=n to 2 step -1

If a(i)<min Then

min=a(i)

Next i

Text2.Text=Str(min)

假设在文本框Text1中输入“8”，则文本框Text2输出的值是（）

编“字符串缩写”程序，实现如下功能:在文本框Text1中输入Ascii字符串，字符串中如果有由Ascii表中相邻字符（升序）组成的子串，则把该子串缩写成由第一个字符、“-”和最后一个字符组成，比如“abcdfpxcba”则缩写成“a-dfpxcba”。程序运行界面如下图所示。

有如下VB程序段

Dim a(1 To 6)As Integer, I AS Integer, maxi As Integer

a(1)=12：a(2)=8：a(3)=14：a(4)=13：a(5)=12：a(6)=11

Maxi=1

For i=2 To 6

If a(i)>a(maxi)Then maxi=i

Next i

a(1)=a(1)+a(maxi)：a(maxi)=a(1)-a(maxi)：a(1)=a(1)-a(maxi)

执行该程序段后，数组元素a(1)~a(6)的值是（）

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

Key = Int(Rnd * 49) * 2 + 1

s = 0: i = 1: j = 10

Do While i <= j

m = (i + j) \ 2

If Key = a(m) Then Exit Do If Key < a(m) Then

j = m - 1: s = 2 * s

Else

i = m + 1: s = 2 * s + 1

End If Loop

数组a(1)到a(10)的值依次为“2,6,7,15,20,24,27,43,52,63”，执行该程序段后，s的值不可能为（）

相关试卷

公司介绍

服务介绍

帮助中心