【加试题】小明基于选择排序算法编写了一个VB程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。实现上述功能的VB程序如下，但加框处代码有错，请改正。 Const n = 50 Dim d(0 To n) As single , name(1 to n) as string '读入50个学生的身高，依次存入d(1...

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

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

【加试题】小明基于选择排序算法编写了一个VB程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 50

Dim d(0 To n) As single , name(1 to n) as string

'读入50个学生的身高，依次存入d(1)…d(50),姓名存入name(1)…name(50) '代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, temp As single, k As Integer,r as string

d(0) = 2

For i = 1 To 10

①

For j = i To n

If d(j) < d(i - 1) Then

If ② Then

k = j

End If

Next j

If k <> i Then

temp = d(k): d(k) = d(i): d(i) = temp

r=name(k) : name(k)=name(i) : name(i)=r

End If

Next i

For i = 1 To 10 ‘输出被选的10个人的名字和身高。

List2．AddItem name(i) & d(i)

Next i

End Sub

① ②

举一反三

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

请回答下列问题：

某VB程序段如下:

Dim a(1 To 5) As Integer, i As Integer

a(1)=1: a(2)=1

For i=3 To 5

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

Next i

Text1.Text=Str(a(i-1))

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

字符串中任意个连续的字符组成的子序列称为该字符串的子串，如字符串“123” 的子串有“1”、“2”、“3”、“12”、“23”、“123”。输出字符串s所有子串的VB程序段如下：

s = Text1.Text

List1.Clear

len1 = Len(s) ‘①

For i = 1 To len1 ‘②

For j = 1 To len1- i ‘③

List1.AddItem Mid(s, j, i) ‘④

Next j

Next i

运行时发现未输出所有子串，则修改（）

下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是{#blank#}1{#/blank#}。

Private Sub Command1_Click()

Dim t As Single, h1 As Single, h2 As Single

Const g = 9.8

t = Val(Text1.Text)

h1 = (g * t ^ 2) / 2

h2 = Int(h1)

Text2.Text = Str(h2)

End Sub

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图1所示。

图1

图2

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"类型不匹配"错误时所执行的语句是（）

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 10 '①

b = 20 '②

Text1.Text = "a+b=" + Val(a + b) '③

End Sub '④

相关试卷

公司介绍

服务介绍

帮助中心