南京工业大学VB题库2

题号：7491

执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是_____。

A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体 B、启动窗体和其他窗体一样可以隐藏和关闭 C、启动窗体一般作为用户工作的界面，不可更改

D、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性”

答案： C

题号：7473

在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的

窗口是____________。

A、立即窗口 B、代码窗口 C、窗体布局窗口 D、监视窗口

答案： B

题号：7479

VisualBasic集成的主窗口中包括_____。

A、标题栏 B、工具栏 C、菜单栏 D、以上三者均有

答案： D

题号：8027

当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_____。

A、文本框的MultiLine属性为False B、文本框中没有内容

C、文本框的MultiLine属性为True D、文本框的Locked属性为True

答案： A

题号：8003

使用_____方法，可以将列表框List1中的所有项删除掉。

A、AddItem B、RemoveItem C、List1.Txt=\"\" D、Clear

答案：

D

题号：8021

某过程有语句Frm1.Caption=\"Hello\在界面设计时，该窗体的标题属性取缺省值，则执行该语句前后，

标题、属性值分别为_____。

A、Form,Hello B、Form1,Hello C、Frm1,Hello D、Form1,Frm1

答案： B

题号：8008

复选框的Value属性为1时，表示_____。

A、复选框未被选中 B、复选框内有灰色的勾 C、复选框被选中 D、复选框操作有误

答案： C

题号：8047

如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_____状态。

A、不显示 B、选中 C、禁止 D、不选中

答案： B

题号：8546

MsgBox函数返回值的类型为____________。

A、长整型 B、数值或字符串 C、字符串 D、变体

答案： A

题号：8529

