设有如下程序： Private Sub Form_Click() A=1 For i＝1 To 3 Select Case i Case 1,3 A＝A+1 Case 2,4 A＝A+2 End Select Next i Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是
- A6
- B5
- C4
- D3
问题
设有如下程序： Private Sub Form_Click() A=1 F
参考解析：
解析：本题是对多分支结构和循环结构的综合考查。i为1时，执行了第一个 Case后的语句A＝A+1得A的值为2。i为 2时，执行的是第二个Case后的语句A＝A+ 2(注意，此时右边的A值应保留了上一次循环的结果值2)即A＝2+2得A的值为4。i为3时，又一次执行了语句A＝A+1即A＝4 +1得A的值为5。故最后执行语句Print A后，窗体上显示的内容是5。
分类：其他
相关推荐
-
1、阅读下列程序： Private Sub Commad1_Click() Di
阅读下列程序： Private Sub Commad1_Click() Dim i As Integer,k As Integer k＝2 For i＝1 To 3 Print H(k) Next i End Sub Function H(j As Integer...
-
2、对窗体编写如下代码： Option Base1 Private Sub F
对窗体编写如下代码：Option Base1Private Sub Form_Key Press（Key Ascii AsInteger）a=Array（237，126，87，48，498）m1=a（1）m2=1IfKey Ascii=13ThenForI=2To5Ifa（...
-
3、设有如下程序： Option Base 0 Private Sub For
设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1,2,3,4,5,6,7,8,9)For i = 0 To 3Print a(5 – i);Next End S...
-
4、某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub
某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程...
-
5、有如下VB程序段： Private Sub Command1_Click（
有如下VB程序段：Private Sub Command1_Click（）Dim a As Longa=Val（Text1.Text）Print aEnd Sub其中"Private Sub Command1_Click（）"的作用是（）。A定义一个数据...
-
6、设有如下程序： Private Sub Command1_Click() D
设有如下程序： Private Sub Command1_Click() Dim sum As Double，x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过...