程序的调试及运行 知识点题库

程序运行后，单击Command1命令按钮，变量x的值为

Private Sub Command1_Click()

  n = 6

  x = 1

For i =1 To n

  x = x * i

Next

End Sub（   ）

Visual Basic中窗体文件的扩展名为（   ）

以下Visual Basic程序的功能是：在文本框Text1中输入一个两位数x，将个位上的数和十位上的数互换组合成新的两位数y，并在文本框Text_2中输出新数。

Private Sub Command1_Click()

Dim x As Integer, y As Integer

Dim i As Integer, j As Integer

  x=val(text1.text)

i=x \ 10

 _____________  ①

y=j*10+i  

 Text1.Text = y    ②

End Sub     

【加试题】一个二进制数字串的压缩算法是取二进制字符串的首字符为压缩后的第一个符号，接着统计首字符的个数，二者连接后再连接一个分隔符“/”，接着是另一个连续字符的个数，再是分隔符“/”，……以此类推，直到结束。小明编写了一个VB程序实现上述算法，在文本框Text1中输入一串二进制数字，单击“压缩”按钮Command1，在文本框Text2中输入连续1和0的个数。程序运行界面如图所示。

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

Private Sub Command1_Click()

  Text2．Text=coding(Text1．Text)

End Sub

Private Function coding(s As String)As String

 Dim n As Integer，i As Integer，C As String

 c=Mid(s，1，1)

n=1

 For i=2 To Len(s)

    If  Then    ‘(1)

       n=n+1

    Else

      c=c+Str(n)+“／”

      n=1

    End If

  Next i

  coding=     ‘(2)

End Function

编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮（Command1），在标签Label3中显示起始值与结束值之间所有奇数的和。界面如1图所示。

1图

2图

某VB程序代码如下：

a = 3

b = 4

c = 5

If a > b Then a = b Else b = a

则程序运行后的a和b的值分别是：（   ）

有如下VB程序段：

Dim x As Integer, y As Integer, s As Integer

    x=3:y=4

    If x<y And y<0 Then

        s=x Mod y

    ElseIf y>0 and y<x Then

        s=x*y

    ElseIf x=0 Or y=0 Then

        s=x+y

    Else

        s=0

    End If

该程序段运行之后，变量s的值为（  ）

现要编写一个统计2018~2100年间闰年次数的程序。已知出现闰年条件是：年份数能被4整除但不能被100整除，或者能被400整除。如图所示，要求程序运行后单击按钮，在列表框中显示闰年年份，并将统计次数显示在Label1。

【加试题】数字个数统计。编写VB程序，实现如下功能：在文本框Text1中输入仅由ASCII码字符组成的字符串（长度不超过100），单击“数字统计”按钮Command1，在列表框List1中输出字符串中包含的不同数字及其相应的个数，程序运行效果如下图所示。

编程求数字之和，功能如下：在文本框Text1中输入由大小写英文字母和数字混合的字符串，要求程序自动计算数字之和，数字被单个的英文字母隔开（数字在一起的必须看成一个整体）。运行程序时，单击“计算”命令按钮Command1，在标签Label1中输出数字之和。程序运行界面如图所示，实现功能的VB代码如下：

请回答下列问题：

下列程序段运行后，输出“*”的个数是(   )

For i = 2 To 10

  Print  "*"

Next i

阅读下列程序，写出运行结果。

Dim a as Integer

Dim b as Integer

Dim c as Integer

a = 1

b = 1

For i = 1 To 4

    c = a+b

    a = b

    b = c

Next i

Print c

运行结果是：

有以下程序段：

n=int(input(“请输入数字：”))

if n>5 :

  print(4*n)

else :

  print(7*n)

如果输入5，则程序运行的结果为（   ）

下面的程序段运行后的结果为（    ）

s=0

for i in range（1，6，2）：

  s=s+i

print（s）

有如下VB程序段：

i = 1: j = 10

x = Int(Rnd * 50) * 2 + 1

Do While i <= j

    m = (i + j) \ 2

    If x = f(m) Then Exit Do

    If x < f(m) Then

        j = m - 1

    Else

        i = m + 1

        s = s + Str(m)

Loop

数组元素f(1)到f(10)的值依次为：3,6,9,11,18,20,25,39,76,98，该程序运行后，s的值不可能的是（    ）

有如下VB程序段：
s = "spring winter"：s1 = ""

n = Len(s)

For i = 1 To n \ 2

    If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then s1 = s1 + Mid(s, i, 1)

    Else

        s1 = Mid(s, n - i + 1, 1) + s1

    End If

Next i

Text1.Text = s1

执行该程序后，在文本框Text1中显示的是 （   ）

阅读下面一段程序，运行后可能会出现什么结果（   ）

Private Sub Command1_ Click ()

    Dim i As Integer

    For i=1 To 10

        If Not i Mod 2=0 or i Mod 5=0 Then

            Print i

    Next i

End Sub

李强调试“求三角形面积”VB程序时，显示“s=d×g÷2”出错，如下所示，其出错的原因是（   ）

Private Sub Command1_Click()

    Dim d As Single, g As Single, s As Single     ‘定义程序中使用的变量

    d = Val(Text1. Text)     ‘在Text1中输入三角形的底

    g = Val(Text2. Text)     ‘在Text2中输入三角形的高

    s = d×g÷2     ‘计算三角形面积

    Text3. Text = s     ‘在Text3中显示面积值

End Sub

垂直升降式电梯里的显示屏会动态显示朝上或者朝下的箭头。小郑编写了一个VB程序，模拟箭头往上、往下的移动，以及箭头方向的调转。运行程序时，数组元素a(1)到a(64)存储0或1（如图1），分别表示空字符和星号，并在列表框List1中显示相应的图形（如图2）。单击“上移”按钮，箭头向上移动一个位置，超出上边界的图形则继续从下边界往上移（如图3）；单击“下移”按钮，箭头向下移动一个位置；单击“调头”按钮，则切换箭头的上下朝向。

请回答下列问题：

有一段 Python代码及其运行结果如下

小明在代码中插入了语句“df_delc＝df.drop(0)”， 其余不做修改，那么运行这段修改后的代码，其运行结果为( )