举一反三
- 下列程序: 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 运行时的输出结果是( )。
- 窗体的单击事件过程如下: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
- 运行下列程序,单击窗体显示的结果为( )。 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!+2!+......+20!的值。 Private Sub Form_Click() Dim i%, t!, s! s = 1 t = 1 '**********SPACE********** For i = 【1】 To 20 t = t * i '**********SPACE********** s = 【2】 '**********SPACE********** 【3】 Print s End Su
- 下面程序的输出结果是 Private Sub Command1_Click() ch$="ABCDEF" proc ch Print ch End Sub Private Sub proc(ch As String) S="" For k=Len(ch) To 1 Step-1 s=s & Mid(ch,k,1) Next k ch=s End Sub
内容
- 0
下列程序段的运行结果是______。 Private Sub Form_Click() Dim d d = Array(1, 2, 3, 4, 5) n = 1 For k = 4 To 2 Step -1 s = s + d(k) * n n = n * 10 Next Print sEnd Sub A: 123 B: 234 C: 345 D: 112
- 1
下面程序的输出结果是( )Private Sub proc(ch As String) s = "" For k = Len(ch) To 1 Step -1 s = s & Mid(ch, k, 1) Next k ch = sEnd SubPrivate Sub Command1_Click() ch$ = "ABCDEF" proc ch Print ch End Sub A: ABCDEF B: A C: FEDCBA D: F
- 2
Private Sub Command1_Click() Dim t(4) as Integer For i=1 to 4 t(i)= i+1 Next i End Sub 上面程序运行后,t(1)的值是______
- 3
运行下列程序,单击窗体后显示结果为( )。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc(3); Next End Sub
- 4
写输出下面程序的运行结果_ _。 Dim a() As Integer Private Sub Command1_Click() ReDim a(1 To 5) For i = 1 To 5 a(i) = i Next i ReDim a(1 To 10) For i = 6 To 10 a(i) = 2 * i Next i For i = 1 To 10 Print a(i); Next i End Sub