【加试题】有如下VB程序段： Max=-10000 For i = 1 To 10 s = 0 For j = i To 10 s = s + a(j) If s &gt; max Then max = s Next j Next i 已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，...

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

浙江省台州中学2018届高三上学期信息技术第四次统练试卷

【加试题】有如下VB程序段：

Max=-10000

For i = 1 To 10

s = 0

For j = i To 10

s = s + a(j)

If s > max Then max = s

Next j

Next i

已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4．程序执行后，变量max的值为（）

A、9 B、10 C、27 D、4

举一反三

有一Access数据库“school.accdb” 存放在f:\2015mt\vb文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框Text1中输入学生的学号，单击“查询”，在文本框Text2、Text3 、Text4中分别显示学生姓名、性别、分数。

Private Sub Command1 Click()

Dim adocn As New adodb.Connection

Dim adors As New adodb.Recordset

Dim str2 As String, str1 As String

str1 = "Provider=Microsoft.ACE.OLEDB.12.0;data source=f:\2015mt\vb\{#blank#}1{#/blank#} "

adocn.Open str1

str2 = "select * from students where num=" + Text1.Text

adors.Open str2, adocn, adOpenDynamic, adLockOptimistic

If adors.EOF = True Then

MsgBox "你输入的学号不存在"

Else

Text2.Text = adors.Fields("name").Value

Text3.Text = adors.Fields("sex").Value

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

End If

adors.Close

adocn.Close

End Sub

“字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手工的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字串“1234ABCD”，若把中间的低给到第5个字符串抽出并保持原来的顺序放到前面，则一次洗牌操作后字符串变成“34A12BCD”也可以把扑克牌分成下两部分，把下面的部分放置到上面(如字符串“1234ABCD”，把第3个字符变成洗牌的目的，效果如图所示。

【加试题】德国数学家哥德巴赫曾猜测：任何大于6的素数都可以分解成两个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如：10=3+7，10=5+5，即10可以分解成两种不同的素数对的和。

小敏编写了一个VB程序，用来求一个偶数（6到100之间）可能存在多少这样是素数岁（注：A+B与B+A认为是相同素数对，不重复统计），并把这些结果输出到一个列表框中，通过逻辑推理，小敏发现这些素数对都是奇数，所以她只需要验证奇数的素数对即可，运行界面如图所示，程序代码如下。但加框处代码有错误，请改正。

Dim IsPrime(100)As B00lean ‘用来存储是否素数，True为素数，False为非素数

privatw Suh Command1_Click()

Dim x As Integer，y As Integer，i As Integer，num As Integer

Call Init ‘调用Init函数

x=Val(Text1．Text)

y=x＼2

num==0

For i==3 To y Step 2

If Then ‘①

num=num+1

List1．AddItem Str(x)+“=”+Str(i)+“+”+Str(x-i)

End If

Next i

Label2.Caption=“偶数”+Str(x)+“共有”+Str(num)+“个素数对。”

End Sub

Sub Init() ‘初始化IsPrime数组的值

Dim i As Integer．j As Integer，X As Integer

For i=3 To 100 Step 2

X=Int(Sqr(i))

For Step 2 ‘②

If i Mod j=0 Then Exit For

Next j

If i>x Then IsPrime(i)-True Else IsPrime(i)=False

Next i

End Sub

①处加框代码应该为{#blank#}1{#/blank#}。

②处加框代码应该为{#blank#}2{#/blank#}。

小王编写了一个进制转换程序，实现如下功能：在文本框Text1中输入一个二进制数，单击“计算”按钮Command1，在文本框Text2中将显示出其对应的十六进制数。程序运行界面如下图所示：

“神舟六号”飞船升入空后进入一个椭圆形的轨道。轨道远地点高度是347千米，比近近地点高度高147千米。求近地点的高度。程序设计界面和部分代码如下所示。

图1

图2

Private Sub ①

Dim i, j As Integer A

i = 347 B

j = i – 147 C

Text1.Text = Str(j) D

End Sub

在平面坐标系中，A点坐标为(25,35)，编写VB程序，计算一组给定点中，距离A点的最小距离。在文本框Text1中依次输入一组给定的坐标值，如3个点的坐标(10,15)、(45,18)、(32,40)输入示例如图所示，坐标值以逗号分隔、逗号结尾，单击“计算”按钮Command1后，程序运行结果显示在Label3中。

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

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim x As Single, y As Single, x1 As Single, y1 As Single

Dim d As Single, min As Single

Dim s As String, t As String

s = Text1.Text: x = 25: y = 35 'A点坐标

n = 0: min = -1: t = ""

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

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

n = n + 1

If {#blank#}2{#/blank#} Then

x1 = Val(t)

Else

y1 = Val(t)

d = {#blank#}3{#/blank#}

If min = -1 Then min = d

If d < min Then min = d

End If

t = ""

Else

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

End If

Next i

Label3.Caption = Str(min)

End Sub

相关试卷

公司介绍

服务介绍

帮助中心