单项选择题

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

A) 循环前的赋值语句k=1错误，应改为k=0
B) 循环条件错误，应改为While k＜99
C) 循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2
D) While…Wend循环语句错误，应改为For k=1 To 99…Next k

<上一题目录下一题>

热门试题

单项选择题

设有如下通用过程： Public Function Fun(xStr As String) As String Dim tStr As String,strL As Integer tStr= strL=Len(xStr) i=1 Do While i＜=strL 2 tStr=tStr& Mid(xStr,i,1)＆Mid(xStr,strL-i+1,1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1= abcdef Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是______。

A) abcdef
B) AFBECD
C) ABCDEF
D) DEFABC

单项选择题

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter= All Files(*，*)|*.*|Text Files(*.txt)|*.txt|Executable_ Files(*.exe)|*.exe CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个打开对话框，此时在文件类型框中显示的是______。

A) All Files(*.*)
B) Text Files(*.txt)
C) Executable Files(*.exe)
D) 不确定

相关试题