程序执行结果s的值是【】.Private Sub Command l-Click （)I =0DoS= I +SI = I + lLoop Until I ＞=4

9.程序执行结果s的值是 [9] 。

Private Sub Commandl_Click()

i = 0

Do

i = i + l

s = i + s

Loop Until i ＞ = 4

Print s

End Sub

【题目描述】

第 40 题

9.程序执行结果s的值是[9]。

Private Sub Commandl_Click()

i = 0

Do

i = i + l

s = i + s

Loop Until i ＞ = 4

Print s

End Sub

【我提交的答案】：15

【参考答案分析】：

97

【我的疑问】（如下，请求专家帮助解答）

不明白

执行下列程序:

CLEAR

DO A

RETURN

PROCEDURE A

PRIVATE S

S=5

DO B

？S

RETURN

PROCEDURE B

S=S+10

RETURN

程序的运行结果为

A．5

B．10

C．15

D．程序错误,找不到变量

执行下列程序： CLEAR DO A RETURN PROCEDURE A PRIVATE S S＝5 DO B ？S RETURN PROCEDURE B S＝S+10 RETURN 程序的运行结果为

A．5

B．10

C．15

D．程序错误，找不到变量

下列程序段的执行结果为 Private Sub Command1_Click() a=InputBox("请输入a值") c="您要查询的是" &IIf(a＞0，"天气"，" ") &IIf(a＜0，"电话号码"，" ") &IIf(a=0，"邮编"，" ") Text1.Text=c End Sub程序运行后，如果从键盘上输入"16"，则在文本框显示的内容是______。

A．您要查询的是天气

B．您要查询的是邮编

C．您要查询的是电话号码

D．False

单击命令按钮，并在对话框内依次输入99，73，84，88，-1，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim S As Single, max As Single, min As Single n=0 S=InputBox("Please enter a score") max=S min=S Do While S＞=0 If S＞max Then max=S End If If S ＜ min Then min=S End If S=InputBox("Please enter a score") n=n+1 Loop Print n; ":"; max, min End Sub

A．4:99,88

B．4;99,73

C．4:99,73

D．4;99,88

下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；="abcdef" Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub

A．fedcba

B．abcdef

C．afbecd

D．defabc

为计算10+21+22+23+24+…+210的值，并把结果显示在文本框Textl中，若编写如下事件过程：

Private Sub Commandl_Click()

Dim a％，s％，k％

S=1

a=2

FOr k=2 To 10

a=a*2

S=S+a

Next k

Text1，Text=s

End Sub

执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是

A．把s=1改为s=0

B．把For k=2 TO 10改为For k=1 To 10

C．交换语句S=s+a和a=a*2的顺序

D．同时进行B.C两种修改

为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：

Private Sub Command1 Click（）

Dim a％，s％，k％

s=1

a=2

For k=2 To 10

a=a*2

s2 s+a

Next k

Text1．Text=s

End Sub

执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是（）。

A.把s=1改为s=0

B.把For k=2 T0 10改为For k=1 T0 10

C.交换语句s=s+a和a=a*2的顺序

D.同时进行B、C两种修改

下列程序的作用是求所有小于或等于30的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。

注：自然数对是指两个自然数的和与差都是平方数(如8与17)。

Private Sub Command1_Click()

Dim n As Long

Dim m As Long

Dim s As Single

Dim d As String

For n=1 To 30

For m=1 To【 】

s =n+ m

【 】

If Sqr (s)=Int(Sqr(s))【 】Sqr(D)=Int(Sqr(D))Then

Print n：m

End lf

Next m

Next n

End Sub