执行以下程序段Dim i As Integer, x As Integerx = 0For i = 20 To 1 Step -2x = x + i 5NextPrint x后，x的值为（　　）。

试卷相关题目

• 1在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c = “ABCD”For n= 1 To 4Print （　　）NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容DCDBCDABCD则在（　　）处填入的内容为。

  A.Left(c,n)

  B.Right(c,n)

  C.Mid(c,n,1)

  D.Mid(c,n,n)

  开始考试点击查看答案
• 2在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为（　　）。

  A.9

  B.6

  C.12

  D.15

  开始考试点击查看答案
• 3在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_____。

  A.Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd Sub

  B.Private Sub List1_Click()Label1.Name=List1.ListIndexEnd Sub

  C.Private Sub List1_Click()Label1.Name=List1.TextEnd Sub

  D.Private Sub List1_Click()Label1.Caption =List1.TextEnd Sub

  开始考试点击查看答案
• 4假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（　　）。

  A.选择图片框，然后按Del键

  B.执行语句Picture1.Picture = LoadPicture ("")

  C.执行语句Picture1.Picture =""

  D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键

  开始考试点击查看答案
• 5在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timer1.（　　）End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在下划线处应填入的内容是（　　）。

  A.Enabled = True

  B.Enabled = False

  C.Visible = True

  D.Visible = False

  开始考试点击查看答案
• 6在Visual Basic工程中，可以作为“启动对象”的程序是（　　）。

  A.任何窗体或标准模块

  B.任何窗体或过程

  C.Sub Main过程或其他任何模块

  D.Sub Main过程或任何窗体

  开始考试点击查看答案
• 7假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是（　　）。

  A.数组中每个命令按钮的名称（Name属性）均为Command1

  B.数组中每个命令按钮的标题（Caption属性）都一样

  C.数组中所有命令按钮可以使用同一个事件过程

  D.用名称Command1(下标)可以访问数组中的每个命令按钮

  开始考试点击查看答案
• 8把窗体的KeyPreview属性设置为True，然后编写如下事件过程Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyAscii)KeyAscii = Asc(UCase(ch))Print Chr(KeyAscii + 2)End Sub程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（　　）。

  A.A

  B.B

  C.C

  D.D

  开始考试点击查看答案
• 9在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Sub Command1_Click()a=InputBox(“请输入日期（1~31）”)t=”旅游景点：” _&amp; IIf ( a > 0 And a <= 10,”长城”,””) _&amp; IIf ( a >10 And a <= 20,”故宫”,””) _&amp; IIf ( a > 20 And a <= 31,”颐和园”,””)Text1.Text = tEnd Sub程序运行后，如果从键盘上输入16，则在文本框显示的内容是（　　）。

  A.旅游景点：长城故宫

  B.旅游景点：长城颐和园

  C.旅游景点：颐和园

  D.旅游景点：故宫

  开始考试点击查看答案
• 10在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 2 To 4For j = 2 To 4arr(i, j) = i * jNext jNext iLabel1.Caption = Str(arr(2, 2) + arr(3, 3))End Sub程序运行后，单击窗体，在标签中显示的内容是（　　）。

  A.12

  B.13

  C.14

  D.15

  开始考试点击查看答案