填空题

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

【参考答案】

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

填空题
在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem ItemA :List1.AddItem Item B List1.AddItem Item C ：List1.AddItem ItemD List1.AddItem ItemE End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是 【11】 。
填空题
设在工程中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As string*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时， 在顺序文件Person.txt中写入一条记录。该操作的事件过程是 【15】 。
相关试题