算法及程序语言基础 知识点题库

下列逻辑表达式中，值为False的是（    ）

有如下VB程序段：

Private Sub Label1_Click()

  Dim a As Double, b As Single, c As Single

  a = Val(Text1．Text)

  b = Val(Text2．Text)

  c = ( a – b ) / Log(a)

  Label1．Caption = Str(c)

End Sub

能运行该段程序的事件过程名是（   ）

小明编写某 VB 程序，其功能如下：文本框 Text1 里输入数学表达式（假设表达式的

长度小于等于 100），在列表框 List1 里输出所有配对括号在表达式中的位置。例如在文本框 Text1 里入：“12*(3-(1+2))*3”，程序运行效果如图所示。

实现上述功能的 VB 代码如下，在划线的地方填入合适代码，完善程序。Private Sub Command1_Click()

Dim s As String

Dim a(1 To 100) As Integer

Dim i As Integer, top As Integer   s = Text1.Text

i = 1 top = 0

Do While i <= Len(s)

     If Mid(s, i, 1) = "(" Then

        top = top + 1

         

     End If

     If Mid(s, i, 1) = ")" Then

        List1.AddItem Str(a(top)) + "    " + Str(i)

         

     End If

     i=i+1 Loop

End Sub

【排序算法的应用2】双关键字排序:在Excel中可采用双关键字排序，即先按主关键字排序，如主关键字相同再按次关键字排序。小王学习了冒泡排序后，编写了一个VB程序模拟该排序过程。功能如下：在列表框List1中显示排序前数据（存储在数组a、b中），单击“排序”按钮 Command1后，按主关键字数组a升序和次关键字数组b升序排序，排序后的数据在列表框Lis2中显示。程序运行界面如图所示。

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

Const n = 10

Dim a(l To n) As Integer, b(1 To n) As Integer

Private Sub Form_Load

‘ 各产生10个随机整数存入数组a、b,并在列表框List1中显示

‘ 代码略

End sub

Private Sub Command1_Click ( )

Dim i As Integer, j As Integer

i = 1

Do While i < = n-1

      ‘①

  Do While > = i+1

    If a(j) < a(j-1) Then

      temp = a(j): a(j) = a(j-1): a(j-1) = temp

      temp = b(j): b(j) = b(j-1): b(j-1) = temp

       ‘②

      temp = a(j): a(j) = a(j-1): a(j-1) = temp

      temp = b(j): b(j) = b(j-1): b(j-1) = temp

    End if

    j = j-1

  Loop

  i = i+1

Loop

For 1 =1 To n

  List2. AddItem Str(a(1)) + “” + str(b(i))

Next i

End sub

① ② 

有如下 VB 程序段：

 s = 0

 For i = 1 To 10  Step 2

     s = s + i

 Next i

执行该程序段后，变量s和i的值分别为（  ）

有关顺序结构的说法不正确的是（   ）。

蛇形矩阵是由1开始的自然数依次排列成的一个矩阵三角形。小强编写了一个输出n行蛇形矩阵的理序，其功能为在文本框Text1中输入数值n作为蛇形矩阵的行数，点击“输出”按钮Command1后，在List1中显示n行蛇形矩阵，程序界面如图所示。

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

Private Sub Command1_Click( )

  Dim n，a，b As Integer

  Dims As String

  n=Val（Text1.Text）

  For i=1 To n

    s=""

    For j=i To n

            ‘①

      s=s+Str（a）

    Next j

          ‘②

    a=b

    List1.AddItems

  Next i

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：①；②。

下列VB表达式中，值最小的是（    ）。

有如下VB程序，实现从26个英文字母中随机取4个显示在列表框List1中。

st = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

s=””

For i= 1To 4

    t = Int(Rnd*8)*2+11

    If t\10=2Then

      t=t+1

    Else

      t=t-1

    End If

    s=s+Mid(st，t，1)

Next i

List1．AddItem s

执行该程序段后，列表框List1中可能显示的内容是(    )

