D)把Form2的 TabIndex属性设置为l,把 Forml的 Tablndex属性设置为2 (26)窗体上有1个名称为Text1的文本框和1个名称为 Command1的命令按钮。要求程序 运行时,单击命令按钮,就可把文本框中的内容写到文件 out txt中,每次写入的内容 附加到文件原有内容之后。下列能够正确实现以上功能的程序是() A) Private Sub Command1 Click() Print #1.Text1. Text End Sub B) Private Sub Command1 Click() Open"out. txt"For Output As #1 Print #1.Text1.Text C) Private Sub Command1 Click( Open"out. txt"For Append As# I Print #lText1.Text Close #1 End Sub D) Private Sub Commandl Click() Open"out. txt"For Random As#1 Print #1.Text.Text Close #1 End Sub (27)为了计算1+3+5+…+99的值,某人编程下列: While k<=99 k=k+2: s=S+k Print 在调试时发现运行结果有错误,需要修改。下列错误原因和修改方案中正确的是()。 A) While…wend循环语句错误,应改为Fork=lTo9… Next k B)循环条件错误,应改为 While k<99 C)循环前的赋值语句k=错误,应改为k=0 D)循环中两条赋值语句的顺序错误,应改为s=s+k:k=k+2 (28)下列程序在调试时出现了死循环 Private Sub Commandl Click( n= nput Box("请输入一个整数") If n mod 2=0 Then n=n+1 n=n+2 二级 Visual basic语言程序设计试卷第4页(共11页)二级 Visual Basic 语言程序设计试卷 第 4 页（共 11 页） D）把 Form2 的 TabIndex 属性设置为 l，把 Form1 的 TabIndex 属性设置为 2 （26）窗体上有 1 个名称为 Text1 的文本框和 1 个名称为 Command1.的命令按钮。要求程序 运行时，单击命令按钮，就可把文本框中的内容写到文件 out.txt 中，每次写入的内容 附加到文件原有内容之后。下列能够正确实现以上功能的程序是（ ）。 A）Private Sub Command1_Click( ) Open "out.txt" For Input As #1 Print #1,Text1.Text Close #1 End Sub B）Private Sub Command1_Click( ) Open "out.txt" For Output As #1 Print #1,Text1.Text Close #1 End Sub C）Private Sub Command1_Click( ) Open "out.txt" For Append As#1 Print #1,Text1.Text Close #1 End Sub D）Private Sub Command1_Click( ) Open "out.txt" For Random As#1 Print #1,Text1.Text Close #1 End Sub （27）为了计算 1+3+5+…+99 的值，某人编程下列： k=1 s=0 While k<=99 k=k+2∶s=s+k Wend Print s 在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（ ）。 A）While…Wend 循环语句错误，应改为 For k=1 To 99 …Next k B）循环条件错误，应改为 While k<99 C）循环前的赋值语句 k=l 错误，应改为 k=0 D）循环中两条赋值语句的顺序错误，应改为 s=s+k:k=k+2 （28）下列程序在调试时出现了死循环： Private Sub Command1_Click( ) n=InputBox("请输入一个整数") Do If n Mod 2=0 Then n=n+1 Else n=n+2