vb总-1(8)

答案：A 题号：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 题号：8269

下列程序的输出结果是____________。 Dim i As Integer, k As Integer

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

For i = 0 To 9 a(i) = i Next i

For i = 0 To 2

p(i) = a(i * (i + 1)) Next i

For i = 0 To 2 k = k + p(i) * 2 Next I Print k A、23 B、21 C、22 D、17 答案：B 题号：8284

下列有关数组的说法中，不正确的是________。

A、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组 B、形参数组的类型可以是定长符串类型

C、可以使用Erase语句释放所有数组所占据的存储储空间 D、在窗体模块中不可以定义全局数据组 答案：C 题号：8272

以下程序段的输出结果是____________。 Dim B(2, 2) As Integer Dim i, j, t As Integer For i = 1 To 2 For j = 0 To 2 B(i, j) = j Next j Next i t = 1

For i = 0 To 2 For j = 0 To 2

t = t + B(i, B(j, j)) Next j Next I Print t A、7 B、1 C、3 D、4 答案：A 题号：8264

以下程序输出的结果是____________。 Dim a

a=Array(1,2,3,4,5,6,7)

For i=Lbound(a)To Ubound(a) a(i)= a(i)*a(i) Next i Print a(i) A、49

B、程序出错 C、不确定 D、0 答案：B 题号：8289

下列语句可以用来正确地声明一个动态数组的是_____。 A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n)

D、Dim A(,) As Integer 答案：B 题号：8300

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

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

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

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

当Form1_Click事件发生时，程序的输出结果是__________。 Private Sub Form_Click()

Dim M As Integer,k As Integer,t As Integer M=5 : k=7 Select Case M case 1 To 10 t=M: M=k: k=t Case Else M=k Mod 3 End Select Print M, k, t End Sub A、5 7 5 B、7 5 5 C、7 5 7 D、5 5 7 答案：B 题号：8273

当发生Command1_Click事件后，程序输出结果是________。 Option Base 1

Private Sub Command1_Click()

Dim a(4, 4) As Integer,i As Integer,s As Integer s=0

For i=1 To 4 For j=1 To 4

a(i, j) = (i-1)*4+j*2 Next j Next i

For i = 1 To 4 s=s+a(i, i) Next I Print s End Sub A、30 B、32 C、44 D、28 答案：C 题号：8280

在窗体中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click( ) Dim y As Integer y = 0

Do While y<7 y=y+2 Loop

MsgBox y End Sub

程序运行后，消息对话框中显示__________。 A、0 B、8 C、7 D、2 答案：B 题号：8295

在窗体上画一个命令按钮，然后编写如下事件过程： 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、12 C、4321 D、34 答案：A 题号：8282

下列语句中的语句可以用来正确地声明一个动态数组。 A、Dim A() As Integer

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

题号：8288

在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10 A、①③ B、②③④ C、①②③ D、①② 答案：B 题号：8299

用\冒泡\法将数组a中的10个整数按升序排列。所谓\冒泡\法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段________。 For i= 1 to 9 For j= 1 to 10-i If ____________ Then ……'互换语句 End If Next j Next i

A、a(i)a(j+1) C、a(i)a(j) 答案：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 题号：8283

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

③Print A = A + B;A+B ④ChDrive \A、1 B、3 C、2 D、4 答案：C 题号：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 题号：8265

以下有关控件数组的说法中错误的是________。

A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件数组中的每个元素的下标由控件的Index属性指定 C、同一控件数组中的元素只能有相同的属性设置值 D、控件组中的每一个控件共享同样的事件过程 答案：C 题号：8275

阅读下列程序，其输出的结果是________。 Private Sub Command1_Click() Dim a(1 To 3) As Integer For i=1 To 3 a(i)=i
Next i

Call sub1(a) For i=2 To 3 Print a(i) Next i End Sub

Public Sub sub1(a() As Integer) For i=1 To 3 a(i)=i*I Next I End A、1 2 B、1 4 C、2 3 D、4 9 答案：D 题号：8298

用\冒泡\法将数组a中的10个整数按升序排列。所谓\冒泡\法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段________。 n=1O

For i= 1 to n-1 For j= 1 to n-i

If ____________ Then ……'互换语句 End If Next j Next i

A、a(i)a(j+1) C、a(i)>a(j) D、a(i)

在窗体上画一个命令按钮名为Command1，然后编写如下事件过程: Option Base 0

Private Sub Command1_Click() Dim city As Variant

city = Array(\Print city(4) End Sub

程序运行后，屏幕显示________ A、出错 B、空白 C、London

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb总-1(8)在线全文阅读。