2. 计算机
  3. 在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim S As Integer S = 0 For i = 1 To 15 x = 2 * i -

在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim S As Integer S = 0 For i = 1 To 15 x = 2 * i -

admin2020-01-02  3
问题 在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Form_Click()
    Dim S As Integer
    S = 0
    For i = 1 To 15
        x = 2 * i - 1
        If x Mod 3 = 0 Then
            S = S + 1
        End If
    Next i
    Label1.Caption = S
End Sub
运行程序，单击窗体，标签中显示的是(    )。
选项 A、5
B、1
C、27
D、45
答案A
解析 For循环中，循环变量i初始值为1，终止值为15， if语句判断x是否能被3整除，若能被3整除，则将变量S加1。在整个循环过程中只要计算x的值，看有多少个x的值能被3整除，变量S则保留能被3整除的x的个数。通过计算可以得知，x=3，6，9，12，15共5个，所以变量S的值为5，故选项A正确。
转载请注明原文地址:https://www.kaotiyun.com/show/SBTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)