当前位置: 高中信息技术 / 综合题
  • 1. (2020高二下·台州期末) 编写“数对查询”程序,实现如下功能:生成11个随机整数存入数组,并在标签Label1中显示。在文本框Text1中输入一个正整数,单击“搜索”按钮Command1,在数组中查找和为该正整数的两个数,并在列表框List1中输出查询结果。程序运行界面如图所示:

    实现上述功能的VB程序如下:

    Const n=11

    Dimd(1 To n)As Iteger

    Private Sub Form_ Load( )

        '生成n个随机整数存入数组d,并在Label1中显示,代码略

    End Sub

    Private Sub Command1_Click( )

        Dim sum As Integer, L As Integer, R As Integer, c As Integer

            ①   

        c=0

        For L=1 To n-1

            R=n

            Do While L< R

                If   ②    Then

                    List1.Addtcem Str(d(L))& " " & Str(d(R))

                    c=c+1

                    Exit Do      'Exit Do表示退出循环

                Else

                    

                End If

            Loop

        Next L

        List.Addtem "找到和为" "& Str(sum)& "的数对共" & Str(c)&"组"

    End Sub

    请回答下列问题:

    1. (1) 在设计程序界面时,要修改文本框Textl中文字的字体大小,可修改文本框的属性(单选,填字母: A .Text/B .Width/C .Font )。
    2. (2) 请在划线处填入合适的代码。

       ② 

    3. (3) 程序中加框处代码有错,请改正。
    4. (4) 根据程序,若文本框Text1中输入内容为28,则能找到满足条件的数对组数为

微信扫码预览、分享更方便