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

试卷相关题目

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

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

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

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

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

  开始考试点击查看答案
• 2在窗体上有一个文件名称为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

  开始考试点击查看答案
• 3已知有下面的过程(  )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”

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

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

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

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

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

  开始考试点击查看答案
• 5在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是(  )

  A.Cd1.Action=2

  B.Cd1.Action=1

  C.Cd1.ShowSave=Ture

  D.Cd1.ShowSave=0

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

  A.While …Wend循环语句错误，应改为For k=1 To 99 …Next k

  B.循环条件错误，应改为Whlie k<99

  C.循环前的赋值语句k=1错误，应改为k=0

  D.循环中两条赋值语句的顺序错误，应改为s=s+k : k=k+2

  开始考试点击查看答案
• 7下面程序在调试时出现了死循环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.输入任何整数都会出现死循环

  开始考试点击查看答案
• 8在窗体上有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不允许

  开始考试点击查看答案
• 9在窗体上画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

  开始考试点击查看答案
• 10在窗体上画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

  开始考试点击查看答案