题目内容
（请给出正确答案）
如果结果不匹配，请 联系老师 获取答案
更多“把下面的短文加上标点并译成现代汉语：昔齐人有欲金者清旦衣冠而…”相关的问题
计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。 某人编写下面的程序用此公式计算并输出的近似值： Private Sub Cornmand1 Click（） P1=1 Sign=1 n=20000 For k=3 To r Sign=-Sign PI=PI+SiRn／k Next k Print PI*4 End Sub 运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（）。
A.把For k=3 To n改为For k=1 To n
B.把n=20000改为n=20000000
C.把For k=3 To n改为For k=3 To n Step 2
D.把PI=1改为P1=0
（20 ）某人设计了如下程序用来计算并输出 7! （7 的阶乘）
Private Sub Command1_Click()
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是
A ）把 t=0 改为 t=1
B ）把 For k = 7 To 2 Step -1 改为 For k =7 To 1 Step -1
C ）把 For k = 7 To 2 Stip-1 改为 Fork=1 To 7
D ）把 Next 改为 Nexi k
某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是。 A．把t=0改为t=1 B．把For k=7 TO 2 Step -1改为For k=7 TO 1 Step -1 C．把For k=7 TO 2 Step -1改为For k=1 TO 7 D．把Next改为Next k
Function delchar(str As String，ch As String)As String
Dim k As Inlegcr，temp As String，ret As String
ret=""
For k=1 To Len(str)
temp=Mid(str，k，1)
If temp=ch Then
ret=ret＆temp
End If
Next k
delchar=ret
En d Function
但实际上函数有错误，需要修改，下面的修改方案中正确的是（）。
A.把ret=ret＆temp改为ret=temp
B.把If temp=ch Then改为If temp＜＞ch Then
C.把delchar=ret改为delchar=temp
D.把ret=""改为temp=""
（31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （见图 ） ， 并有下面的程
序：
Private Sub Comand1_Click （）
For k=List1.ListCount-1 To 0 Step -1
If List1.Selected （k ） Then
List2.AddItem List1.List （k ）
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是
A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项
B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项
C ）同时产生 A ）和 B ）的结果
D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：
Private Sub Command1_Click（）
For k=List1．ListCout-1 To 0 Step-1
If List1．Selected(k)Then
List2．Addltem List1．List(k)
List1．Removeltem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（）。
A.在List2中插入了“外语”、“物理”两项
B.在List1中删除了“外语”、“物理”两项
C.同时产生A和B的结果
D.把List1巾最后1个列表项删除并插入到List2中
窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：
Private sub Commandl_Click()
For k：Listl．ListCount_l To 0 step-1
Tf Listl．Selected(k)Then
List 2．AddItern Listl．List(k)
Listl．Removehem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是
.jpg)
A．在List2中插入了“外语”、“物理”两项
B．在Listl中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把Listl中最后1个列表项删除并插入到List2中
