阅读下面的程序段：a==0For i=1 To 3For j=1 To iFor k=j To 3a=a+lNext kNext jNext i执行上面的程序段后，a的值为（　　）。

试卷相关题目

• 1下列（　　）标识符不能作为Visual Basic的变量名。

  A.ABCabe

  B.bl234

  C.28wed

  D.crud

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

  A.数据库设计

  B.数据库系统设计

  C.数据库维护

  D.数据库管理员培训

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

  A.5 4 3 2 1 1

  B.5 4 3 2 1

  C.4 3 2 1 1

  D.4 4 3 2 1 1

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

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

  B.该列表项被删除

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

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

  开始考试点击查看答案
• 5请阅读程序：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.出错

  开始考试点击查看答案
• 6单击命令按钮时，下列程序段的执行结果是（　　）。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

  开始考试点击查看答案
• 7要求当鼠标在图片框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

  开始考试点击查看答案
• 8有如下程序：Option Base 1Private Sub Command1 Click（　　）Dim arr(10)arr=Array(10，35，28，90，54，68，72，90)For Eaeh a In arrIf a>50ThenSum=Sum+aEnd IfNext aEnd Sub运行上述程序时出现错误，错误之处是（　　）。

  A.数组定义语句不对，应改为Dim arr

  B.没有指明For循环的终值

  C.应在For语句之前增加Sum=0

  D.Next a应改为Next

  开始考试点击查看答案
• 9程序调试的任务是（　　）。

  A.设计测试用例

  B.验证程序的正确性

  C.发现程序中的错误

  D.诊断和改正程序中的错误

  开始考试点击查看答案
• 10设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：Private Sub Command1 Click（　　）X!=Val(Text1．Text)Select Casc xCase Is<-10，Is>=20Print"输入错误"Case Is<0Print 20-xCase Is<10Print 20Case Is<=20Print x+10End SeleetEnd Sub程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（　　）。

  A.5

  B.20

  C.25

  D.输入错误

  开始考试点击查看答案