vb部分试题.docVIP

第223题 （1.0分） 题号:3511 在窗体上添加一个命令按钮，编写如下代码： 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:35 B:28 C:33 D:37 答案：C 第228题 （1.0分） 题号:3454 已知A$则表达式Val(Left$(A $,4)+Mid$(a $,4,2))的值为 A:123456 B:123445 C:8 D:6 答案：B 第229题 （1.0分） 题号:3461 为了给x,y,z这3个变量赋初值3,下面正确的赋值语句是 A:x=3:y=3:z=3 B:x=3,y=3,z=3 C:x=y=z=3 D:xyz=3 答案：A 第230题 （1.0分） 题号:3447 表达式Abs(-5)*5\5/5的值是 A:-25 B:25 C:5 D:1 答案：B 第231题 （1.0分） 题号:3489 假设在图片框Pictrue1中装入一个图形,为了清除该图形(不删除图片框),应采用的正确方法是: A:选择图片框,然后按Delete键. B:执行语句Pictrue1. Pictrue=LoadPictrue() C:执行语句Pictrue1. Pictrue= D:选择图片框,在属性窗口选择Pictrue1属性,然后安回车键 答案：B 第236题 （1.0分） 题号:3413 下面4项中不属于面向对象系统三要素的是(). A:变量 B:事件 C:属性 D:方法 答案：A 第238题 （1.0分） 题号:3519 如下程序： Private Sub Command1_Click() Print p1(3,7) End Sub Public function p1!(x!,n%) If n=0 Then P1=1 Else If n Mod 2=1 Then P1=x*p1(x,n\2) Else Pl=pl(x,n\2)\x End If End If End Function 运行的结果是 A:18 B:7 C:14 D:27 答案：D 第239题 （1.0分） 题号:3448 表达式16/4-2^5*8/4MOD5\2的值为 A:14 B:4 C:20 D:2 答案：B 第240题 （1.0分） 题号:3479 引用列表框(List1)最后一个数据项应使用的语句是（）。 A:List1.List(List1.ListCount) B:List1.List(List1.ListCount-1) C:List1.List(ListCount) D:List1.List(ListCount-1) 答案：B 第246题 （1.0分） 题号:3507 以下程序 Option Base 1 Private Sub Command1_Click() Dim a,B(3,3) a=Array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 B(i,j)=a(i*j) If(j＞=i) Then Print Tab(j*3);format(B(i,j),###); Next j Print Next I End Sub 输出结果是 A:1 2 3 4 5 6 7 8 9 B:1 4 5 7 8 9 C:1 4 7 2 4 6 3 6 9 D:1 2 3 4 6 9 答案：D 第254题 （1.0分） 题号:3469 下面程序段： Dim y If y Then Print y+1 Else Print y+2 运行后，显示的结果是 A:2 B:0 C:-1 D:显示出错信息 答案：A 第256题 （1.0分） 题号:3251 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Static x As Integer Cls y = y + 2 x = x + 2 Print x, y End Sub 程序运行后,连续四次单击Command1按钮后,窗体上显示的是 A:8 8 B:8 2 C:2 8 D:2 2 答案：B 第265题 （1.0分） 题号:3590 38-3 OR 10+2 =3*4 AND 5=2+3的结果是(). A:True B:False C:-3 D:10 答案：A 第275题 （1.0