填空题

有以下程序：
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后，窗体上显示的结果为______。

【参考答案】

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

填空题
下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10) As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)=______ Next max=an(1) For i%=2 to 10 if an(i%) ＞max then max=an(i%) End IF Next Print max End Sub
填空题
假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。 Private Sub Command1_Click() Dim B As Books open C= person.txt For output As#1 B.Name=InputBox( 请输入姓名 ) B.TelNum=InputBox( 请输入电话号码 ) write #1，______ Close #1 End Sub
相关试题