在窗体上画两个命令按钮,然后编写以下代码: Private Sub Commandl_ Click() Dim i As Long Dim i As Integer Dim x For i=1

admin2009-02-13  38

问题 在窗体上画两个命令按钮,然后编写以下代码:    Private Sub Commandl_ Click()        Dim i As Long        Dim i As Integer        Dim x        For i=1 To 10000000         x=DoEvents         For j=1 To 1000000         Next j         Cls         Print i         Next i    End Sub    Private Sub Command2_Click()        Dim x As Integer        Dim i As Integer        x=0        For i=1 To 10          x=x+i       Next i       MsgBox x    End Sub    当程序执行后,单击命令按钮Command1,在窗体上将显示以一定的时间间隔(从1、2、…一直到 10000000这10000000个数字),如果再单击命令按钮Command2,将会出现的情况是______。

选项 A、没有任何变化,数字仍按原有的规律显示
B、将会中断在窗体上数字从小到大的显示,弹出一个对话框,待用户单击“确定”按钮关闭对话框后,数字再按原来的规律继续在窗体上显示
C、将会弹出一个对话框,待用户单击“确定”按钮关闭对话框后,窗体上的数字将保持中断时候的值,也就是说不再按规律变化显示
D、窗体上的数字仍按原有的规律在窗体上显示,然后同时会弹出一个对话框,待用户单击“确定”按钮后对话框关闭

答案2

解析 当程序执行后,单击命令按钮Command1,在窗体上将显示一定的时间间隔(从1、2……一直到 10000000这10000000个数字)。如果再单击命令按钮Command2,将会中断在窗体上数字从小到大的显示,而弹出一个对话框,当用户单击“确定”按钮关闭对话框后,数字再按原来的规律继续在窗体上显示。
转载请注明原文地址:https://jikaoti.com/ti/t5q0FFFM
0

最新回复(0)