在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运行后，单击命令按钮，窗体上显示的是

试卷相关题目

• 1在窗体上画一个名称为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

  开始考试点击查看答案
• 2在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是

  A.2

  B.3

  C.4

  D.5

  开始考试点击查看答案
• 3在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是

  A.15和1

  B.27和3

  C.195和3

  D.600和4

  开始考试点击查看答案
• 4图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是

  A.Autosize

  B.Stretch

  C.AutoRedraw

  D.Appearance

  开始考试点击查看答案
• 5在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是

  A.BBCCDDDDEEEEE

  B.ABBCCCDDDD

  C.BCCDDDEEEE

  D.AABBBCCCCDDDDD

  开始考试点击查看答案
• 6设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);Next End Sub程序运行后，单击窗体，则在窗体上显示的是

  A.4 3 2 1

  B.5 4 3 2

  C.6 5 4 3

  D.7 6 5 4

  开始考试点击查看答案
• 7下列叙述中正确的是

  A.在窗体的Form_Load事件过程中定义的变量是全局变量

  B.局部变量的作用域可以超出所定义的过程

  C.在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程

  D.在调用过程时，所有局部变量被系统初始化为0或空字符串

  开始考试点击查看答案
• 8在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是

  A.Private Sub Command1_Click()x=InputBox(“请输入整数”)a=F1(Val(x))Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function

  B.Private Sub Command1_Click()x=InputBox(“请输入整数”)a=F1(Val(x))Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd Function

  C.Private Sub Command1_Click()x=InputBox(“请输入整数”)F1(Val(x))Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd Function

  D.Private Sub Command1_Click()x=InputBox(“请输入整数”)F1(Val(x))Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function

  开始考试点击查看答案
• 9在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是

  A.0

  B.12

  C.Str(z)

  D.没有显示

  开始考试点击查看答案
• 10以下叙述中错误的是

  A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

  B.Sub过程中不能嵌套定义Sub过程

  C.Sub过程中可以嵌套调用Sub过程

  D.事件过程可以像通用过程一样由用户定义过程名

  开始考试点击查看答案