某人设计了如下程序用来计算并输出7!(7的阶乘)Private Sub Command1_Click()t=0For k=7 To 2 Step -1t=t*kNext kPrint tEnd 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
查看答案
设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程:Private Sub Command1_Click()Dim S As String , ch As StringS=""For k=1 TO Len(Text1)ch = Mid(Text1,k,1)S=ch+SNext kText1.Text=SEnd Sub程序执行时,在文本框中输入"Basic",然后单击命令按钮,则Text1中显示的是()。
A. Basic
B. cisaB
C. BASIC
D. CISAB
设有如下程序:Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNext iEnd Sub该程序通过For循环计算一个表达式的值,这个表达式是()。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
为计算1+3+5+……+99的值,某人编程如下:k=1s=0do While k<=99k=k+2s=s+kloopPrint 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
下列各种形式的循环中,输出"*"的个数最少的循环是()。
A. a=5 : b=8 Do Print "*" a=a+1 Loop While a
B. a=5 : b=8 Do Print "*" a=a+1 Loop Until a
C. a=5 : b=8 Do Until a-b Print "*" b=b+1 Loop
D. a=5 : b=8 Do Until a>b Print "*" a=a+1 Loop