在窗体上画1个命令按钮，并编写如下事件过程：private Sub Command1_Click（　　）For i=5 To 1 Step-0．8Print Int(i)；Next iEnd Sub运行程序，单击命令按钮，窗体上显示的内容为（　　）。

试卷相关题目

• 1设窗体上有一个名为List1的列表框，并编写下面的事件过程：Private Sub List1_Click（　　）Dim ch As Stringch=List1．List(List1．Listlndex)List1．RemoveItem List1．ListlndexList1．Addltem chEnd Sub程序运行时，单击一个列表项，则产生的结果是（　　）。

  A.该列表项被移到列表的最前面

  B.该列表项被删除

  C.该列表项被移到列表的最后面

  D.该列表项被删除后又在原位置插入

  开始考试点击查看答案
• 2请阅读程序：Sub subP(b（　　）As Integer)For i=1 To4b(i)=2*iNext iEnd SubPrivate Sub Commandl Click（　　）Dim a(1 To 4)As Integera(1)=5:a(2)=6:a(3)=7:a(4)=8subP a（　　）For i=1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则输出结果是（　　）。

  A.2468

  B.5678

  C.10121416

  D.出错

  开始考试点击查看答案
• 3下列描述不正确的是( ．)。

  A.某个子过程中声明的局部变量，其使用范围仅限定于该子过程内

  B.某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行过程中

  C.不同子过程中的局部变量可以具有相同的名称

  D.不同子过程中具有相同的名称的局部变量是同一变量

  开始考试点击查看答案
• 4默认情况下，下面声明的数组的元素个数是（　　）。Dim(5，-2 To 2)

  A.20

  B.24

  C.25

  D.30

  开始考试点击查看答案
• 5若在窗体模块的声明部分声明了如下自定义类型和数组：Private Type recCode As IntegerCaption As St ringEnd TypeDim art(5)As rec则下面的输出语句中正确的是（　　）。

  A.Print arr．Code(2)，art．Caption(2)

  B.Print art．Code，arr．Caption

  C.Print arr(2)．Code，arr(2)．Caption

  D.Print Code(2)，Caption(2)

  开始考试点击查看答案
• 6数据库应用系统中的核心问题是（　）。

  A.数据库设计

  B.数据库系统设计

  C.数据库维护

  D.数据库管理员培训

  开始考试点击查看答案
• 7下列（　　）标识符不能作为Visual Basic的变量名。

  A.ABCabe

  B.bl234

  C.28wed

  D.crud

  开始考试点击查看答案
• 8阅读下面的程序段：a==0For i=1 To 3For j=1 To iFor k=j To 3a=a+lNext kNext jNext i执行上面的程序段后，a的值为（　　）。

  A.3

  B.9

  C.14

  D.21

  开始考试点击查看答案
• 9单击命令按钮时，下列程序段的执行结果是（　　）。Private Sub Command1 Click（　　）Dim a As Integer，b As Integer，C As Integera=2：b=4：c=6Call S1(a．b)Print"a="；a；"b="；b；"c="；cCall S2(a，b)Print"a="；a；"b="；b；"c="；c；End SubPrivate Sub S1(X．As Integer，Y As Integer)Dim C As Integerx=2*X：y=y+2：c=x+yEnd SubSub S2(x As Integer，ByVal Y As Integer)Dim e As Integerx=2*x：Y=Y+2：e=x+yEnd Sub

  A.a=4 b=6 c=6a=4 b=6 c=6

  B.a=8 b=6 c=6a=8 b=6 c=6

  C.a=4 b=6 c=6a=8 b=6 c=6

  D.a=8 b=6 c=6a=4 b=6 c=6

  开始考试点击查看答案
• 10要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是（　　）。

  A.Private Sub P1 MouseMove(Button As Integer，Shift As Integer，X As Single，YAs Single)Print X YEnd Sub

  B.Private Sub P1 MouseDown(Button As Integer，Shift As Integer，X As Single，YAs Single)Picture．Print X，YEnd Sub

  C.Private Sub P1 MouseMove(Button As Integer，Shift As Integer，X As Single，YAs Single)P1．Print X，YEnd Sub

  D.Private Sub Form MouseMove(Button As Integer，Shift As Integer，X As Single，YAs Single)P1．Print X，YEnd Sub

  开始考试点击查看答案