两个整数的平方差称为好数，如，，按从小到大的次序，则第一个好数是3。编写VB程序代码，求出第n个好数是多少。实现如下功能：在文本框Text1中输入要求的第几个好数n，点击“计算”按钮Command1，则在Label2上显示结果，程序运行界面如下图所示：

0 返回首页

1. 两个整数的平方差称为好数，如 $\text{[math]}$ ，，按从小到大的次序，则第一个好数是3。编写VB程序代码，求出第n个好数是多少。实现如下功能：在文本框Text1中输入要求的第几个好数n，点击“计算”按钮Command1，则在Label2上显示结果，程序运行界面如下图所示：

(1) 若要在Text1中填写序数为100，则应修改Text1对象的属性

(2) 为了实现以上程序功能，使程序正常运行，请完善以下两处代码。

Private Sub Command1_Click()

Dim n, k, i ,sAs Integer

s = Val(Text1.Text) : k = 2

Do While n < s

For i = 1 To k \ 2

If k Mod i = 0 Then

If (m + i) Mod 2 = 0 And (m - i) Mod 2 = 0 Then

n = n + 1

Exit For

End If

Next i

k = k + 1

Loop

Label2.Caption = "第" + Text1.Text + "个好数是" +

End Sub

(3) 由上述算法可知，数字21是第个好数。

【考点】

枚举算法及程序实现;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题普通

1. 回文素数是一个既是素数又是回文数的整数。如果一个整数只能被1和本身整除，这个数就是素数。如果一个数从左向右和从右向左读是一样的，这个数就是回文数。

(1) 实现判断回文素数的Python程序如下，请在划线处填入合适的

代码。

def ss(i): #判断素数

for j in range(2,i):

if ① :

return False

return True

def hw(i): #判断回文数

x=i

k=0

while x!=0:

k=k^*10+x%10

②

if k==i:

return True

else:

return False

n=int(input("请输入待检测数据范围:"))

for i in range(2,n+1):

if ③ :

print(i)

程序划线①处应填入的代码为;

程序划线②处应填入的代码为;

程序划线③处应填入的代码为。

(2) 本程序通过判断并输出回文素数,这种算法属于(选填:“解析算法”或“枚举算法”)。

综合题普通

2. 某校内活动需要n（1≤n≤10）名学生迎宾，要求是：男女生站成一排，男生不能相邻，男女生比例大于1/2。考虑到方案只包含了男和女两种情况，可以用二进制的0来代替女生，1来代替男生。当全部是0时最小，此数为0；当全部是1时最大。枚举从0到最大数的每一种情况，逐一判断是否包含男生相邻（二进制1相连），符合的0、1转换为女、男后输出，并在此基础上输出男女生比例较合适的方案（男:女>1/2）。

按上述要求，编写VB程序，功能如下：在文本框Text1中输入n的值，点击“开始枚举”按钮Command1，在列表框List1中输出所有方案，在列表框List2中输出比例合适方案。

实现上述功能的VB程序如下，回答下列问题：

(1) 如果输入的n值等于4，那么男女比例合适的方案有种。

(2) 请在划线处填入合适的代码。

Dim n As Integer, Getstr As String

Private Sub Command1_Click()

Dim i As Integer, j As Integer, mAs Integer

n = Val(Text1.Text)

Getstr = ""

For i = 0 To 2 ^ n -1

m = i

If Then

For j = 1 To n

If m Mod 2 = 0 Then

Getstr = "女" + Getstr

Else

Getstr = "男" + Getstr

End If

m = m \2

Next j

List1.AddItem Getstr

If Team(Getstr) <> "" Then List2.AddItem (Team(Getstr))

Getstr =""

End If

Next i

End Sub

Function search(i As Integer) As Boolean '判读男生是否相邻

Dim j As Integer，t As Integer

Dim a(1 To 15) As Integer

t = i

For j = 1 To n

a(j) = t Mod 2

t = t \2

Next j

flag = True

For k = 1 To n -1

If Then flag = False: Exit For

Next k

search = flag

End Function

Function Team(ch As String) As String '判读男女生比例是否合适

Dim num As Integer, st As Integer, i As Integer，c(0 To 1) As Integer

Team = “”

For i = 0 To 1

c(i) = 0

Next i

For i = 1 To n

st= Mid(ch, i, 1)

If st= "男" Then num=1: c(num)= c(num)+1 Else num =0: c(num)= c(num)+1

Next i

IfThen Team = ch

End Function

综合题困难

3. 问题：在“1390771”号段的11位手机号码中，统计出最后两位数字相同的号码个数。

如13907715200、13907718366是符合条件的两个号码。

算式描述如图所示

请将程序补充完整

Private Sub Form_Cliek()

Dim a As Integer, b As Integer

Dim I As Integer, s As Integer

s=0

For =10000 To 19999

b=(i Mod 100)\10

If a=b Then

End If

Next i

Print“最后两位数字相同的号码个数有：”；

End Sub

综合题普通