1. 设有如下程序: 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 该程序通过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
|
2. 有如下程序: Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后,单击窗体,输出结果为( )。 A. 12 B. 30 C. 24 D. 18
|
3. 下列程序段的执行结果为( )。 x=5 y=6 For y=1 to 9 step -3 x=x+y Next y Print y;x A. -1 5 B. -1 15 C. 1 5 D. 11 51
|
4. 在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c = “ABCD” For n= 1 To 4 Print ______ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容 D CD BCD ABCD 则在______处填入的内容为( )。 A. Left(c,n) B. Right(c,n) C. Mid(c,n,1) D. Mid(c,n,n)
|
5. 执行了下面程序后,组合框中数据项的值是( )。 Private Sub Form_Click() For i=1 to 6 Combo1.AddItem i Next i For i= 1 to 3 Combo1.RemoveItem i Next i End Sub A. 1 5 6 B. 1 3 5 C. 4 5 6 D. 2 4 6
|
6. 下面程序的循环次数为( )。 For I=10 To 40 Step 6 Print I Next I A. 5 B. 6 C. 32 D. 33
|
7. 若要退出For循环,可使用的语句为( )。 A. Exit B. Exit Do C. Time D. Exit For
|
8. 在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim S As String, a As String, b As String a= "*" : b =" @" For i= 1 to 4 If i / 2= Int(i / 2) Then S=String(Len (a)+i , b) Else S=String(Len(a) + i, a) End If Print S; Next i End Sub 运行程序后,单击Command1命令按钮,显示结果是( )。 A. @@****@@@@***** B. *@@**@@***@@@****@@@@ C. **@@@****@@@@@ D. @*@@**@@@***@@@@****
|
9. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 then m=m+n\3 Next n print n End sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是( )。 A. 15 B. 18 C. 21 D. 24
|
10. 执行以下程序段: Dim i As Integer, x As Integer x = 0 For i = 20 To 1 Step -2 x = x + i \ 5 Next Print x 后,x的值为( )。 A. 16 B. 17 C. 18 D. 19
|
11. 下面程序运行后输出的结果是( )。 Private Sub Form_Click() For x=5 To 2.5 Step -7 Next x Print x End Sub A. -2 B. 2.5 C. 2 D. –7
|