0 返回首页
1. 某校内活动需要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
【考点】
枚举算法及程序实现;
【答案】

您现在未登录，无法查看试题答案与解析。 登录
综合题 困难
能力提升
真题演练
换一批
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. 两个整数的平方差称为好数，如 ，，按从小到大的次序，则第一个好数是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

        End If

    Next i

    k = k + 1

 Loop

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

End Sub
(3) 由上述算法可知，数字21是第个好数。
综合题 普通
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

a=

b=(i Mod 100)\10

If a=b Then

s=

End If

Next i

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

End Sub
综合题 普通