2016年10月学考成绩揭晓后，信息技术老师要统计各班学考技术A等级人数，但教务处为了保护学生成绩隐私，只给他提供了各班学生本次学考的等...

题型：综合题题类：模拟题难易度：困难

2017年11月浙江省普通高校招生学考科目考试技术（信息技术）仿真模拟试题02

2016年10月学考成绩揭晓后，信息技术老师要统计各班学考技术A等级人数，但教务处为了保护学生成绩隐私，只给他提供了各班学生本次学考的等级信息，其中技术学科等级排在每位学生的第一科。若某班学生大部分参加技术、地理、历史三门学考，小部分参加其中的两门，则教务处提供的等级信息为每位学生连续三个字符（如：ABAB-B，表示第一个学生的成绩技术为A，地理为B ，历史为A，第二个学生技术为B，地理没考，历史为B，其他依此类推）。于是他编写了一个VB程序，很快统计出各班技术学科的A等级人数。程序设计界面如图所示，其中各班学考等级信息来自文本框Text1，科目数来自文本框Text2，统计结果输出到文本框Text3中。实现上述功能的VB程序代码如下：

Private Sub Commandl_Click( )

Dim s, p As String

Dim a, n As Integer

Dim kms As Integer

s= ①

n = Len ( s )：a = 0 ：kms = Val(Text2.Text)

If n Mod kms = 0 Then

For i= ②_______

p = Mid(s，i，1)

If p= "A" or p= "a" Then a = a+l

Next i

Text3.Text = Str(a)

Else

Text3.Text="学生等级信息不正确"

End If

End Sub

请回答下列问题：

（1）、文本框Text3中的文字太小，可以选择图中的（填属性名）属性调整大小。

（2）、将程序中画线处的代码补充完整，使程序能够实现统计功能。

① 处应填；② 处应填。

（3）、程序运行时，在文本框Text1中输入A-ABBBC-CCAA-AAA，Text2中输入3，单击“统计”按钮，则文本框Text3中显示的内容是。

举一反三

[加试题]如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：（）

Private Sub Command1Click()

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程序段：

Dim a(1 to 5) as integer, i as integer, c as integer

a(1)=2: a(2)=1: a(3)=3: a(4)=4: a(5)=5

c=0

for i=3 to 5

if a(i-2)+a(i-1) =a(i) then c=c+1

next i

text1.text = str(c)

该程序运行后，文本框text1中显示的内容是（）

小王喜中新股，为了能预估自己的收益情况，编写“新股收益预期”程序，实现如下功能：在文本框Text1中输入该股票的发行价，在文本框Text2中输入预期涨停个数，在文本框Text3中输入股数，单击“计算”按钮Command1，在列表框List1中依次显示各个交易日的结果信息，并在标签Label4中显示总收益信息。

新股首个交易日的涨停上限为44%，其余的交易日涨停上限为10%，并将相应股票价格四舍五入到分。公式提示：日收益=（本交易日股价-前一交易日股价)×股数

程序运行界面如图所示：

某算法的VB程序段如下:

i = 1: j = 7: s = ""

key = 34

Do While i <= j

m = (i + j) \ 2

If key = a(m) Then

s = s + "2": Exit Do 'Exit Do 表示退出循环

ElseIf key < a(m) Then

j = m - 1: s = s + "1"

Else

i = m + 1: s = s + "3"

End If

Loop

Text1.Text = s

数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（）

某VB程序代码如下：

a = 3

b = 4

c = 5

If a > b Then a = b Else b = a

则程序运行后的a和b的值分别是：（）

在平面坐标系中，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

相关试卷

公司介绍

服务介绍

帮助中心