- 二一组卷

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

浙江省东阳高级中学2018-2019学年高二下学期信息技术开学考试试卷

在一个数据序列中，如果出现连续升序的几个数，称为一个升序段。小张为了在10个数中找和值最大的升序段，编写了下面VB程序。程序运行时，在List1里随机生成10个整数，点击“统计”按钮Command1，在List2显示出和值最大的升序段和它们的和。程序运行界面如图1所示。

（1）、在设计程序界面时，可用第15题-2图中所示“控件工具箱”中的（填写相应编号）添加用于显示10个随机整数的列表框。

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

Dim a(1 To 10) As Integer

Private Sub Form_Load()

’产生10个随机整数，并在列表框List1中显示，代码略

End Sub

Private Sub Command1_Click()

Dim k As Integer, summax As Integer, sum As Integer，i As Integer, j As Integer

k = 0 ：summax = 0

sum = ①

For i = 1 To n - 1

If a(i) < a(i + 1) Then

sum = sum + a(i + 1)

k = k + 1

Else

If ② Then

summax = sum

③

sumb = i

End If

k = 0

sum = a(i + 1)

End If

Next i

For j = sumt To sumb

List2.AddItem Str(a(j))

Next j

List2.AddItem "和是：" & str(summax)

End Sub

① ② ③

举一反三

如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：( )

Private Sub Command1_Click()

Dim a(1 To 4) As Integer

Dim i As Integer

a(1) = 1

For i = 2 To 4

a(i) = 2 * a(i - 1) + 1

Next i

List1.AddItem Str(a(i))

End Sub

小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：

Private Sub Command1_Click()

Dim x As String, i As Integer

For i = 1 To 10

If i Mod x = 1 Then

x = "奇数"

Else

x = "偶数"

Next i

……

End Sub

产生此错误的语句是( )。

某简单计算器功能如下：在文本框Text1中输入一个加减算式，点击“计算”按钮Command1，计算结果在标签Label3上显示，同时在列表框List1中记录每次算式及结果。已知文本框Text1只包含正整数和“+”、“－”符号，同时以“＝”结束。程序运行界面如图a所示，请回答下列问题。

图a


图b	图c

测试某Flash作品时，弹出错误提示信息如图所示。

引起该错误的原因是（）

某 VB 程序如下：

Dim a(1 To 10) As Integer，b(1 To 10) As Integer

k = 0

For i = 10 To 1 Step -1

Do While b(i) <> 0 k = k + 1

a(k) = i: b(i) = b(i) - 1

Loop

Next i

若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（）

某字符串s是由一个原始字符串反复重叠形成的。例如字符串"abcababcababcab"的是由原始字符串"abcab"重叠而成。为查找字符串s的原始字符串，有如下VB程序段:

s = "abcababcababcab": L = Len(s)

For t = 1 To L \ 2 '枚举可能的原始长度

If L Mod t = 0 Then

For i = t + 1 To L Step t

If ① <> Mid(s， 1， t) Then Exit For

Next i

If i = L + 1 Then ans = ② : Exit For

End If

Next t

Text1.Text = ans

上述程序段划线处①②语句依次可为（）

相关试卷

公司介绍

服务介绍

帮助中心