举一反三
- 下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
- 运行下列程序，单击窗体显示的结果为（ ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub
- *【程序填空】题目：编程求出1~100之间的奇数之和，偶数之积。*/ #include "stdio.h" main() { int i,s=0; /***********SPACE***********/ double 【?】; for(i=1;i<=100;i++) /***********SPACE***********/ if(【?】) t=t*i; /***********SPACE***********/ 【?】 s=s+i; /***********SPACE***********/ printf("%d,%e\n",【?】); }
- 题目：求200以内奇数之和。 #include<stdio.h> void main { /**************SPACE*************/ int i,s=【?】; /**************SPACE*************/ for(i=1;i<200;【?】) /**************SPACE*************/ s=【?】; /**************SPACE*************/ printf("s=【?】 ",s); }
- 执行下列程序后，输出的结果是 Option Base 1 Private Sub Form_Click() Dim arr, s As Integer s = 0 arr = Array(2, 4, 6, 8, 10, 12, 14, 16, 18, 20) For i = 1 To 10 Step 2 If arr(i) Mod 3 = 0 Then s = s + arr(i) End If Next i Print s End Su A: 20 B: 22 C: 24 D: 26 E: 28 F: 其它都不对
内容
- 0
下列程序: Option Base 1 Private Sub Form_Click() Dim a(5，5) For i ＝ 1 To 5 For j ＝ 1 To 5 k ＝ k ＋ 1 a (i，j)＝ k Next j Next i For i ＝ 1 To 5 s ＝ s ＋ a (i，i) Next i Print s End Sub 运行时的输出结果是( )。
- 1
单击窗体，在窗体上打印数列：2/1 ，3/2 ，5/3 ，8/5 ，13/8 … 的前10项，并求其和，将和保存在变量s中。 Private Sub Form_Click() Dim i%, j%, k%, m As Integer Dim s As Single s = 0 i = 2 'i为分子 j = 1 'j为分母 For k = 1 To 10 s = 【1】 Print i & "/" & j m = j j = i i = 【2】 Next Print s End Sub
- 2
窗体的单击事件过程如下：Private Sub Form_Click() K = 1 For i = 5 To 1 Step -1 T = T * 10 + K S = S + T Next i Print SEnd Sub运行程序时，单击窗体后，显示的是 A: 12345 B: 54321 C: 0 D: 11111
- 3
Private Sub Command1_Click() Dim t(4) as Integer For i=1 to 4 t(i)= i+1 Next i End Sub 上面程序运行后,t(1)的值是______
- 4
以下VBA程序运行的结果是( ) Public Sub Form_Click() Dim s As Integer s = 0 For i = 1 To 2 s = 1 For j = i To 3 s = s + i * j Next j Next i MsgBox "s=" &; s End Sub A: 11 B: 18 C: 22 D: 7