在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是

试卷相关题目

• 1设有如下程序Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim n As Integern=InputBox("输入数据")If n<10 ThenCall GetArray(a,n)End IfEnd SubPrivate Sub GetArray(b() As Integer,n As Integer)Dim c(10) As Integerj=0For i=1 To nb(i)=CInt(Rnd()*100)If b(i)/2=b(i)2 Thenj=j+1c(j)=b(i)End IfNextPrint jEnd Sub以下叙述中错误的是

  A.数组b中的偶数被保存在数组c中

  B.程序运行结束后,在窗体上显示的是c数组中元素的个数

  C.GetArray过程的参数n是按值传送的

  D.如果输入的数据大于10，则窗体上不显示任何显示

  开始考试点击查看答案
• 2在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是

  A.10 5

  B.12 5

  C.10 7

  D.12 7

  开始考试点击查看答案
• 3设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：Private Sub Command1_Click()Dim a As Integera=10Call g(Form2,a)End SubPrivate Sub g(f As Form,x As Integer)y=IIf(x>10,100,-100)f,Showf.Caption=yEnd Sub运行以上程序，正确的结果是

  A.Form1的Caption属性值为100

  B.Form2的Caption属性值为-100

  C.Form1的Caption属性值为-100

  D.Form2的Caption属性值为100

  开始考试点击查看答案
• 4在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.FileName =""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1End Sub对于这个程序，以下叙述中错误的是

  A.该对话框被设置为“打开”对话框

  B.在该对话框中指定的默认文件名为空

  C.该对话框的标题为VBTest

  D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

  开始考试点击查看答案
• 5执行如下两条语句，窗体上显示的是a=9.8596Print Format(a,"$00,00.00")

  A.0,009.86

  B.$9.86

  C.9.86

  D.$0,009.86

  开始考试点击查看答案
• 6阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为

  A.13

  B.14

  C.27

  D.15

  开始考试点击查看答案
• 7在窗体上画一个名称为File1的文件列表框，并编写如下程序：Private Sub File1_DblClick()x=Shell(File1.FileName,1)End Sub以下关于该程序的叙述中，错误的是

  A.x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)

  B.双击文件列表框中的文件，将触发该事件过程

  C.要执行的文件的名字通过File1.FileName指定

  D.File1中显示的是当前驱动器、当前目录下的文件

  开始考试点击查看答案
• 8执行以下程序段a$="abbacddcba"For i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X &amp; Y &amp; z)Next iPrint z输出结果为

  A.ABA

  B.BBABBA

  C.ABBABA

  D.AABAAB

  开始考试点击查看答案
• 9在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a As Varianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是

  A.1 2

  B.1 2 3

  C.3 4 5

  D.4 5

  开始考试点击查看答案
• 10假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下：Public x As IntegerPublic y As IntegerSub S1()x =1S2End SubSub S2()y=10Form1.ShowEnd ShowModel2的代码如下：Sub Main()S1End Sub其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是

  A.Form1→Model1→Model2

  B.Model1→Model2→Form1

  C.Model2→Model1→Form1

  D.Model2→Form1→Model1

  开始考试点击查看答案