有一个函数f，这个函数的参数是两个字符串s1、s2，这两个字符串必须长度相同并且由小写字母组成。函数的输出是一个与s1、s2长度相同的字符串s，字符串s的第i个字符为字符串s1、s2的第i个字符中小的那个，比如：f(&quot;ab&quot;, &quot;ba&quot;) = &quot;aa&quot;， f(&quot;nzwzl...

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

浙江省台州市书生中学2017-2018学年高二上学期信息技术第三次月考试卷

有一个函数f，这个函数的参数是两个字符串s1、s2，这两个字符串必须长度相同并且由小写字母组成。函数的输出是一个与s1、s2长度相同的字符串s，字符串s的第i个字符为字符串s1、s2的第i个字符中小的那个，比如：f("ab", "ba") = "aa"， f("nzwzl", "zizez") = "niwel"。编写VB程序，模拟上述函数的功能：在文本框Text1中输入字符串参数x，在文本框Text2中输入字符串参数y，单击“计算”按钮Command1，在文本框Text3中输出函数f(x,y)的值。运行界面如图所示。

（1）、观察程序界面，该程序中共有个对象。

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

Private Sub Command1_Click()

Dim f As String, x As String, y As String

x = Text1.Text

y = Text2.Text

f = ""

If Len(x) <> Len(y) Then

Text1.Text = "请输入符合要求的字符串！"

Text2.Text = "请输入符合要求的字符串！"

Else

For i = 1 To Len(x)

If Then

f = f + Mid(y, i, 1)

Else

f = f + Mid(x, i, 1)

End If

Next i

Text3.Text = f

End Sub

（3）、运行该程序，在文本框Text1中输入flash，在文本框Text2中输入excel，单击“计算”按钮Command1，则文本框Text3中显示。

举一反三

编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮（Command1），在标签Label3中显示起始值和结束值之间所有奇数的累加和，例如，在文本框Text1、Text2中分别输入的内容为1、5，则累加和为9，具体界面如图1所示：

图1 图2

有一个数组data存放了n个数据，现从中删除了一个元素，其余的元素依次向前递补(假设删除的是第3个元素，则要将第4个元素移到第3个元素处，第5个元素移到第4个元素处，以此类推)，然后输出数组内容。程序输入要删除数的位置，点击“删除”按钮后删除指定数，并把剩余的数字依次输出到List2中，程序如图所示。

Dim data(10) As Integer ‘①

Dim n As Integer ‘n表示总元素个数

Private Sub Command1_Click()

Dim t As Integer

t = Val(Text1.Text)

For i = t To n-1

②

Next i

n = n - 1

For i = 1 To n

③

Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

n = 10

For i = 1 To n

data(i) = i * 2

List1.AddItem Str(data(i))

Next i

End Sub

小明编写了一个输出十进制数与二进制数对应表的VB程序。程序运行时，单击“输出”按钮Command1后，在列表框List1中输出运行结果，如下图所示。实现上述功能的VB代码如下，但①②加框处代码有错，请改正。

Dim b(4) As Integer ‘数组b按位存储二进制数

Private Sub pprint(m As Integer)

‘本过程打印输出十进制数m和对应的二进制数

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer

List1.Clear

List1.AddItem “十进制数二进制数”

For i = 0 To 4

b(i)=0

Next i

For i = 0 To 15

Call pprint(i) ‘打印输出一行

j= ‘①

b(j)=b(j)+1

Do While ‘②

b(j)=0

j=j-1

b(j)=b(j)+1

Loop

Next i

End Sub

第①处修改为{#blank#}1{#/blank#}; 第②处修改为{#blank#}2{#/blank#}。

某游戏规则如下：将2*n位队员按2人一组分成n个队(n<10)，地面上有一排格子，共2*n个，每个格子都对应一个小于10的随机正整数。游戏开始后，所有队员都选择站到一个空的格子里，等他们站满格子后，开始为每位队员进行记分。记分规则：每组甲乙两个队员，甲队员的分数是从自己所站的格子开始，按照格子序号递减，将这些格子中的数字一直累加到第1个格子。乙队员的分数是从自己所站的格子开始，按照格子序号递增，一直将格子中的数字累加到第2*n个格子。如果同一队的两名队员得到的分数相同，则该组参赛队获胜。

例如：如图所示，有4个队8位队员，地上一排格子的数字依次为2、1、1、7、9、2、5、6。若某队甲队员站在第4个格子，则其分数为2+1+1+7=11；乙队员站在第7个格子，则其分数为5+6=11。两者相等，则该队获胜。

gz(1)	gz(2)	gz(3)	gz(4)	gz(5)	gz(6)	gz(7)	gz(8)
←→
2	1	1	7	9	2	5	6
甲乙

有如下VB程序段：

For i=1 To 6

x=Int(Rnd*10)+1

If i Mod 2 = 1 Then

a(i)=2*x+1

Elself x Mod 2 = 0 Then

a(i)=x/2

Else

a(i)=x-1

End If

Next i

执行该程序段后，a(1)～a(6)各元素可能的值是（）

某VB程序段如下：

s = "Hello World"

s1 = ""

n = Len(s)

For i = 1 To n \ 2

If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then

s1 = s1 + Mid(s, i, 1)

Else

s1 = Mid(s, n - i + 1, 1) + s1

End If

Next i

Text1.Text = s1

执行该程序段后，在文本框Text1中显示的是（）

相关试卷

公司介绍

服务介绍

帮助中心