29.[单选题] 下面程序段的运行结果为________。 Dim s As Integer, i As Integer i = 1: s = 1 Do i =i + s Loop Until s >20 Print i, s A 21 1 B 20 1 C 溢出 D 21 20

根据提供的程序段，我们可以逐步分析其运行结果。

首先，定义了两个整型变量s和i，并初始化i为1，s为1。

Dim s As Integer, i As Integer

i = 1: s = 1

接着，进入Do循环，循环体中i的值增加s的值。

Do
    i = i + s
Loop Until s > 20

循环会一直执行，直到s的值大于20。由于s在循环体中并没有被修改，它的值始终保持为1。因此，i的值会在每次循环中增加1。

由于s始终为1，所以Loop Until s > 20这个条件永远不会满足，这将导致无限循环。然而，由于i和s都是整型变量，当i的值增加到超过整型变量的最大值时，会发生溢出。

在VB中，整型变量Integer的数据范围是-32768到32767。当i的值超过这个范围时，就会发生溢出。

因此，程序的运行结果将是溢出。

所以正确答案是：

C. 溢出6。