计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。某人编写下面的程序用此公式计算并输出的近似值：Private Sub Cornmand1 Click（　　）P1=1Sign=1n=20000For k=3 To rSign=-SignPI=PI+SiRn／kNext kPrint PI*4End Sub运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（　　）。

试卷相关题目

• 1下列程序执行后，变量X的值为（　　）。Dim a，b，C，d As SingleDim X As Singlef1=10b=30c=400If b>fl Thend=fl：fl=b：b=dEnd IfIf b>C ThenX=bElse If fl>c ThenX=cElseX=aEnd If

  A.10

  B.30

  C.400

  D.430

  开始考试点击查看答案
• 2在新建一个Visual Basic工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为（　　）。

  A.Forml．frm

  B.工程1．frm

  C.TheFirst．frm

  D.Form1．vbp

  开始考试点击查看答案
• 3耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是（　）。

  A.提高耦合性降低内聚性有利于提高模块的独立性

  B.降低耦合性提高内聚性有利于提高模块的独立性

  C.耦合性是指一个模块内部各个元素问彼此结合的紧密程度

  D.内聚性是指模块间互相连接的紧密程度

  开始考试点击查看答案
• 4窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval 属性值为5000，Enabled属性值是True。Timer1的事件过程如下：Private Sub Timer1 Timer（　　）Static flag As IntegerIf Flag=0 Then Flag=1Flag=-flagIf flag=1 ThenText1．ForeColor=＆HFF＆ ＆HFF＆为红色ElseText1．ForeColor=＆HCOO＆ ＆HCOO＆为绿色End IfEnd Sub以下叙述中正确的是（　　）。

  A.每次执行此事件过程时，flag的初始值均为0

  B.flag的值只可能取0或1

  C.程序执行后，文本框中的文字每5秒改变一次颜色

  D.程序有逻辑错误，Else分支总也不能被执行

  开始考试点击查看答案
• 5在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：Dim ss As StringPrivate Sub Text1 KeyPress(KeyAscii As Integer)If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii)End SubPrivate Sub Command1 Click（　　）Dim m As String，i As IntegerFor i=Len(ss)To 1 Step-1m=m+Mid(SS，i，1)NextText1．Text=UCase(m)End Sub程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（　　）。

  A.NUMtBER l00

  B.REBMUN

  C.REBM UN l00

  D.001 REBMUN

  开始考试点击查看答案
• 6在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是（　　）。

  A.工程资源管理器窗口

  B.窗体设计窗口

  C.属性窗口

  D.代码窗口

  开始考试点击查看答案
• 7设在工程文件中有一个标准模块，其中定义了下列记录类型：Type BooksName As String*10TelNum As String*20End，Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（　）。

  A.Private Sub Command1 Click（　）Dim B AS BooksOpen"Person txt"For Output As#1Name=InputBox(”输入姓名”)relNum=lnputBox(”输入电话号码”)Wlite#1 B Name，B TelNumCh,se#1End Sub

  B.Private Sub Command1 Click（　）Dim B AS BooksOpen"Person txt"For Input As#1>Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1，B．Name，B．TelNamClose#1End Sub

  C.Private Sub Command1 Click（　）Dim BAS BooksOpen"Person txt"For Output As#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#1，BClose#1End Sub

  D.Private Sub Commandl Click（　）Open"Person txt"For Input As#1Name=lnputBox("输入姓名")TelNum=lnputBox("输入电话号码")Prim#1 Name TelNumClose#1End Sub

  开始考试点击查看答案
• 8使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是（　　）。

  A.Dir1．Path=Drive1．Path

  B.File1．Path=Dri1．Path

  C.File1．Path=Drive1．Path

  D.Drive1．Drive=Dri1．Path

  开始考试点击查看答案
• 9在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：Function Fun1(ByVa1 a As Integer，b As Integer)As IntegerDim t As Integert=a-bb=t+aFun1=t+bEnd FunctionPrivate Sub Command1Click（　）Dim X As Integerx=10Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)End Sub程序运行后，单击命令按钮，输出结果是（　）。

  A.10

  B.0C.11D.21

  开始考试点击查看答案
• 10若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（　　）。Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，YAs Single)Print"VB Program"End Sub

  A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程

  B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程

  C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程

  D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程

  开始考试点击查看答案