某垃圾分类VB程序功能如下：在文本框Text1中输入一串字符（数据用逗号分隔，以逗号结尾），单击“统计”按钮Cmd1后，程序实现计算干、湿垃圾的重量及总重量（单位：斤）。输入字符串中的前后两个数字字符为一组，第一个数字字符代表垃圾种类，1表示干垃圾，2表示湿垃圾，第二个数字字符代表该垃圾的重量。例如：输入字符串“2，1，1，12，”，程序统计结果为干垃圾12斤，湿垃圾1斤，总重量13斤。程序运行界面如图所示。

VB表达式 3 + 9 \ 7 * 5 的值是（    ）

下图所示的流程图中C的值为（   ）

某算法的部分流程图如图所示。执行这部分流程，若输入s的值为“picture”，则输出的c、i值分别为（     ）

 

有如下python程序段：

a=[4，5，3， 6， 7，8，2， 9， 1]

m，c=1，1

for i in range(1， len(a))：

    if a[i]>=a[i-1]：

        c+=1

        m=max (m， c)

    else：

        c=1

print(c，m)

则程序执行后，c和m的值分别是(     )

模拟一个简单计算器，实现如下功能：输入两个整数和一个运算符(加、减、乘、除)，进行算术运算，并输出运算结果。程序运行时，依次输入第一个数、运算符和第二个数，输出运算结果。当输入的运算符是加减乘除(+-*/)四种以外的符号时，则输出“运算符不正确”。当进行除法运算时，如果除数为“0”，提示输出“除数不能为0！”。Python 程序实现如下，在划线处填入合适的代码。

a= int (input(请输入第一个数： "))

fh=input ("请输入运算符： ")

b=int (input("请输入第二个数： "))

flag=True

s=

if fh in s：

    if fh=="+" ：

        c=a+b

    elif fh=="-"：

        c=a-b

    elif fh=="*"：

        c=a*b

    else：

        if

           print("除数不能为0！ ")

           flag=False

        else：

           c=a/b

        if flag==True：

           print(运算的结果为： "+)

    else：

        print ("运算符不正确")

编写VB程序，实现如下功能：在程序运行时，在文本框1中输入整数m(1≤m≤10)，单击“生成矩阵”按钮Command1，生成m2个范围为[0,9]的随机整数，随机存储在数组a中，并以m行、m列矩阵的形式在列表框List1上显示。单击“行排序”按钮Command2，对矩阵以“行”为单位完成升序排序，并在列表框List2上显示。运行界面如图所示，程序代码如下：

Dim m As Integer

Dim a(1 To 100) As Integer

Private Sub Command1_Click()

    '输入整数m，并随机产生m2个随机数

    '随机数以m*m 矩阵形式在List1上显示

    '代码略

End Sub

Private Sub Command2_Click()

    Dim i As Integer, j As Integer ,t As Integer, k As Integer,

    Dim s As String

    List2.Clear

    For i = 1 To m * m

        k = i

        For j = i + 1 To      ①    

            If a(j) < a(k) Then k = j

        Next j

        If k <> i Then t = a(k): a(k) = a(i): a(i) = t

            ②    

        If  Then

            List2.AddItem s

            s = ""

        End If

    Next i

End Sub

某APP应用程序的密码强度检测，将密码字符分为数字、字母和其他符号三类。密码强度的检测方法为：

1)若密码位数少于8位，则不进行强度检测，给出提示“密码位数不能少于8位，请重新输入！”。

2)若密码位数在8位及以上，则进行强度检测：

若密码字符属于同一类字符，则密码强度为“弱”；若密码字符属于不同的两类字符，则密码强度为“中等”：若密码字符属于不同的三类字符，则密码强度为“强”。运行样例如下所示：

运行样例1： 请输入你的密码：du@123456 密码强！

运行样例2： 请输入你的密码：du123456 密码中等！

运行样例3： 请输入你的密码：du123 密码位数不能少于8位，请重新输入！

简述对象的属性、事件和方法的定义，并分别列举出实例，分别写出三者在代码窗口的语法格式。

执行这部分流程，输入a，b 的值分别为60，27，则输出的值为(　  　)

下列程序运行结果是。

LET A=10

LET B=5

LET C=INT(B+A/3)

PRINT C

END