题目内容

为了计算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指明鼠标指针的当前位置

查看答案

窗体上有一个图形控件(Picture1)和一个按钮控件(Command1)，下列程序执行的结果是____。 Private Sub Command1_click() Picture1.Picture = LoadPicture("d:\temp\02.jpg") Picture1.Cls Picture1.Print "Picture" End Sub

A. 窗体无显示内容，图形框只显示“Picture”文字
B. 窗体无显示内容，图形框显示图片和文字“Picture”
C. 窗体上出现“Picture”文字，图形框显示图片
D. 窗体上出现“Picture”文字，图形框无显示内容

查看答案

Rnd函数的值不可能是____。

A. 0
B. 1
C. 0.2547
D. 0.0001

查看答案

为了计算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。程序运行后，如果改变滑块的位置，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是____。

设有如下事件过程： 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 则以下描述中错误的是____。

窗体上有一个图形控件(Picture1)和一个按钮控件(Command1)，下列程序执行的结果是____。 Private Sub Command1_click() Picture1.Picture = LoadPicture("d:\temp\02.jpg") Picture1.Cls Picture1.Print "Picture" End Sub

Rnd函数的值不可能是____。

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