填空题

执行如下程序段后，intsum的值为______。
Private Sub Command1_Click()
　　sum=0
　　For i=1 To 18 Step 2
　　　　For j=2 To 6
　　　　　　If(i Modj)＜＞0 Then sum=sum+j
　　　　Next
　　Next
　　Print sum
End Sub

【参考答案】

161
<上一题 目录 下一题>
热门 试题

填空题
当对象得到焦点时，会触发GotFocus事件，当对象失去焦点时将触发______事件。
填空题
在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text= VB Programming Text2.Text=Text1.Text Text1.Text= ABCD End Sub 程序运行后，单击命令按钮，Text1文本框中显示的内容为______。
相关试题