【加试题】小明基于选择排序算法编写了一个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

① ②

举一反三

小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：

n = 0 : m = 0

For i = 1 To 100

If Rnd > 0.5 Then

n = n + 1

Else

m = m + 1

Next i

……

小金仔细分析该程序段后，发现其中缺少了（）

编写“小学生除法练习”程序，实现如下功能：在文本框Text1中输入题数n，单击“出题” 按钮Command1，在列表框List1中显示n个两数除法练习题，要求除数和被除数均小于100，除数不能为0，且商为整数。程序运行界面如图所示。

有如下Ｖisual Basic程序：

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next i

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是（）

【加试题】德国数学家哥德巴赫曾猜测：任何大于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中输入一个数，在文本框text2中输入需要转换的进制（小于等于16），点击转换按钮，在标签Label3输出转换后的十进制数，程序运行界面如下图所示：

请在划线处填入合适的代码

Private Sub Command1_Click()

Dim s As String, k As Integer

{#blank#}1{#/blank#}

k = Val(Text2.Text)

Label3.Caption=“对应的十进制数：”+Str(toD(s, k))

End Sub

Function toD(s As String, k As Integer) As Integer

Dim ans As Integer, x As Integer

ans = 0

For i = 1 To Len(s)

If Mid(s, i, 1) >= "A" And Mid(s, i, 1) <= "F" Then

x = Asc(Mid(s， i, 1))- Asc(“A”)十 10

Else

x = Val(Mid(s, i, 1))

End If

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

Next i

{#blank#}3{#/blank#}

End Function

完成以下VB程序代码

①{#blank#}1{#/blank#}

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

相关试卷

公司介绍

服务介绍

帮助中心