表达式Len(\"123程序设计ABC\")的值是____________。

A、10 B、20 C、17 D、14

答案：

A

题号：8511

下列说法正确的是________。

A、a$=\"Visual\则a$ & b$ 和a$ + b$结果都是\"VisualBasic\" B、(7-3<=4) Xor (1>-1) Or (7=5)的结果是True

C、设i=1,x=2,y=2,则x<2 Or Not y>0 And (x-y)/i<>0的结果是True D、(Not True Or True) And (True Or False) 的结果是False

答案： A

题号：8513

在Form_Click事件中执行下列语句后错误的结果是________。

A、Print Format(12345.6, \"+##,##0.0%\")的输出结果是+1,234,560.0% B、Print Format(12345.6, \"$###,##0.00\")的输出结果是$12,345.60 C、Print Format(12345.6,\"000,000.00\")的输出结果是012，345.60 D、Print Format(12345.6, \"0.00E+00\")的输出结果是0.12E+05

答案： D

题号：8528

与数学表达式 (ab/3cd) 对应，VB的不正确表达式是____________。

A、a*b/3*c*d B、a*b/3/c/d C、a*b/(3*c*d) D、a/3*b/c/d

答案： A

题号：8537

下列可以将变量A、B互换的语句是____________。

A、A=B: B=C: C=A B、A=A+B: B=A-B: A=A-B C、A=(A+B)/2: B=(A-B)/2 D、A=C: C=A

答案： B

题号：8498

有变量定义语句Dim a, b As integer, 变量a的类型和初值是________。

A、String,\"\" B、Integer,0 C、Long,0,0 D、Variant,空值

答案： D

题号：8563

下面的表达试的值为真的是________。

A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12) B、78.9/32.77 < = 97.5/43.97 AND -45.4 > 4.98 C、“ABCRG” > ”abcde”

D、Int(134.69) > Cint(134.69)

答案： A

题号：8494

下面叙述中正确的是______________ .

A、Space函数能用于Print方法中，也能用于表达式 B、以上说法均不对

C、Spc函数与Space函数均生成空格，没有区别 D、Spc函数能用于Print方法中，也能用于表达式

答案： B

题号：8492

下列叙述不正确的是___________ .

A、代码中加入注释语句的目的的提高程序的可读性

B、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 C、注释语句可以放在代码中的任何位置 D、注释语句不能放在续行符的后面

答案： C

题号：8533

下列字符串中________________是合法变量。

A、x \\ y ,x>y B、exp,123,x * y

C、char_1,student,No,a1234 D、end ,1bcx

答案： C

题号：8538

如果将布尔常量False赋值给一个整形变量，则整型变量的值为____________。

A、0 B、-1 C、False D、True

答案： A

题号：8344

以下语句执行时，从键盘上输入Zhang，执行结果是_____。 Dim a As String

a=InputBox(\"Input\

Print a

A、Inprt B、Zhang C、Name D、空字符串

答案： B

题号：8326

下列程序的输出结果是_____。 Dim y As Integer y=10

Do While y<>0 y=y-1 Loop

Print \"y=\";y

A、y=-1 B、y=0 C、y=随机值 D、y=1

答案： B

题号：8339

下面语句错误的是_____。

A、If a=1 Then c=2

ElseIf a=2 Then c=3 End If

B、If a=1 And b=2 Then c=3 End If

C、If a=1 Then c=2

ElseIf a=2 Then c=3 End If

D、If (a=1,2,3 ) Then c=2

答案： D

题号：8331

下面程序的内层循环次数是_____。 For i=1 TO 3 For j=1 TO i For k=j TO 3

... Next k Next j Next i

A、3 B、14 C、9 D、21

答案： B

题号：8318

结构化程序设计方法的核心是规定了三种基本结构：_____结构、分支结构、循环结构。

A、顺序 B、条件 C、逻辑 D、当型

答案： A

题号：8347

有如下程序：

Private Sub Command1_Click( ) score=65

select Case score Case Is<60 a$=\"F\" Case 60 To 69 a$=\"D\" Case 70 To 79 a$=\"C\" Case 80 To 89 a$=\"B\" Case else a$=\"A\" End Select MsgBox a$ End Sub

程序运行后，消息对话框中显示的内容为_____。

A、D B、B C、A D、C

答案： A

题号：8370

执行以下语句后，a的值为_____。 Dim a As Integer a=1

Do Until a=100 a=a+2 Loop

A、溢出 B、100 C、99 D、101

答案： A

题号：8351

在窗体（Name属性为Fomal）上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮

（Name属性为Command1），程序如下。执行后结果为_____。 Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub

Private Sub Form_load() Text1.Text=\"123\" Text2.Text=\"321\" End Sub

A、132231 B、444 C、123321 D、321123

答案： C

题号：8325

下列程序：

Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub

运行后输出的结果是_____。

A、15 B、1 C、90

D、120

答案： A

题号：8356

在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click( ) Dim a As Integer,b As Integer Do While b <100 b=b+5 a=a+b

If b>20 Then Exit Do Loop

Print a,b End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____。

A、75 20 B、75 25 C、50 20 D、50 25

答案： B

题号：8319

哪个程序段不能分别正确显示1、2、6、24的值_____。

A、For i=1 To 4 n=1

For j=1 To i N=n*j Next j Print n Next i B、n=1 For j=1 To 4 N=n*j Print n Next j C、n=1 j=1

Do While j<=4 n=n*j Print n j=j+1 Loop

D、For i=1 To 4 For j=1 To i

n=1 n=n*j Next j Print n Next i

答案： D

题号：8359

在窗体上添加一个命令按钮，名为Command1，一文本框，名为Text1,则执行如下事件过程后，文本框中

的输出为_____。

Private Sub Command1_Click( ) For i = 1 To 4 x = 3

For j = 1 To 3 For k = 1 To 3 x = x+3 Next k Next j Next i

Text1.Text=Str(x) End Sub

A、18 B、30 C、12 D、6

答案： B

题号：8333

下面程序段，显示的结果是_____。 Dim x

x=Int(Rnd)+5 select Case x Case 5

print \"优秀\" Case 4

print \"良好\" Case 3

print \"通过\" Case Else print \"不通过\" End Select

A、通过 B、不通过

C、良好 D、优秀

答案： D

题号：8336

下面程序是一个求最大公约数的程序，执行程序后，m的值为_____ Dim m As Integer, n As Integer m=200 n=150

If n*m=0 Then Exit Sub If mt=m: m=n: n=t End If Do

r=m Mod n m=n n=r

Loop While r<>0 Text3=m

A、50 B、100 C、200 D、150

答案： A

题号：8343

以下程序段运行后，消息框的输出结果是 a=sqr(5) b=sqr(3) c=a>b

Msgbox c+2

A、2 B、-1 C、1 D、出错

答案： C

题号：8261

以下有关数组的说明中，错误的是________。

A、在过程中，不能用Private语句定义数组。

B、数组重新定维后，原有的数组元素内容将不予保留。

C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。 D、根据数组说明的方式，可将数组分为动态数组和静态数组。

答案：

B

题号：8300

下面关于动态数组的叙述中，不正确的是__________。

A、用ReDim语句重新定义动态数组时，不能改变数组的数据类型，除非是Variant变量所包含的数组

B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组被赋予该类型变量的初始值

C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组 D、在重新定义动态数组时，变量不可以出现在维界表达式中

答案： B

题号：8301

假设数组A(2,4)各元素已赋值，执行以下语句段将______输出其所有元素的值。 For Each elem In A Print elem Next elem

A、按赋值的先后顺序 B、按列 C、按行 D、随机

答案： B

题号：8260

Option Base 1

Private Sub Command1_Click() Dim a%(3, 3) For i = 1 To 3 For j = 1 To 3

If j > 1 And i > 1 Then

a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1 Else

a(i, j) = i * j End If

Print a(i, j); \" \"; Next j Print Next i End Sub

A、1 2 3 2 4 6 3 6 9 B、1 2 3 1 2 3 1 2 3

C、1 1 1 2 2 2 3 3 3 D、1 2 3 2 3 1 3 2 3

答案： D

题号：8262

如下二维数组声明语句，____________正确。

A、Dim a(n，n) As Integer B、Dim a(3，4) As Integer C、Dim a(34) As Integer D、Dim a[3，4] As Integer

答案： B

题号：8258

要分配存放如下方阵的数据，____________数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9

A、Dim a(3，3) As Single

B、Dim a(-1 To l，-5 To -3) As Single C、Dim a(-3 To -1，5 To 7) As Integer D、Dim a(9) As Single

答案： B

题号：8263

如下数组声明语句，则数组a包含元素的个数有____________。 Dim a(3 , -2 to 2 , 5)

A、75 B、13 C、60 D、120

答案： D

题号：8283

下面的语句或方法，错误的有个________（其中m和n都为Integer型变量）。 ①dim Arry(m,n) As Integer ②n = 32764 + 5

③Print A = A + B;A+B ④ChDrive \"C:\"

A、1 B、3 C、2 D、4

答案： C

题号：8279

在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click( ) Dim a As Variant a = Array(1,2,3,4) j = 1

For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print s End Sub

运行上面的程序，单击命令按钮，其输出结果是_____________。

A、1234 B、34 C、12 D、4321

答案： A

题号：8278

程序代码如下，当单击窗体上Command1控件时，窗体上显示的结果是_________。 Option Base 1

Private Sub Command1_Click( ) Dim i As Integer Dim x(3,3)As Integer For i = 1 To 3 For j = 1 To 3

x(i,j) = (i-1) * 3+j Next j Next i

For i = 1 To 3 Print x(i,4-i) Next i End Sub

A、1 4 7 B、3 5 7 C、3 6 9 D、1 5 9

答案： B

题号：8286

对窗体编写如下代码： Option Base 1

Private Sub Command1_Click( ) a=Array(237,126,87,48,498) m1=a(1) m2=1

For i=2 To 5

If a(i)>m1 Then m1=a(i) m2=i End If Next i

Print m1;m2 End Sub

程序运行后，按回车键，输出结果为_________。

A、237 1 B、498 5 C、498 4 D、48 4

答案： B

题号：8274

运行以下程序段，输出结果是____。 Dim a(1 To 10) Dim p(1 To 4) k = 5

For i = 1 To 4 p(i) = i * 2 Next I

For i = 1 To 4 k = k + p(i) * 2 Next I Print k

A、30 B、45 C、32 D、48

答案： B

题号：8259

某过程的说明语句中，正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer

Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer

A、②③ B、③④ C、①②④ D、①③④

答案： B

题号：8277

以下程序的输出结果是_________。 Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer, p(3) As Integer k=5

For i=1 To 10 a(i)=i Next i

For i=1 To 3 p(i)=a(i*i) Next i

For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub

A、28 B、35 C、33 D、37

答案： C

题号：8282

下列语句中的语句可以用来正确地声明一个动态数组。

A、Dim A() As Integer B、Private A(n) As Integer C、Dim A(,) As Integer D、Dim A(1 to n)

答案： A

填空

题号：7496

Visual Basic程序在运行时中，用户可通过按_____键进入中断状态。

答案： 空 1:

Ctrl+Break 【或】 ctrl break 【或】 Break+Ctrl 【或】 crtl+break 【或】 crtl break 【或】 ctri+break 【或】 ctrl-break 【或】 Control+Break 【或】 Ctrl Break 【或】 ctrlbreak

题号：8071

当文本框中的内容改变时，将会发生_____事件。

答案： 空 1:

Change 【或】 Chang 【或】 charge 【或】 change 事件 【或】 Chang 题号：8072

Visual Basic中的控件分为两类，一类是_____控件，另一类是ActiveX控件。

答案： 空 1:

标准 【或】 标准控件 【或】 基本 【或】 标准模块 题号：8068

要把Label控件的背景设置为透明，可把该控件的_____（填英文）属性设置为_____(填数字)。

答案： 空 1:

BackStyle 【或】 backstlye 空 2: 0 【或】 o 题号：8483

有如下程序代码:

Private Sub Command1_Click() m$ = \"XYZ\" n$ = \"xyz\"

k$ = LCase$(m$) j$ = UCase$(n$) MsgBox Asc(k$ + j$) End Sub

程序运行后消息对话框显示_____。

答案： 空 1: 120 题号：8467

输入一个三位的正整数，将之反向输出。如输入123，则输出321，完善下列程序。 Private Sub Command1_Click( )

Dim a As Integer, b As Integer, c As Integer, m As Integer m = InputBox(\"输入一个正整数\") a = m\\100

b = (m-a * 100)\\10 c =_____

MsgBox \"结果=\"+ Str(c*100+b*10+a) End Sub

答案： 空 1:

m mod 10 【或】 m-a*100-b*10 【或】 m - a * 100 - b * 10 【或】 m mod 100 【或】 c=m Mod 10 【或】 (m -a* 100) mod 10 【或】 m-100*a-10*b 【或】 m-(a*100+b*10) 【或】 (m-a*100-b*10)\\1

题号：8479

下列函数调用时弹出的对话框中按钮的个数为_____。 MsgBox (\"程序非法！\消息提示\")

答案： 空 1: 3 【或】 3个 题号：8464

表达式7^2Mod 5^2\\3的值为_____

答案： 空 1: 1

题号：8470

X是小于100的非负数，对应的表达式是_____.

答案： 空 1:

x>0 and x<100 【或】 x>=0 and x< 100 【或】 x>0 and x<100 【或】 x<100 and x>0 【或】 X <= 100 And X >= 0 【或】 x>=0 and x <100 【或】 x<100 And x>=o 【或】 Abs(X)=X AND X<100 【或】 0<=x and x<=100 【或】 x<100 and x=>0 【或】 X > = 0 and X < 100 【或】 x>=0andx<100 【或】 x>=0 And x<100 【或】 0<=x and x<100 【或】 x<100 and x>=0

题号：8431

下面程序的功能是判断100～999之间的所有素数，所谓素数是指只能被1和它本身整除的数。完善下列程序。

Private Sub Form_Click( ) Dim i As Integer Dim k As integer For i=100 To 999 For k=2 To i-1 If _____Then _____ End If Next k

If _____Then Print i End If Next i End Sub

答案： 空 1:

i Mod k=0 【或】 i mod k =0 【或】 i mod k = 0 【或】 i Mod k =0 空 2: Exit For 空 3: k=i

题号：8380

运行以下程序，输出i的值为_____，p的值为_____。 Private Sub Command1_Click() Dim p As Integer, i As Integer p = 1

For i = 1 To 5

p = p + (2 * i - 1) / (2 * i + 1) If p >= 20 Then Exit For Next i Print i, p End Sub

答案： 空 1: 6 空 2: 5 【或】 6 题号：8441

以下程序段的输出结果是_____。 Dim j As Integer,s As Integer Do s=s+j j=j+1

Loop Until j=5 Print \"s=\"; s

答案： 空 1:

s=10 【或】 10 题号：8374

下面语句运行后的输出结果是_____。 Private Sub Command1_Click() x=0

Do While x<10 x=x+1 x=x*x Loop Print x End Sub

答案： 空 1: 25 题号：8384

执行下面的程序，单击窗体后在窗体上显示的第三行是_____ Private Sub Form_click()

Dim mystr, mystr1, mysrr2 As String

mystr1 = \"E\" For i = 1 To 3

mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mystr & mystr1 Print mystr

mystr1 = Chr(Asc(mystr1) + i) Next i End Sub

答案： 空 1: EeFfHh 题号：8444

执行下面的程序，在窗体上显示的输出结果的第一行是_____，第二行是_____。 Option Explicit

Private Sub Form_Click()

Dim s As String, i As Integer, flag As Boolean s = \"THIS IS A BOOK\" s = LCase(s) Print s flag = True

For i = 1 To Len(s)

If Mid(s, i, 1) = \" \" Then flag = True

ElseIf flag Then

s = Left(s, i - 1) & UCase(Mid(s, i, 1)) & Right(s, Len(s) - i) flag = False End If Next i Print s End Sub

答案： 空 1:

this is a book 空 2:

This Is A Book 题号：8401

下面程序的运行结果是在窗体中显示的： Private Sub Command1_Click( ) For k=1 To 4

If k<=1 Then a =2+k If k<=2 Then a =2-k If k<=3 Then a =2*k If k>=4 Then a =k/4

Print a; Next k End Sub

运行后窗体上显示的是_____。

答案： 空 1: 2 4 6 1 题号：8386

以下程序运行后，si、sj、sk的结果分别是_____，i、j、k的结果分别是_____。 Private Sub Command1_Click() si=0:sj=0 For i=1 To 3 For j=1 To i sk=0

For k= j To 3 sk=sk+1 Next k sj=sj+1 Next j sj=si+1 Next i End Sub

答案： 空 1:

0 1 1 【或】 0 1 1 【或】 0 1 1 【或】 0,1,1 【或】 0 1 1 【或】 O 1 1 空 2: 4 4 4 题号：8415

有下列程序

Private Sub Command1_Click() a$ = \"1223458764\" For i = 2 To Len(a$) z$=Mid$(a$,i,1)

If z$>d$ Then d$ = z$ Next i Print d$ End Sub

运行后窗体上显示的是_____。

答案： 空 1: 8

题号：8435

输入一个正整数 k，求各位数字之和。请将下列程序补充完整。 程序代码如下： Option Explicit

Private Sub Command1_Click( ) Dim Sum As Integer, k As Long k = Val(Text1.Text) Do While K>0

Sum = Sum + _____ k = k\\10 Loop

Text2.Text = Str(Sum) End Sub

答案： 空 1:

k mod 10 【或】 (k mod 10) 题号：8113

打印如下图所示的杨辉三角形。 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1

完善下列程序。

Private Sub Command1_Click( )

Dim P(5, 5) As Integer, i As Integer Dim j As Integer, n As Integer For i = 1 To 5 P(i, 1) = 1 P(i, i) = 1 Next i

For i = _____

For j = 2 To i - 1 P(i, j) = _____ Next j Next i

For i = 1 To 5 For j = 1 To i s = Str(P(i, j))

Print Space(4 - n); P(i, j); Next j Print Next i End Sub

答案： 空 1:

3 To 5 【或】 1 to 5 【或】 for i=3 to 5 【或】 2 To 5 空 2:

P(i - 1, j - 1) + P(i - 1, j) 【或】 p(i-1,j)+p(i-1,j-1) 【或】 p(i-1,j-1)+p(i-1,j) 【或】 p(i-1,j-1)+p(i-1,j 【或】 p(i-1,j-1) + p(i-1,j) 【或】 p(i-1, j)+p(i-1,j-1) 【或】 p(i-1,j) + P(i-1,j-1) 【或】 p(i-1,j-i)+p(i-1,j)

题号：8114

以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值. dim x() as integer

private sub command1_click() redim _____ for i=1 to 20 x(i)=1 print x(i) next i end sub

答案： 空 1:

x(1 to 20) 【或】 x(20) 【或】 x(20) as Integer 【或】 x(1 to 20)as interger 【或】 x(1 to 20) as integer 【或】 x(1 to 20) as integer 【或】 x(20) 【或】 x (20) as Integer 【或】 x（20） as integer 【或】 x（20） 【或】 x(1 to 20)As integer 【或】 x(20) as intenger 【或】 x（20）as integer 【或】 preserve x(20) as integer 【或】 preserve x(1 to 20) 【或】 preserve x(20) 【或】 x(20) 【或】 x(1 to 20) as integer 【或】 x(20) as Interger 【或】 a(20) as integer

题号：8117

下面的程序用\"冒泡\"法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1

Private Sub Command1_Click( ) Dim a,i,j,k As Integer

a=Array(678,45,324,528,439,387,87,875,273,823) For i=_____ For j=_____

If a(i)_____a(j) Then a1=a(j):a(j)=a(i):a(i)=a1 End If Next j Next i

for k=1 To 10 Print a(k); Next k End Sub

答案： 空 1:

1 to 9 【或】 1 To 9 空 2:

i+1 to 10 【或】 i + 1 to 10 【或】 i+1 TO 10

空 3:

>= 【或】 > 题号：8115

以下程序段产生100个1-4之间的随机整数，并进行统计。数组元素s(i)的值表示等于i的随机数的个数，要求输出如下格式： s(1)=…… s(2)=…… s(3)=…… s(4)=……

将程序补充完整。

Private Sub Form_Click() Dim s(4) As Integer Randomize _____

x = Int(Rnd * _____ + 1) s(x) = s(x) + 1 Next i _____

Print _____ Next i End Sub

答案： 空 1:

for i=1 to 100 【或】 for i=1to 100 【或】 For i =1 To 100 【或】 for i = 1 To 100 【或】 For i=1 to 100 【或】 For x = 1 to 100 【或】 for i= 1 to 100 【或】 i=1 to 100 空 2: 4 空 3:

for i=1 to 4 【或】 for i = 1 to 4 【或】 for i= 1 to 4 【或】 i=1 to 4 空 4:

\"s(\" & i & \")=\";s(i) 【或】 \"s(\";i\")\";\"=\";s(i) 【或】 \"s(\" & i & \")=\" & s(i) 【或】 \"s(\";I;\")=\";s(i) 题号：8116

执行下面程序后，A(1，3)的值是_____，A(2，2)的值是_____，A(3，1)的值是_____。 Option Explicit Option Base 0

Private Sub Form_Click( )

Dim A(3,3)As Integer,I As Integer Dim k As Integer,m As Integer m=16

For k=6 To 0 Step -1 If k>=2 Then For I=0 To 5-k A(k-2+I,I)=m m=m-1

Next I Else

For I=0 To k A(k-I,3-I)=m m=m-1 Next I End If Next k

For k=0 To 3 For I=0 To 3 Print A(k,I); Next I Print Next k End Sub

答案： 空 1: 6 空 2: 8 空 3: 14 题号：8124

阅读下面的程序并填空： Option Base1

Private Sub Command1_Click() Dim a

a=Array(28,6,134,249,19,76,84,98,23,43) For i = _____ k=i

For j = _____

If a(i)For i = 1 to 10 Print a(i) Next i End Sub

答案： 空 1:

1 to 9 【或】 1 to 9 【或】 1 to 9

空 2: i+1 to 10 空 3: k=j