Visual Basic题库（有答案）(5)

第75题 下列程序运行时单击Command1，输出的结果是（ ）。 Private Sub Command1_Click() Dim a(5, 5) For i = 1 To 3 For j = 1 To 4 a(i, j) = j - i Next Next For m = 1 To 2 For n = 1 To 2 Print a(n, m); Next Next End Sub

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

第76题 下列程序段的功能是将以2为首的前100个素数存入数组中。请在 __ 处选择正确答案，将程序补充完整（ ）。 Dim a(100) As Integer Private Sub Form_Load() a(1) = 2 :x = 3: i = 2 Do While i <= 100 flag = 0 For k = 2 To Int(Sqr(x)) If x Mod k = 0 Then flag = 1 Next If flag = 0 Then ____ End If x = x + 1 Loop End Sub

A、A．a(i) = x : i = i + 1 B、a(i) = k : i = i + 1 C、a(i) = x D、a(i) = k

第77题 下列程序运行的结果为（ ）。 Option Base 1 Dim S() As Integer Private Sub Form_Click() ReDim S(1) :S(1) = 5 ReDim Preserve S(4) S(2) = 3 :Print S(1); ReDim S(6) :Print S(2) End Sub

A、5 3 B、0 0

C、0 3 D、5 0

第78题 下列事件过程的功能是：对已知存放在数组A中的N个数，用选择排序法按递增顺序排序后放回数组A中，请填空将程序补充完整。 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer For i = 1 To n - 1 k = i For j = ____ To n If a(k) > a(j) Then ____ Next j If k <> i Then temp = a(k): a(k) = a(i): a(i) = temp End If Next i End Sub

A、i+1;k=j B、i;k=j C、k;a(k)=a(j) D、i?1;k=j?1

第79题 VB允许多维数组的最大维数是（ ）。 A、50 B、60 C、80 D、90

第80题 用下面的语句所定义的数组元素的个数是（ ）。 Dim Var(4 To 6, ?3 To 3)

A、24 B、36 C、21

D、18

第81题 下面关于VB语言中数组下标的几种说法，错误的是（ ）。 A、数组下标的下界默认为1 B、数组下标的下界可以为负数 C、数组下标的下界必须小于上界 D、数组下标的上界可以为负数

第82题 下列程序段的执行结果为（ ）。 Private Sub Command1_Click() Dim A(10), B(5) For I=1 to 10 A(I)=I Next I For J=1 to 5 B(J)=J*20 Next J A(5)=B(2) Print \

A、A(5) = 5 B、A(5) = 10 C、A(5) =20 D、A(5) =40

第83题 运行下列程序会出现出错信息，产生错误的原因是（ ）。 x=5 Dim a(x) For i=1 To 6 a(i)=i+1 Next i

A、数组元素a（i）的下标越界 B、变量x没有定义 C、循环变量的范围越界

D、Dim语句中不能用变量x来定义数组的下标

第84题 下列程序段的执行结果是（ ）。 Dim a(?5 to 6) For i=Lbound(a,1) To Ubound(a,1) a(i)=i Next i Print a(Lbound(a,1));a(Ubound(a,1))

A、0 0 B、?5 0 C、?5 6 D、0 6

第85题 如下数组声明语句中正确的是（ ）。 A、Dim A(4 5) As Integer B、Dim A(n,n) As Integer C、Dim A(4,5) As Integer D、Dim A[4,5] As Integer

第86题 语句Option Base 1:Dim a(3,4)定义的数组所包含的数组元素的个数是（ ）。

A、7 B、12 C、15 D、20

第87题 用下面语句定义的数组元素个数是（ ）。 Dim A(-3 To 5) As Integer A、6 B、7 C、8 D、9

第88题 语句Dim arr(-3 To 5,2 To 6) As Integer定义的数组元素有（ ）。 A、45 B、44 C、11 D、54

第89题 在窗体上面画一个命令按钮，然后编写如下事件过程：（ ） Option Base 1 Private Sub Command1_Click() Dim a 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、4321 B、12 C、34 D、1234

第90题 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是________。

A、12 B、13 C、14 D、15

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Visual Basic题库（有答案）(5)在线全文阅读。