- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省名校协作体2018-2019学年高二下学期信息技术期末联考试卷

有如下VB程序段：

Dim i As Integer, s As Integer

Dim a (1 To 10)As Integer

For i =1 To 10

a(i)=i^2

If a(i)Mod 3=0 And a(i)Mod 5 =0 Then s= 50000+ a(i)

If a(i)Mod 3=0 Or a(i) Mod 5 =0 Then s =s+ a(i)

Next i

Text1. Text Str(s)

执行该程序段后，下列说法正确的是（）

A、文本框Text1中显示“251” B、文本框Text1中显示“126” C、程序报错，提示“下标越界” D、程序报错，提示“溢出”

举一反三

解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为3715。

PRIVATE SUB FORM__CLICK( ）

S=0

FOR A= 1 TO 5

S=S+（10^A-1）/3

NEXT A

PRINT S

END SUB

相关试卷