为计算1+3+5+……+99的值，某人编程如下k=1s=0While k<=99k=k+2 : s=s+kWendPrint s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是(  )

试卷相关题目

• 1窗体上有１个名称为Text1的文本框和１个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是(  )

  A.Private Sub Command1_Click()Open “out.txt” For Inpit As#1Print#1,Text1.TextClose#1End Sub

  B.Private Sub Command1_Click()Open “out.txt” For Outpit As#1Print#1,Text1.TextClose#1End Sub

  C.Private Sub Command1_Click()Open “out.txt” For Append As#1Print#1,Text1.TextClose#1End Sub

  D.Private Sub Command1_Click()Open “out.txt” For Random As#1Print#1,Text1.TextClose#1End Sub

  开始考试点击查看答案
• 2某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是(  )

  A.在工程属性对话框中把“启动对象”设置为Form2

  B.在Form1的Load事件过程中加入语句 Load Form2

  C.在Form2的Load事件过程中加入语句Form2.Show

  D.在Form2的TabIndex属性设置为１，把Form1的TabIndex属性设置为２

  开始考试点击查看答案
• 3在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(  )

  A.Private Sub Command1_Click()Text1.Left=100End Sub

  B.Private Sub Command1_Click()Text1.Left= Text1.Left-100End Sub

  C.Private Sub Command1_Click()Text1.Move.Text.Left+100End Sub

  D.Private Sub Command1_Click()Text1.Mov

  E.Text.LeftEnd Sub

  开始考试点击查看答案
• 4已知有下面的过程(  )Private Sub proc1(a As Integer,b As String,Optional x As Boolean)……End Sub正确调用此过程的语句是

  A.Call procl(5)

  B.Call proc1 5,”abc”,False

  C.proc1(12,”abc”,True)

  D.proc1 5, “abc”

  开始考试点击查看答案
• 5下面关于菜单的叙述中错误的是(  )

  A.各级菜单中的所有菜单项的名称必须唯一

  B.同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同

  C.弹出式菜单用Popupmenu方法弹出

  D.弹出式菜单也用菜单编辑器编辑

  开始考试点击查看答案
• 6下面程序在调试时出现了死循环Private Sub Command1_Click()n=InputBox(“请输入一个整数”)DoIf n Mod 2=0 Thenn=n+1Elsen=n+2Else IfLoop Until n=1000End Sub下面关于死循环的叙述中正确的是(  )

  A.只有输入的n是偶数时才会出现死循环，否则不会

  B.只有输入的n是奇数时才会出现死循环，否则不会

  C.只有输入的n是大于1000的整数时才会出现死循环，否则不会

  D.输入任何整数都会出现死循环

  开始考试点击查看答案
• 7在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法算法1：Private Sub Command1_Click()CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As#1End Sub算法2：Private Sub Command1_Click()CommonDialog1.ShowOpenIfCommonDialog1.FileName<>””ThenOpen CommonDialog1.FileName For Input As#1End IfEnd Sub下面关于这两种算法的叙述中正确的是()

  A.显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会

  B.显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会

  C.两种算法的执行结果完全一样

  D.算法1允许输入的文件名中含有空格，而算法2不允许

  开始考试点击查看答案
• 8在窗体上画1一个名称为Command1的命令按钮，并编写以下程序Private Sub Command1_Click()Print fun(“ABCDEFG”)End SubFunction fun(st As String) As Stringstlen=Len(st)temp=””For kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是(  )

  A.ABCDEFG

  B.AGBFCE

  C.GFEDCBA

  D.AGBFCED

  开始考试点击查看答案
• 9在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command1_Click()Dim a(5.5) As IntegerFor i=1 To 5a(I,j)*510Next jNext iS=0For i=1 To 5S=s+a(i,i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是(  )

  A.15

  B.13

  C.11

  D.9

  开始考试点击查看答案
• 10在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序Const n=5,m=4Dim a(m,n)Private Sub Command1_Click()K=1For i=1 To mFor j=1 To na(i,j)=kk=k+1Next jNext iPrivate Sub Command2_Click()Summ=0For i=1 To mFor j=1 To nIf i=1 Or i=m ThenSumm=summ+a(i,j)ElseIf j=I Or j=n ThenSumm=summ+a(i,j)End IfEnd IfNext jNext iPrint summEnd Sub过程Command1_Click()的作用是二维数组a 中存放1个 m行n列的矩阵；过程Command2_Click()的作用是(  )

  A.计算矩阵外围一圈元素的累加和

  B.计算矩阵除外一圈以外的所有元素的累加和

  C.计算矩阵第1列和最后一列元素的累加和

  D.计算矩阵第1行和最后一行元素的累加和

  开始考试点击查看答案