题目内容

设窗体上有一个文体框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

查看答案

下面程序段输出的结果是（）。Private Sub Command1_Click()x = 8For i = 0 To 20 Step 5x = x + iNextPrint "X="; xEnd Sub

A. X=210
B. X=218
C. X=50
D. X=58

查看答案

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循环计算一个表达式的值,这个表达式是（）。

为计算1+3+5+……+99的值,某人编程如下：k=1s=0do While k<=99k=k+2s=s+kloopPrint s在调试时发现运行结果有错误,需要修改.下列错误原因和修改方案中正确的是（）。

下列各种形式的循环中,输出"*"的个数最少的循环是（）。

下面程序段输出的结果是（）。Private Sub Command1_Click()x = 8For i = 0 To 20 Step 5x = x + iNextPrint "X="; xEnd Sub

A. Basic
B. cisaB
C. BASIC
D. CISAB