当前位置: 高中信息技术 / 填空题
  • 1. (2017高三上·杭州模拟) 下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是

    Private Sub Command1_Click()

    Dim i As Integer, c As Integer, n As Integer

    c = 0: n = 10

    For i = 1 To 10 Step 2

        If n Mod i = 0 Then

           c = c * i

        Else

           c = c + i

        End If

    Next i

    Text1.Text = Str(c)

    End Sub

微信扫码预览、分享更方便