单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim m(10)As Integer Dim b(3)As Integer s = 0 For i=1 To 10 m(i)=i Next i For i=1 To 3 b(i)=m(i * i) Next i For i=1 To 3 s = s + b(i)*3 Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．78
B．10
C．33
D．42
<上一题 目录 下一题>
热门 试题

填空题
要想在文本框中显示垂直滚动条，必须将 【10】 属性设置为2，同时还应将MultiLine属性设置为True。
填空题
要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。Option Base 1Private Sub Command1_Click()Dim b()Randomize【12】 Dox=RndIf x＞0.5 Then y=1 Else y=-1t=y*Int(Rnd*100)+1【13】 Do While k＜jIf t ＜＞ b(k)Thenk = k + 1ElseExit DoEnd IfLoopIf k=j ThenReDim Preserve b(k)b(k)=tPrint b(k)；j=j+1End IfLoop Until j＞50Print【14】 Max=b(1)For n=2 To 50If b(n)＞Max Then【15】 p = nEnd IfNext nPrint 最大数是： ；MaxPrint 位置在第 ；p； 个 End Sub
相关试题