组卷题库 > 高中信息技术试卷库
试题详情
下列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

知识点
参考答案
采纳过本试题的试卷
教育网站链接