某人设计了下列程序用于计算并输出7!（7的阶乘）：Private Sub Command1_Click( )t=0Fork=7 To 2 Step -1t=t*kNextPrint tEnd Sub执行程序时，发现结果是错误的。下列修改方案中能够得到正确结果的是（    ）。

试卷相关题目

• 1为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”。若通过程序设置该标题，则应使用的语句是（    ）。

  A.CD1.DialogTitle="对话框窗口"

  B.CD1.Action="对话框窗口"

  C.CD1.FileName="对话框窗口"

  D.CD1.Filter="对话框窗口"

  开始考试点击查看答案
• 2若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指（    ）。

  A.按钮左端到窗体左端的距离

  B.按钮左端到图片框左端的距离

  C.按钮中心点到窗体左端的距离

  D.按钮中心点到图片框左端的距离

  开始考试点击查看答案
• 3设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是（    ）。

  A.Private Sub List1_Click( )Print List1.TextEnd Sub

  B.Private Sub Form1_Click( )Print List1.TextEnd Sub

  C.Private Sub List1_Click( )Print Form1.TextEnd Sub

  D.Private Sub Form1_Click( )List1.Print List1.TextEnd Sub

  开始考试点击查看答案
• 4执行下列程序后输出的是（    ）。Private Sub Commandl_Click( )Ch$="ABCDEFGH"∶Print Mid(Right(ch$,6),Len(Left(ch$,4),2)End Sub

  A.CDEFGH

  B.ABCD

  C.FG

  D.AB

  开始考试点击查看答案
• 5设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下列正确的事件过程是（    ）。

  A.Private Sub Commandl_Click( )Textl.GotFocusEnd Sub

  B.Private Sub Commandl_Click( )Commandl.GotFocusEnd Sub

  C.Private Sub Commandl_Click( )Textl.SetFocusEnd Sub

  D.Private Sub Commandl_Click( )Commandl.SetFocusEnd sub

  开始考试点击查看答案
• 6若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是（    ）。

  A.把所有单选按钮的Index属性改为相同值

  B.把所有单选按钮的Index属性改为连续的不同值

  C.把所有单选按钮的Caption属性值改为相同

  D.把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值

  开始考试点击查看答案
• 7某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程下列。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。Private Sub  Timer1_Timer( )Label1.Caption=Time＄End Sub在程序执行时发现未能实现以上目的，那么，他应做的修改是（    ）。

  A.通过属性窗口把计时器的Interval属性设置为2000

  B.通过属性窗口把计时器的Enabled属性设置为False

  C.把事件过程中的Label1.Caption=Time＄语句改为Timer1.Interval=Time＄

  D.把事件过程中的Label1.Caption=Time＄语句改为Label1.Caption=Timer1.Time

  开始考试点击查看答案
• 8下列关于文件的叙述中错误的是（    ）。

  A.随机文件中各条记录的长度是相同的

  B.打开随机文件时采用的文件存取方式应该是Random

  C.向随机文件中写数据应使用语句Print #文件号

  D.打开随机文件与打开顺序文件一样，都使用Open语句

  开始考试点击查看答案
• 9下列程序执行时，在窗体上显示的是（    ）。Private Sub Command1_Click( )Dim a(10)For k=1 To 10a(k)=11-kNext kPrint a(a(3)a(7)Mod a(5))End Sub

  A.3

  B.5

  C.7

  D.9

  开始考试点击查看答案
• 10为达到把a、b中的值交换后输出的目的，某人编程下列：Private Sub Command1_Click( )a%=10:b%=20Call swap(a,b):Print a,bEnd SubPrivate Sub swap(ByVal a As Integer,ByVal b As Integer)c=a:a=b:b=cEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（    ）。

  A.调用swap过程的语句错误，应改为Call swap a,b

  B.输出语句错误，应改为Print"a","b"

  C.过程的形式参数有错，应改为swap(ByRef a As Integer,ByRef b As Integer)

  D.swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a

  开始考试点击查看答案