窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a(10), x%For k = 1 To 10a(k) = Int(Rnd * 90 + 10)x = x + a(k) Mod 2Next kPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（    ）。

试卷相关题目

• 1在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1_Click()Dim a(10) As IntegerFor k = 10 To 1 Step -1a(k) = 20 - 2 * kNext kk = k + 7Print a(k - a(k))End Sub运行程序，单击命令按钮，输出结果是（    ）。

  A.18

  B.12

  C.8

  D.6

  开始考试点击查看答案
• 2阅读程序：Private Sub Command1_Click()Dim arrDim i As Integerarr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For i = 0 To 2Print arr(7 - i);NextEnd Sub程序运行后，窗体上显示的是（    ）。

  A.8 7 6

  B.7 6 5

  C.6 5 4

  D.5 4 3

  开始考试点击查看答案
• 3设有如下程序Private Sub Command1_Click()x = 10: y = 0For i = 1 To 5Dox = x - 2y = y + 2Loop Until y > 5 Or x < -1NextEnd Sub运行程序，其中Do循环执行的次数是（    ）。

  A.15

  B.10

  C.7

  D.3

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

  A.5

  B.20

  C.25

  D.输入错误

  开始考试点击查看答案
• 5下面程序的执行结果是（    ）。Private Sub Command1_Click()a = 10For k = 1 To 5 Step -1a = a - kNext kPrint a; kEnd Sub

  A.-5 6

  B.-5 -5

  C.10 0

  D.10 l

  开始考试点击查看答案
• 6窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器，并有下面的事件过程：Private Sub Command1_Click()Timerl.Enabled=TrueEndSubPrivate Sub Form_Load()Timerl.Interval=10Timerl.Enabled=FalseEnd SubPrivate Sub Timerl_Timer()Commandl.Left=Commandl.Left+10End Sub程序运行时，单击命令按钮，则产生的结果是（    ）。

  A.命令按钮每10秒向左移动一次

  B.命令按钮每10秒向右移动一次

  C.命令按钮每10毫秒向左移动一次

  D.命令按钮每10毫秒向右移动一次

  开始考试点击查看答案
• 7设窗体上有一个名为Listl的列表框，并编写下面的事件过程：Private Sub Listl_Click()Dim ch As Stringch=Listl.List(Listl.ListIndex)List1.RemoveItem List 1.ListIndex    -List1.AddItem chEndSub程序运行时，单击一个列表项，则产生的结果是（    ）。

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

  B.该列表项被删除

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

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

  开始考试点击查看答案
• 8窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a As Integer, b As Integera = 8b = 12Print fun(a, b); a; bEnd SubPrivate Function Fun(ByVal a As Integer, b As Integer) As Integera = a Mod 5b = b 5Fun = aEnd Function程序运行时，单击命令按钮，则输出结果是（    ）。

  A.3 3 2

  B.3 8 2

  C.8 8 12

  D.3 8 12

  开始考试点击查看答案
• 9为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：Private Sub Command1_Click()Open "File1.txt" For Output As #20Do While Not EOF(20)Line Input #20, ch$Print chLoopClose #20End Sub程序调试时，发现有错误，下面的修改方案中正确的是（    ）。

  A.在Open语句中的文件名前添加路径

  B.把程序中各处的“20”改为“1”

  C.把Print ch语句改为Print # 20，ch

  D.把Open语句中的Output改为Input

  开始考试点击查看答案