下面程序段的执行结果为____。 Dim a!(3), i% For i = 0 To 3 a(i) = i + 1 Next i Print a(i)
A. 3
B. 4
C. 0
D. 提示“下标越界”错误
查看答案
不能正确描述如下分段函数的If结构是_____。 ┏ ┃0 x<0 y =┃1 0≤x<1 ┃2 1≤x ┗
A. If x >= 1 Then y = 2 ElseIf x >= 0 And x < 1 Then y = 1 Else y = 0 End If
B. If x >= 1 Then y = 2 ElseIf x >= 0 And x < 1 Then y = 1 ElseIf x < 0 Then y = 0 End If
C. If x >= 1 Then y = 2 ElseIf x < 0 Then y = 0 Else y = 1 End If
D. If x < 1 Then y = 1 ElseIf x < 0 Then y = 0 Else y = 2 End If
为了计算2+4+6+...+100的值,某人编写了如下程序: Private Sub Form_Click() Dim k%, s% k = 2 s = 0 Do While k <= 100 k = k + 2: s = s + k Loop Print s End Sub 在调试时发现运行结果错误,需要修改。下列错误原因和修改方案中正确的是____。
A. Do-Loop循环语句错误,应改为For k=2 to 100 ...... Next k
B. 循环条件错误,应该改为Do While k<100
C. 循环前的赋值语句k=2错误,应改为k=1
D. 循环中两条赋值语句的顺序错误,应该改为s = s + k:k = k + 2
在窗体上画一个名称为Text1的文本框,然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100。程序运行后,如果改变滑块的位置,则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是____。
A. Private Sub HScroll1_Click() Text1.Text = HScroll1.Caption End Sub
B. Private Sub HScroll1_Click() Text1.Text = HScroll1.Value End Sub
C. Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub
D. Private Sub HScroll1_Change() Text1.Text = HScroll1.Caption End Sub
设有如下事件过程: Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Menu1 End If End Sub 则以下描述中错误的是____。
A. 该过程的功能是弹出一个菜单
B. Menu1是在菜单编辑器中定义的弹出式菜单的名称
C. Button=2表示按下的是鼠标左键
D. 参数X、Y指明鼠标指针的当前位置